Inhaltsverzeichnis
Bei der Arbeit mit Microsoft Excel ist die Suche nach den letzten Zeilen oder Spalten eine häufige Aufgabe. Wir verwenden die Tastatur, um die zuletzt verwendeten Zeilen oder Spalten zu finden. Aber vielleicht befinden Sie sich in einer Situation, in der Sie die letzte verwendete Zeile aus einem komplexen Datensatz finden müssen. In diesem Tutorial lernen Sie, wie Sie die letzte Zeile mit Daten in einem Bereich mithilfe von VBA in Excel mit praktischen Beispielen und geeigneten Illustrationen finden.
Download Arbeitsbuch Praxis
Laden Sie dieses Übungsheft herunter.
Letzte verwendete Zeile in einem Bereich finden.xlsm7 Methoden zum Suchen der letzten Zeile mit Daten in einem Bereich mit Excel-VBA-Makros
In den folgenden Abschnitten stellen wir Ihnen sieben Methoden vor, die Ihnen helfen werden, die letzte Zeile mit Daten in einem Bereich mit Hilfe von VBA in Excel zu finden. Wir empfehlen Ihnen, alle diese Methoden zu lernen und anzuwenden, um Ihr Excel-Wissen zu erweitern.
📕 Mehr lesen : Suchen der letzten Zelle mit Wert in einer Zeile in Excel (6 Methoden)
Zur Veranschaulichung dieses Lehrgangs werden wir diesen Datensatz verwenden:
Hier haben wir einen Datensatz mit einigen Spielerinformationen, anhand dessen wir Ihnen alle Methoden beibringen werden.
VBA-Editor öffnen
Bevor wir beginnen, möchten wir Sie daran erinnern, dass Sie den VBA-Editor in Excel öffnen müssen.
Drücken Sie zunächst Alt+F11 auf Ihrer Tastatur und wählen Sie dann Einfügen> Modul. Daraufhin wird der VBA-Editor von Excel geöffnet.
1. die Verwendung der Eigenschaft Range.end zum Suchen der letzten Zeile mit Daten in einem Bereich mit VBA
Diese Methode findet im Grunde das Ende eines Bereichs, vor allem den zuletzt verwendeten Zellbereich. Wir können diese Methode verwenden, um die letzte Zeile mit Daten in einem bestimmten Bereich zu finden. Die Verwendung von VBA wird Ihnen die gewünschten Ergebnisse liefern.
📌 Schritte
① Öffnen Sie zunächst die VBA Herausgeber.
② Geben Sie dann den folgenden Code ein:
Sub range_end_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = Range("B4").End(xlDown).Row MsgBox "Last used row: " & LastRow End Sub ③ Speichern Sie die Datei und drücken Sie dann Alt+F8 um das Dialogfeld Makro zu öffnen. Wählen Sie bereich_ende_methode
④ Klicken Sie anschließend auf Ausführen.
Wie Sie sehen, haben wir mit VBA in Excel erfolgreich die letzte Zeile mit Daten in einem Bereich gefunden.
2. die Eigenschaft Range.Find von VBA in Excel
In VBA verwenden wir die Methode Range.Find, um nach einem bestimmten Wert in einem Datensatz zu suchen. Aber diese Methode ist nützlich, um die letzte Zeile mit Daten in einem Bereich zu finden. Sie funktioniert wie das Dialogfeld Suchen & Ersetzen von Excel. Die Methode Range.Find hat viele Argumente, aber wir werden sie nicht alle verwenden.
Bevor wir die Methode Range.Find verwenden, sollten wir Ihnen einige kurze Informationen geben:
Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious)
Was := "*" - Das Sternchen ist ein Platzhalterzeichen, das jeden Text oder jede Zahl in der Zelle aufdeckt. Es ist im Wesentlichen dasselbe wie die Suche nach einer nicht leeren Zelle.
SearchOrder:=xlByRows - Dies bedeutet, dass jede ganze Zeile durchsucht wird, bevor man zur nächsten gelangt. Die Richtung wird von links nach rechts oder von rechts nach links durchsucht, je nach dem Argument SearchDirection. Die zusätzliche Option hier ist xlByColumns, die beim Auffinden der letzten Spalte verwendet wird.
SearchDirection:=xlPrevious - Damit wird festgelegt, in welche Richtung gesucht werden soll. xlPrevious bedeutet, dass von rechts nach links oder von unten nach oben gesucht wird. Die andere Alternative ist xlNext, die in die entgegengesetzte Richtung geht.
📌 Schritte
① Öffnen Sie zunächst den VBA-Editor.
② Geben Sie dann den folgenden Code ein:
Sub range_find_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.Find("*", searchorder:=xlByRows, searchdirection:=xlPrevious).Row MsgBox "Letzte verwendete Zeile: " & LastRow End Sub ③ Speichern Sie nun die Datei. Drücken Sie dann Alt+F8, um das Dialogfeld Makro zu öffnen. Wählen Sie range_find_method.
④ Danach klicken Sie auf ausführen. .
Am Ende wird die letzte Zeile mit Daten in unserem Excel-Arbeitsblatt gefunden.
3. die Funktion SpecialCells verwenden, um die letzte Zeile mit VBA zu finden
Diese Methode funktioniert wie das Drücken von Strg+Ende Wenn Sie Strg+Ende auf Ihrer Tastatur drücken, gelangen Sie immer zur letzten Zeile, egal wo Sie sich befinden. Wenn Sie jedoch die zuletzt verwendete Zeile mit Daten mithilfe von VBA-Codes in Excel finden möchten, ist dieser Code ein Muss für Sie.
📌 Schritte
① Öffnen Sie zunächst den VBA-Editor.
② Geben Sie dann den folgenden Code ein:
Sub specialcells_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Cells.SpecialCells(xlCellTypeLastCell).Row MsgBox "Letzte verwendete Zeile: " & LastRow End Sub ③ Speichern Sie nun die Datei. Drücken Sie dann Alt+F8, um das Dialogfeld Makro zu öffnen. Wählen Sie spezielle_Zellen_Methode .
④ Danach klicken Sie auf ausführen. .
Wie Sie sehen, ist es uns gelungen, mit VBA in Excel die letzte Zeile mit Daten zu finden.
4 Verwenden der UsedRange-Funktion zum Suchen der letzten Zeile mit Daten in einem Bereich
UsedRange in VBA ist eine Eigenschaft des Arbeitsblatts, die ein Bereichsobjekt zurückgibt, das den verwendeten Bereich (alle verwendeten oder geladenen Excel-Zellen in einem Arbeitsblatt) auf einem bestimmten Arbeitsblatt darstellt.
📌 Schritte
① Öffnen Sie zunächst den VBA-Editor.
② Geben Sie dann den folgenden Code ein:
Sub usedRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row MsgBox "Last used row: " & LastRow End Sub ③ Speichern Sie nun die Datei. Drücken Sie dann Alt+F8, um das Dialogfeld Makro zu öffnen. Wählen Sie Bereich_Methode verwendet.
④ Danach klicken Sie auf ausführen. .
Schließlich sehen Sie die zuletzt verwendete Zeile auf einem Arbeitsblatt in Excel erfolgreich.
5. die Verwendung von Tabellenbereichen mit VBA in Excel
Wenn Sie eine Tabelle in Ihrem Arbeitsblatt haben, können Sie mit dieser Methode die letzte Zeile mit Daten finden.
📌 Schritte
① Öffnen Sie zunächst den VBA-Editor.
② Geben Sie dann den folgenden Code ein:
Sub TableRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.ListObjects("Table1").Range.Rows.Count + 3 MsgBox "Letzte verwendete Zeile: " & LastRow End Sub Hinweis Hier fügen wir 3 mit der letzten Zeile hinzu, da unser Datensatz nach Zeile 3 begann.
③ Speichern Sie nun die Datei. Drücken Sie dann Alt+F8, um das Dialogfeld Makro zu öffnen. Wählen Sie TableRange_method.
④ Danach klicken Sie auf ausführen. .
Wie Sie sehen können, haben wir die Tabellenbereich-Methode in VBA-Codes erfolgreich verwendet, um die letzte Zeile mit Daten in Excel zu finden.
6 Verwendung des benannten Bereichs zum Suchen der letzten Zeile mit Daten in einem Bereich
Diese Methode wird in Excel nicht häufig verwendet, aber wir denken, dass Sie sie lernen sollten, um Ihr Wissen zu erweitern.
Wenn Ihr Datensatz einen benannten Bereich hat, können Sie diesen Code verwenden. Sehen Sie sich den folgenden Screenshot an. Er enthält einen benannten Bereich.
📌 Schritte
① Öffnen Sie zunächst den VBA-Editor.
② Geben Sie dann den folgenden Code ein:
Sub nameRange_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("Named_Range").Rows.Count + 1 MsgBox "last used row: " & LastRow End Sub Hinweis Wir fügen 1 zu LastRow hinzu, weil unser Bereich nach Zeile 1 begann.
③ Speichern Sie nun die Datei und drücken Sie Alt+F8 um das Dialogfeld Makro zu öffnen. Wählen Sie nameRange_method.
④ Klicken Sie anschließend auf Ausführen.
Wie Sie sehen, ist es uns gelungen, mit VBA die letzte Zeile mit Daten zu finden.
7. die Funktion CurrentRegion von VBA in Excel
Sie können auch die CurrentRegion-Methode von VBA verwenden, um die zuletzt verwendete Zeile in Excel zu finden. Das ist zwar schwierig, aber Sie können dies zu Ihrem Vorteil nutzen.
📌 Schritte
① Öffnen Sie zunächst den VBA-Editor.
② Geben Sie dann den folgenden Code ein:
Sub CurrentRegion_method() Dim sht As Worksheet Dim LastRow As Long Set sht = ActiveSheet LastRow = sht.Range("B4").CurrentRegion.Rows.Count + 3 'Zahlen nach Wahl hinzufügen' MsgBox "Letzte verwendete Zeile: " & LastRow End Sub Hinweis Bereich sollte die erste Zelle Ihres Datensatzes sein. Fügen Sie die Zeilennummer nach Ihrer Wahl hinzu. Hier haben wir 3 hinzugefügt, weil unser Datensatz nach Zeile 3 begann.
③ Speichern Sie nun die Datei. Drücken Sie dann Alt+F8, um das Dialogfeld Makro zu öffnen. Wählen Sie CurrentRegion_method
④ Klicken Sie anschließend auf Ausführen.
Wie Sie sehen, haben wir mit Hilfe des VBA-Codes erfolgreich die letzte Zeile mit Daten gefunden.
💬 Dinge zum Merken
✎ Range.End funktioniert nur für eine einzelne Zeile oder Spalte. Wenn Ihr Datensatz viele leere Zellen enthält, ist es schwierig, die letzte Zeile mit Daten zu finden.
✎ Manchmal müssen Sie Ihren Methoden einige Werte hinzufügen, damit der Code reibungslos funktioniert. Wir haben Zeilennummern hinzugefügt, um die letzte Zelle zu finden. Sie müssen sich also merken, wo Ihr Datensatz begonnen hat.
Schlussfolgerung
Abschließend hoffe ich, dass dieses Tutorial Ihnen nützliches Wissen vermittelt hat, um die letzte Zeile mit Daten in einem Bereich mit VBA in Excel zu finden. Wir empfehlen Ihnen, alle diese Anweisungen zu lernen und auf Ihren Datensatz anzuwenden. Laden Sie die Übungsarbeitsmappe herunter und probieren Sie sie selbst aus. Sie können uns auch gerne Ihr Feedback im Kommentarbereich geben. Ihr wertvolles Feedback motiviert uns, Tutorials wie diese zu erstellen.
Vergessen Sie nicht, unsere Website zu besuchen Exceldemy.com für verschiedene Excel-bezogene Probleme und Lösungen.
Lernen Sie weiter neue Methoden und wachsen Sie weiter!
