Sub test()
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & lngLetzte).Select
End Sub
Sub test()
Dim lngLetzte As Long
lngLetzte = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, 1).Resize(1, lngLetzte).Select
End Sub
Um die letzte beschriebene Zelle in einer Zeile mit VBA zu finden, kannst Du die folgende Schritt-für-Schritt-Anleitung befolgen:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code ein:
Sub LetzteZelleInZeile()
Dim lngLetzte As Long
lngLetzte = Cells(1, Columns.Count).End(xlToLeft).Column
Cells(1, 1).Resize(1, lngLetzte).Select
End SubSchließe den VBA-Editor und kehre zu Excel zurück.
Drücke ALT + F8, wähle LetzteZelleInZeile und klicke auf Ausführen.
Dieser Code ermittelt die letzte beschriebene Zelle in Zeile 1 und markiert den Bereich von A1 bis zur letzten beschrifteten Zelle.
Problem: Der Code markiert nicht die erwarteten Zellen.
End(xlToLeft)) verwendest, um die letzte beschriebene Zelle in der Zeile zu finden.Problem: Nur Zelle A1 wird formatiert.
With Selection.Interior
.Pattern = xlSolid
.ThemeColor = xlThemeColorDark1
End WithFalls Du die letzte beschriebene Zelle in einer bestimmten Spalte finden möchtest, kannst Du den folgenden Code verwenden:
Sub LetzteZelleInSpalte()
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & lngLetzte).Select
End SubDieser Code findet die letzte beschriebene Zelle in Spalte A und markiert alle Zellen von A1 bis zur letzten beschriebenen Zelle.
Hier sind einige praktische Beispiele, die Dir helfen können, die letzte beschriebene Zelle in Excel VBA effizient zu finden:
Markieren der letzten beschrifteten Zelle in Zeile A:
Sub MarkiereLetzteZelleInZeileA()
Dim lngLetzte As Long
lngLetzte = Cells(1, Columns.Count).End(xlToLeft).Column
Range("A1:A" & lngLetzte).Select
End SubFormatierung der letzten Zelle in einer Spalte:
Sub FormatierteLetzteZelle()
Dim lngLetzte As Long
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & lngLetzte).Interior.Color = RGB(255, 255, 0) ' Gelb
End SublngLetzte für mehr Flexibilität und leserlichen Code.1. Wie finde ich die letzte beschriebene Zelle in einer Spalte?
Du kannst den folgenden Code verwenden:
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row2. Kann ich die letzte beschriebene Zelle in einer Zeile formatieren?
Ja, nutze den With Selection.Interior Block, um das gewünschte Format anzuwenden.