Ich möchte von einem Bereich die erste und letzte Zeile wissen.
Die erste Zeile kann ich folgendermassen ermitteln:
MsgBox Range("A48").CurrentRegion.Row
Weiss jemand von Euch wie ich zur letzten Zeile komme?
Gruss und Danke
Remo
Sub til()
MsgBox "Erste Zeile: " & Range("A48").CurrentRegion.Row & Chr(10) & _
"Letzte Zeile: " & Range("A48").CurrentRegion.Row + Range("A48").CurrentRegion.Rows.Count - 1
End Sub