1. Liebe Forumsgemeinde,

    aufgrund der Bestimmungen, die sich aus der DSGVO ergeben, müssten umfangreiche Anpassungen am Forum vorgenommen werden, die sich für uns nicht wirtschaftlich abbilden lassen. Daher haben wir uns entschlossen, das Forum in seiner aktuellen Form zu archivieren und online bereit zu stellen, jedoch keine Neuanmeldungen oder neuen Kommentare mehr zuzulassen. So ist sichergestellt, dass das gesammelte Wissen nicht verloren geht, und wir die Seite dennoch DSGVO-konform zur Verfügung stellen können.
    Dies wird in den nächsten Tagen umgesetzt.

    Ich danke allen, die sich in den letzten Jahren für Hilfesuchende und auch für das Forum selbst engagiert haben. Ich bin weiterhin für euch erreichbar unter tti(bei)pcwelt.de.
    Dismiss Notice

Excel: Offset-Wert einer Zelle ermitteln

Discussion in 'Programmieren' started by krokodog, Dec 15, 2003.

Thread Status:
Not open for further replies.
  1. krokodog

    krokodog Byte

    Hallo,

    mit untenstehendem VB Code lässt sich in einer Excel-Tabelle die letzte Zelle mit einem Eintrag für die Spalte "B" ermitteln und ausgeben (z.B.: B3)

    intLetztezeile = Cells(Rows.Count, 2).End(xlUp).Row

    With Cells(intLetztezeile, 2)
    MsgBox .Address(False, False)
    End With

    Für die weitere Bearbeitung benötige ich aber die Offset-Werte. D.h. statt "B3" möchte ich die Offset-Werte (für B3 also 3 und 2)Variablen zuweisen.

    Bin für jeden Hinweis dankbar.

    krokodog
     
    krokodog, Dec 15, 2003
    #1
  2. krokodog

    krokodog Byte

    Habe eine Lösung gefunden
    Ist zwar nicht unbedingt das Gelbe vom Ei, aber es funktioniert.

    Für alle die es interessiert:

    Ermittelt die Stringlänge des Offsetwerts im Format R1C1:

    strLänge = Len(.Address(ReferenceStyle:=xlR1C1))

    Trennt ab der Position n die gewünschte Anzahl Zeichen ab
    und gib diese als Wert an die Variable weiter.

    intZeile = Val(Mid(.Address(ReferenceStyle:=xlR1C1), n, Anzahl))
     
    krokodog, Dec 16, 2003
    #2
Thread Status:
Not open for further replies.

Share This Page