VBA Letzte Zeile in Excel suchen (5 Möglichkeiten)

Hugh West

16-10-2023 Makros & Excel VBA
  • Teile Das
Hugh West

In der VBA können Sie verschiedene Methoden verwenden, um die letzte Zeile zu finden. In diesem Artikel werde ich verschiedene Methoden der VBA finden letzte Zeile in Excel zu erklären.

Um diese Erklärung zu veranschaulichen, werde ich einen Beispieldatensatz verwenden. Der Datensatz enthält 4 Spalten, die Verkaufsinformationen darstellen. Diese Spalten sind Vertriebsmitarbeiter, Region, Produkt, und Preis .

Herunterladen Zum Üben

VBA Letzte Zeile suchen.xlsm

Wege zu VBA Find Last Row in Excel

1. mit SpecialCells die letzte Zeile finden

Sie können die SpezielleZellen Methode zum Auffinden der letzten Zeile mit VBA .

Öffnen Sie zunächst die Entwickler tab>> dann wählen Sie Visual Basic

Ein neues Fenster von Microsoft Visual Basic für Anwendungen auftauchen.

Nun, von einfügen. auswählen Modul

A Modul geöffnet werden.

Dann schreiben Sie den folgenden Code in die Modul . 

 Sub LastRow_SpecialCells() Dim LastRow As Long LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row MsgBox LastRow End Sub

Hier habe ich eine Unterprozedur namens LetzteZeile_SpezialZellen , wobei a Lang Typ der Variablen LetzteZeile erklärt worden ist.

Definieren Sie dann die Variable mit der Option Bereich.SpezialZellen Hier habe ich die Spalte A ( A:A ) als Bereich. vorausgesetzt xlCellTypeLastCell als Typ-Parameter von SpezielleZellen wird die letzte Zelle des Bereichs zurückgegeben (in diesem Fall aus der Spalte A ).

Ich habe ein Nachrichtenfeld verwendet, um das Ergebnis anzuzeigen.

Und dann, Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück.

Öffnen Sie erneut die Siehe tab>> von Makros auswählen Makros anzeigen

Dann wird ein Dialogfeld auftauchen.

Nun, von der Makro-Name wählen Sie die LetzteZeile_SpezialZellen wählen Sie auch die Arbeitsmappe in Makros in .

Endlich, ausführen. die ausgewählten Makro .

Daraufhin wird ein Meldungsfenster mit der letzten Zeilennummer eingeblendet.

2. die Verwendung von Rows.Count für nicht leere Zellen

Sie können die Rows.Count Methode zum Auffinden der letzten Zeile mit VBA .

Öffnen Sie nun die Entwickler tab>> dann wählen Sie Visual Basic

Ein neues Fenster von Microsoft Visual Basic für Anwendungen auftauchen.

Nun, von einfügen. auswählen Modul

A Modul geöffnet werden.

Dann schreiben Sie den folgenden Code in die Modul . 

 Sub LastRow_NonEmpty() Dim LastRow As Long LastRow = Cells(Rows.Count, 1).End(xlUp).Row MsgBox LastRow End Sub

Hier habe ich eine Unterprozedur namens LastRow_NonEmpty erstellt, in der eine Lang Typ der Variablen LetzteZeile erklärt worden ist.

Jetzt, ZELLEN(Zeilen.Anzahl, 1) zählt, wie viele Zeilen sich in der ersten Spalte befinden, und verwendet dann Ende(xlUp).Zeile Damit wird die zuletzt verwendete Zeile in einem Excel-Bereich gefunden.

Am Ende habe ich das Ergebnis in einem Nachrichtenfeld angezeigt.

Dann, Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück.

Hier öffnen Sie die Siehe tab>> von Makros auswählen Makros anzeigen

Nun, ein Dialogfeld auftauchen.

Dann, vom Makro-Name wählen Sie die LetzteZeile_NichtLeer wählen Sie auch die Arbeitsmappe in Makros in .

Endlich, Laufen lassen die ausgewählten Makro .

Daraufhin wird ein Meldungsfenster mit der letzten Zeilennummer eingeblendet.

3. mit Rows.Count für eine beliebige ausgewählte Spalte

Durch die Verwendung einer beliebigen ausgewählten Spalte in VBA, können Sie die letzte Zeile finden.

Öffnen Sie zunächst die Entwickler tab>> dann wählen Sie Visual Basic

Ein neues Fenster von Microsoft Visual Basic für Anwendungen auftauchen.

Nun, von einfügen. auswählen Modul

A Modul geöffnet werden.

Dann schreiben Sie den folgenden Code in die Modul . 

 Sub LastRow_AnyColumn() Dim LastRow As Long LastRow = Range("B" & Rows.Count).End(xlUp).Row MsgBox LastRow End Sub

Hier habe ich eine Unterprozedur namens LastRow_AnyColumn erstellt, in der eine Lang Typ der Variablen LetzteZeile erklärt worden ist.

Dann, in der Bereich in der Spalte B als Parameter und auch Rows.Count wird gezählt, wie viele Zeilen in einer bestimmten Spalte vorhanden sind B Weiter, gebraucht Ende(xlup). Zeile die die zuletzt verwendete Zeile in einem Excel-Bereich findet.

Zuletzt habe ich ein Nachrichtenfeld verwendet, um das Ergebnis anzuzeigen.

Nächste, Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück.

Öffnen Sie dann die Siehe tab>> von Makros auswählen Makros anzeigen

Hier wird ein Dialogfeld auftauchen.

Nun, von der Makro-Name wählen Sie die LetzteZeile_beliebigeSpalte wählen Sie auch die Arbeitsmappe in Makros in .

Endlich, ausführen. die ausgewählten Makro .

Daraufhin wird ein Meldungsfenster mit der letzten Zeilennummer eingeblendet.

Ähnliche Lektüre:

  • VBA Find in Column in Excel (7 Ansätze)
  • Suchen und Ersetzen mit VBA (11 Möglichkeiten)
  • Exakte Übereinstimmung mit VBA in Excel finden (5 Möglichkeiten)
  • Wie man mit VBA in Excel eine Zeichenfolge findet (8 Beispiele)

4. usedRange verwenden, um die letzte Zeile zu finden

Sie können die GebrauchtBereich Eigenschaft des Arbeitsblatts, um die letzte Zeile zu finden, indem Sie VBA .

Öffnen Sie nun die Entwickler tab>> dann wählen Sie Visual Basic

Dann wird ein neues Fenster von Microsoft Visual Basic für Anwendungen auftauchen.

Nun, von einfügen. auswählen Modul

A Modul geöffnet werden.

Schreiben Sie dann den folgenden Code in die Datei Modul . 

 Sub LastRow_UsedRange() Dim LastRow As Long LastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row MsgBox "Letzte Zeile: " & LastRow End Sub

Hier habe ich eine Unterprozedur namens LastRow_UsedRange erstellt, in der eine Lang Typ der Variablen LetzteZeile erklärt worden ist.

Als Nächstes definieren Sie die Variable mit der Option ActiveSheet.UsedRange.Rows Methode auch vorgesehen ActiveSheet.UsedRange.Rows.Count als Parameter von ActiveSheet.UsedRange.Rows wird die letzte Zeile zurückgegeben.

Ich habe ein Nachrichtenfeld verwendet, um das Ergebnis anzuzeigen.

Jetzt, Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück.

Öffnen Sie dann die Siehe tab>> von Makros auswählen Makros anzeigen

Als nächstes wird eine Dialogfeld auftauchen.

Dann, vom Makro-Name wählen Sie die LetzteZeile_BenutzterBereich wählen Sie auch die Arbeitsmappe in Makros in .

Endlich, ausführen. die ausgewählten Makro .

Daraufhin wird ein Meldungsfenster mit der letzten Zeilennummer eingeblendet.

5. mit Range.Find die letzte Zeile suchen

Sie können die Bereich.Finden Methode zum Auffinden der letzten Zeile mit VBA .

Öffnen Sie nun die Entwickler tab>> dann wählen Sie Visual Basic

Hier wird ein neues Fenster von Microsoft Visual Basic für Anwendungen auftauchen.

Nun, von einfügen. auswählen Modul

A Modul geöffnet werden.

Dann schreiben Sie den folgenden Code in die Modul . 

 Sub Range_Find_Method() Dim LastRow As Long On Error Resume Next LastRow = Cells.Find(What:="*", _ After:=Range("A1"), _ LookAt:=xlPart, _ LookIn:=xlFormulas, _ SearchOrder:=xlByRows, _ SearchDirection:=xlPrevious, _ MatchCase:=False).Row On Error GoTo 0 MsgBox "Last Row: " & LastRow End Sub

Hier habe ich eine Unterprozedur namens Range_Find_Method erstellt, in der eine Lang Typ der Variablen LetzteZeile erklärt worden ist.

Definieren Sie dann die Variable mit der Option Zellen.finden Hier wurden 7 Parameter deklariert. In Was Ich habe den Parameter "*" verwendet, der die erste nicht leere Zelle findet. gegeben A1 als der Bereich in der Nach Parameter zu starten. In der LookAt angegebener Parameter xlPart um einen beliebigen Teil des Textes innerhalb der Zelle zu betrachten.

LookIn:=xlFormulas Parameter sucht nach Formeln, wenn es welche gibt. SearchOrder:=xlByRows bewegt sich von rechts nach links und durchläuft jede Zeile in einer Schleife, bis er eine nicht leere Zelle findet.

MatchCase:=False sagt der Parameter finden. Wenn ein Nicht-Leerzeichen gefunden wird, bleibt es stehen und gibt die Zeilennummer zurück.

Ich habe ein Nachrichtenfeld verwendet, um das Ergebnis anzuzeigen.

Jetzt, Speichern Sie den Code und kehren Sie zum Arbeitsblatt zurück.

Hier öffnen Sie die Siehe tab>> von Makros auswählen Makros anzeigen

Nun, ein Dialogfeld auftauchen.

Nun, von der Makro-Name wählen Sie die Bereich_Finden_Methode wählen Sie auch das Arbeitsblatt in Makros in .

Endlich, ausführen. die ausgewählten Makro .

Daraufhin wird ein Meldungsfenster mit der letzten Zeilennummer eingeblendet.

Schlussfolgerung

In diesem Artikel erkläre ich 5 Wege, um VBA die letzte Zeile in Excel zu finden. Sie können jede der Methoden befolgen, um die letzte Zeile zu finden. Falls Sie irgendwelche Unklarheiten oder Fragen zu diesen Methoden haben, können Sie unten einen Kommentar abgeben.

Vorherigen Post Wie man jede andere Zeile in Excel auswählt (6 Wege)
Nächster Beitrag Steuerrechner für Selbstständige in Excel-Tabelle (mit einfachen Schritten erstellen)

Hugh West ist ein äußerst erfahrener Excel-Trainer und -Analyst mit über 10 Jahren Erfahrung in der Branche. Er verfügt über einen Bachelor-Abschluss in Rechnungswesen und Finanzen sowie einen Master-Abschluss in Betriebswirtschaft. Hugh hat eine Leidenschaft für das Unterrichten und hat einen einzigartigen Lehransatz entwickelt, der leicht zu befolgen und zu verstehen ist. Seine Expertenkenntnisse in Excel haben Tausenden von Studenten und Berufstätigen auf der ganzen Welt geholfen, ihre Fähigkeiten zu verbessern und in ihrer Karriere herausragende Leistungen zu erbringen. Über seinen Blog teilt Hugh sein Wissen mit der Welt und bietet kostenlose Excel-Tutorials und Online-Schulungen an, um Einzelpersonen und Unternehmen dabei zu helfen, ihr volles Potenzial auszuschöpfen.