Wie findet man in Excel die letzte Zeile oder Spalte mit Daten?
In einem großen Arbeitsblatt können Sie die letzte Zeile oder Spalte mit Inhalten schnell und einfach finden, indem Sie einfach die Bildlaufleiste ziehen. Wird Ihr Arbeitsblatt jedoch um Tausende von Datenzeilen erweitert, gestaltet sich diese Methode als mühsam. In diesem Artikel stelle ich Ihnen einige nützliche VBA-Codes vor, mit denen Sie diese Aufgabe mühelos bewältigen können.
Finden der Letzte Zeile oder Spalte mit Daten mithilfe von VBA-Code
Finden und Auswählen der Letzte Zeile oder Spalte mit Daten mit Kutools für Excel
Finden der Letzte Zeile oder Spalte mit Daten mithilfe von VBA-Code
Die meisten von uns denken wahrscheinlich daran, die letzte Zelle mithilfe der Tastenkombination Strg + Ende zu lokalisieren, um die letzte Zeile und Spalte zu finden. Diese Tastenkombination springt jedoch nicht zur tatsächlich letzten belegten Zelle, wenn unterhalb des Datenbereichs formatierte Zellen vorhanden sind. Verwenden Sie daher bitte den folgenden VBA-Code:
1. Aktivieren Sie das Arbeitsblatt, für das Sie die letzte Zeile oder Spalte mit Daten ermitteln möchten.
2. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.
3. Klicken Sie anschließend auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.
VBA-Code: Finden der Letzte Zeile mit Daten
Sub sblastRowOfASheet()
'Update 20140603
Dim xLastRow As Long
xLastRow = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Row
MsgBox "Last Used Row: " & xLastRow
Do While Application.CountA(ActiveSheet.Rows(xLastRow)) = 0 And xLastRow <> 1
xLastRow = xLastRow - 1
Loop
MsgBox "Last Row with Data: " & xLastRow
End Sub
4. Drücken Sie anschließend die F5-Taste, um diesen Code auszuführen. Es erscheint ein Meldungsfeld, das Ihnen die Zeilennummer des verwendeten Bereichs anzeigt. Siehe Screenshot:
5. Klicken Sie erneut auf die OK-Schaltfläche. Diesmal wird die letzte Zeilennummer mit Werten wie im folgenden Screenshot angezeigt:
Hinweis:Um die Letzte Spalte mit Daten zu finden, wenden Sie bitte diesen Code an:
VBA-Code: Finden der Letzte Spalte mit Daten
Sub sblastcolumnOfASheet()
'Update 20140603
Dim xLastcolumn As Long
xLastcolumn = Application.ActiveSheet.Cells.SpecialCells(xlLastCell).Column
MsgBox "Last Used column: " & xLastcolumn
Do While Application.CountA(ActiveSheet.Columns(xLastcolumn)) = 0 And xLastcolumn <> 1
xLastcolumn = xLastcolumn - 1
Loop
MsgBox "Last column with Data: " & xLastcolumn
End Sub
Finden und Auswählen der Letzte Zeile oder Spalte mit Daten mit Kutools für Excel
Wenn Sie direkt die letzte Zeile oder Spalte mit Daten in Excel finden und auswählen möchten, helfen Ihnen die Funktionen Zeile auswählen und Spalte auswählen von Kutools für Excel. Gehen Sie dazu wie folgt vor.
1. Wenn Sie die letzte Zeile mit Daten finden und auswählen möchten, klicken Sie auf Kutools > Auswählen > Die letzte Zelle auswählen > Letzte Zeile. Siehe Screenshot:
Hinweis: Um die letzte Spalte mit Daten zu finden und auszuwählen, klicken Sie auf Kutools > Auswählen > Die letzte Zelle auswählen > Letzte Spalte.
Anschließend wird die letzte Zeile oder Spalte mit Daten im aktuellen Arbeitsblatt sofort erkannt und ausgewählt.
Wenn Sie eine kostenlose 30-Tage-Testversion dieses Dienstprogramms nutzen möchten, klicken Sie bitte hier, um sie herunterzuladen, und führen Sie anschließend die Aktion gemäß den oben beschriebenen Schritten aus.
Demo: Finden und Auswählen der Letzte Zeile oder Spalte mit Daten mit Kutools für Excel
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins