Freie letzte Zelle in Zelle ausgeben
17.03.2005 19:15:47
Rolf
folgendes Makro ermittelt die letzte freie Zelle über alle Spalten und gibt
das Ergebnis in einer MsgBox aus.
Die ermittelte Zelle soll nicht in einer MsgBox angezeigt werden, sondern in
den Zellen E1 und F1 getrennt nach Buchstabe und Ziffer.
Wie müßte das Makro aussehen?
Sub LetzteZelleInSpalteAFinden()
Dim letzteZelle As Long
letzteZelle = Worksheets("Tabelle1").Cells.Find(What:="*", _
After:=[A1], SearchDirection:=xlPrevious).Row + 1
MsgBox "Letzte Zelle: " & Cells(letzteZelle, 1).Address
End Sub
Vielen Dank im voraus
Rolf
Anzeige