Freie letzte Zelle in Zelle ausgeben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Freie letzte Zelle in Zelle ausgeben von: Rolf
Geschrieben am: 17.03.2005 19:15:47

Hallo Excelprofis,

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
Bild


Betrifft: AW: Freie letzte Zelle in Zelle ausgeben von: Boris
Geschrieben am: 17.03.2005 19:35:37

Hi Rolf,

dein Code ist nicht ganz korrekt, da immer "A..." als Ergebnis herauskommt.
So erhälst du immer die letzte Zelle - aufgeteilt nach Spaltenbuchstaben und Zeilennummer:

Option Explicit


Sub letzteZelle()
Dim C As Range
Set C = Cells.Find("*", lookat:=xlPart, searchdirection:=xlPrevious)
[e1] = WorksheetFunction.Substitute(Cells(1, C.Column).Address(0, 0), 1, "")
[f1] = C.Row
End Sub


Grüße Boris


Bild


Betrifft: AW: Freie letzte Zelle in Zelle ausgeben von: Ramses
Geschrieben am: 17.03.2005 19:37:11

Hallo

das sollte so gehen:



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
Range("E1") = Chr(Cells(letzteZelle, 1).Column+64)
Range("F1") = letzteZelle
End Sub


Allerdings geht das nur bis Spalte Z.
Hast du weiter rechts auch noch was stehen, muss der Code etwas modifiziert werden

Gruss Rainer


Bild


Betrifft: AW: Freie letzte Zelle in Zelle ausgeben von: Rolf
Geschrieben am: 17.03.2005 20:18:48

Hallo Boris
Hallo Ramses,

beide Makros funktionieren

Vielen Dank
Rolf


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Freie letzte Zelle in Zelle ausgeben"