Vielen Dank für jede Unterstützung.
Gruß Peter
Sub test()
Cells(13, 1).End(xlDown).Offset(1, 0).Select
MsgBox xxxxxxx
End Sub
Sub test()
Cells(13, 1).End(xlDown).Offset(1, 0).Select
MsgBox xxxxxxx
End Sub
Sub test()
Dim LR&
LR = Cells(13, 1).End(xlDown).Offset(1, 0).Row
MsgBox LR
End Sub