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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen