AW: Zeilennummer innerhalb markierter Range ermitteln
WernerB.
Hallo Heinz,
wie gefällt Dir das?
Sub Heinz()
Dim Bereich As String, lo As String, ru As String
Dim zo As Long, zu As Long
Dim sl As Integer, sr As Integer
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1) 'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row 'Zeile oben
zu = Range(ru).Row 'Zeile unten
sl = Range(lo).Column 'Spalte links
sr = Range(ru).Column 'Spalte rechts
End Sub
Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !