Letzte benutzte Zeile einer Mappe

Computer: Software & Programmierung Office Software
1

Guten Tag,

es gibt eine VBA-Anweisung „Zeilennummer, die den letzten Eintrag enthält, ermitteln“, auch bezüglich einer bestimmten Spalte.
Leider finde ich das nicht wieder. Wie geht’s noch?

Danke, Stucki

2

such Dir eine aus…

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


Public Sub letzte\_zeile\_2()
'Hier wir die letzte Zeile der Spalte A ermittelt
letztezeile = ActiveSheet.Cells(65536, 1).End(xlUp).Row
MsgBox letztezeile
End Sub


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


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


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


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


Public Sub letzte\_zelle\_2()
'Mit diesem Makro wird die letzte Zelle markiert
Range("A1").SpecialCells(xlCellTypeLastCell).Select
End Sub
3

Hallo Stucki,

es gibt eine VBA-Anweisung „Zeilennummer, die den letzten
Eintrag enthält, ermitteln“,

das geht auch ganz einfach mit einer Formel:

=VERGLEICH(;A:A;-1)
-> gibt die Zeilennummer aus, die den letzten Eintrag enthält

weiters:

=INDIREKT(„A“&VERGLEICH(;A:A;-1))
-> gibt den Inhalt der letzten Zeile aus

lg, Jerry

4

stop!
das stimmt so nicht ganz…
es ist der letzte WERT(!) in der Spalte, der gefunden wird.
Wenn da Texte stehen ist die Formel nicht zu verwenden.

Trotzdem danke für den Tipp!