ich möchte in der Spalte A die letzte beschriebene Zelle zwischen A6 und A24 suchen und die Letzte Zeile A bis Q aktivieren
vielen Dank für die Hilfe
Martin
Sub test()
Dim Lrow As Long
Lrow = Cells(24, 1).End(xlUp).Row
Range("A" & Lrow & ":Q" & Lrow).Select
End Sub
Sub test2()
Dim Lrow As Long
Lrow = IIf(IsEmpty(Cells(24, 1)), Cells(24, 1).End(xlUp).Row, 24)
Range(Cells(Lrow, 1), Cells(Lrow, 17)).Select
End Sub
(Das funzt auch dann, wenn A24 nicht leer ist.