Sub letzte_Zeile()
Anzahl = [A65536].End(xlUp).Row
Rows(Anzahl).Select
Wert = ActiveCell.Row()
Cells(Anzahl, 1).Select
MsgBox "Letzte gefüllte Zeile: " & Wert
End Sub
Gruß,
Ptonka
Sub letzte_Zeile()
Anzahl = [A65536].End(xlUp).Row
Rows(Anzahl).Select 'warum?
Wert = ActiveCell.Row() 'Das ist nichts anderes als Anzahl!
Cells(Anzahl, 1).Select 'warum?
MsgBox "Letzte gefüllte Zeile: " & Wert
End Sub
für die Zeile:
Sub letzteZeile()
Msgbox cells(rows.count,1).end(xlup).row
End Sub
Für den Inhalt:
Sub letzteZeile()
Msgbox cells(rows.count,1).end(xlup)
End Sub
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe