Letzte Zeile, letzte Spalte und letzte Zelle per VBA ermitteln

Nachfolgend sehen Sie einige Makros, mit denen die letzte Zeile, die letzte Spalte bzw. die letzte Zelle auf einem Excel Tabellenblatt ermittelt werden kann. Die Erläuterungen zu den einzelnen Makros finden Sie als Kommentar im Code. 

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

Sehen Sie sich unser Leistungsspektrum an. Gern unterstützten wir Sie bei der einen oder anderen Programmierfrage.

Computer Bücher 

     sitepanel e mail Anfrage per E-Mail   |   sitepanel telephone 0151 - 164 55 914   |    sitepanel formular  Anfrage per Kontaktformular      |     Excel-Hilfeforum Hilfe-Forum

Ihre Zufriedenheit ist unser Ziel, deshalb verwenden wir Cookies. Mit diesen ermöglichen wir, dass unsere Webseite zuverlässig und sicher läuft, wir die Performance im Blick behalten und Sie besser ansprechen können. Cookies werden benötigt, damit technisch alles funktioniert und Sie auch externe Inhalte lesen können. Des Weiteren sammeln wir unter anderem Daten über aufgerufene Seiten, getätigte Käufe oder geklickte Buttons, um so unser Angebot an Sie zu Verbessern. Mehr über unsere verwendeten Dienste erfahren Sie unter „Weitere Informationen“. Mit Klick auf „Akzeptieren“ erklären Sie sich mit der Verwendung dieser Dienste einverstanden. Ihre Einwilligung können Sie jederzeit mit Wirkung auf die Zukunft widerrufen oder ändern.