Letzte Zeile, letzte Spalte und letzte Zelle per VBA ermitteln

101012



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

Wir empfehlen nicht mit absoluten Zeilenangaben zu arbeiten, wie im Beispiel 1b gezeigt, da diese nicht in den unterschiedlichen Excel-Versionen arbeiten. Wenn Version 1b verwendet wird, so arbeiter der VBA-Code entweder bis Excel 2003 oder ab Excel 2007.

 

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(65536, 1).End(xlUp).Row 'Bis Excel 2003
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)

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
End Sub

ende