Offsetwert einer Excel-Zelle ermitteln

Hallo Leute

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 3 und 2 Variablen zuweisen.

Kennt jemand einen Code, der dies bewerkstelligen könnte ???
Bin für jeden Hinweis dankbar.

krokodog

Habe eine Lösung gefunden ;D
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))