Letzte Zeile, letzte Spalte und letzte Zelle per VBA ermitteln

Arbeit mit der letzten Zeile, Spalte oder Zelle in Excel – praktische Makro-Beispiele

Wenn Sie regelmäßig mit Excel arbeiten, stehen Sie früher oder später vor der Aufgabe, die letzte verwendete Zeile, die letzte Spalte oder die letzte befüllte Zelle eines Tabellenblatts zuverlässig zu ermitteln. Gerade beim automatisierten Verarbeiten von Daten ist eine saubere Identifikation des benutzten Zellbereichs unverzichtbar.
Auf Excel-Inside.de stellen wir Ihnen hierzu eine Sammlung bewährter VBA-Beispiele zur Verfügung. Die folgenden Makros helfen Ihnen dabei, diese wichtigen Informationen schnell und versionsunabhängig auszulesen. Alle Varianten sind praxiserprobt und eignen sich hervorragend zur Integration in eigene Routinen.

Version 1a Ermittlung der letzten Zeile:

Public Sub letzte_zeile_1()
'Hier wird die letzte Zeile ermittelt
'Egal in welcher Spalte sich die letzte Zeile befindet
'Es werden alle Spalten geprüft und die letzte Zeile ausgegeben
letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
MsgBox letztezeile
End Sub

Version 1b: Ermittlung letzte Zeile in Spalte A

 
Public Sub letzte_zeile_2()
'Hier wir die letzte Zeile der Spalte A ermittelt
letztezeile = ActiveSheet.Cells(1048576, 1).End(xlUp).Row 'Ab Excel 2007
MsgBox letztezeile
End Sub

Version 1c: Ermittlung der letzten Zeile in Spalte A

Wird bei Excel-Inside als Standardversion verwendet, da damit eine versionsunabhängige Funktionsweise garantiert ist. Dies bedeutet, dass diese Version in allen Excel-Versionen einschließlich der Versionen Excel 2003 und älter funktioniert.

 
Public Sub letzte_zeile_3()
'Hier wir die letzte Zeile der Spalte A ermittelt
letztezeile = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
MsgBox letztezeile
End Sub

Version 1d: Ermittlung der letzten Zeile im benutzten Bereich

 
Public Sub letzte_spalte_1()
'Hier wird die letzte Zeile ermittelt
'Egal in welcher Spalte sich die letzte Zeile befindet
'Es werden alle Spalten geprüft und die letzte Zeile ausgegeben
letztespalte = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Column
MsgBox letztespalte
End Sub

Version 2a: Ermittlung der letzten Spalte in Zeile 4

 
Public Sub letzte_spalte_2()
'Hier wird die letzte Spalte der Zeile 4 ermittelt
letztespalte = Sheets(1).Cells(4, 256).End(xlToLeft).Column
MsgBox letztespalte
End Sub

Version 2b: Ermittlung der Adresse der letzten Spalte

Public Sub letzte_zelle_1()
'Mit diesem Makro wird die Adresse der letzten Zelle (Zeile, Spalte) ermittelt
letztezelle = Range("A1").SpecialCells(xlCellTypeLastCell).Address
MsgBox letztezelle
End Sub

Version 2c: Auswahl der letzten Zelle im verwendeten Zellbereich

Public Sub letzte_zelle_2()
'Mit diesem Makro wird die letzte Zelle markiert
Range("A1").SpecialCells(xlCellTypeLastCell).Select
MsgBox letztezelle
End Sub

Wenn Sie Unterstützung bei der VBA-Programmierung benötigen oder individuelle Lösungen wünschen, steht Ihnen das Team von Excel-Inside.de gern zur Verfügung. Schauen Sie sich auch unser Leistungsspektrum an – wir helfen Ihnen gerne dabei, Ihre Excel-Prozesse effizienter und automatisierter zu gestalten.