Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzte beschriebene Zeile aus ListObject auslesen

Forumthread: letzte beschriebene Zeile aus ListObject auslesen

letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 14:14:22
Anna
Hallo,
ich habe in einem Excel Sheet mehrere Tabellen als ListObjects benannt und
brauche jetzt die letzte beschriebene Zeile in Spalte 3 der jeweiligen Tabellen.
Ich steh gerade echt auf dem Schlauch. ich bekomme es hin mir die letzte beschriebene Zeile in einer Msg Box auszugeben...aber leider nicht als String (letzte Zeile = ....) zu speichern... Jemand eine Idee
Im Folgenden mein Code: 
Sub test()
Dim oList As ListObject
Dim adr As String
With Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange
MsgBox .Cells(.Rows.Count, 3).End(xlUp).Row
End With
End Sub


Ich würde gerne sowas in der Art haben, aber es funktioniert nicht:

letzteZeile = Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange.Cells(Rows.Count, 3).End(xlUp).Row

Fehlerausgabe ist 1004: Anwendungs - oder objektdefinierter Fehler
Vielen Dank für eure Tipps
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 14:45:38
Matthias
Hallo
Ich mach das immer so
Mein ListObject ist Tabelle1
Tabelle1.Range("Tabelle1[[#Headers],[Datum]]").End(xlDown). _
Select
MsgBox Selection.Address
Datum ist hier die Überschrift der Spalte deren letzte belegte Zelladresse ich haben will.
Einfach anpassen, Du hast doch sicher eine Überschrift.
Gruß Matthias
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 15:34:50
Anna
Hallo Matthias,
vielen Dank für deine Antwort!
Dein code gibt mir auch die richtige Zeilenanzahl aus, jedoch ebenso als Msg Box. Gibt es eine Möglichkeit, diesen als String oder Integer zu bekommen?
Sowas in der Art?
letzteZeile = Worksheets("Liste1").ListObjects("Tabelle14").DataBodyRange.MsgBox.Cells(Rows.Count + 1, 3).End(xlUp).Row
Vielen Dank
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 15:45:30
Matthias
Nö
Dein code gibt mir auch die richtige Zeilenanzahl aus
Der Code gibt Dir die Zellaresse zurück, diese kannst Du auch in einer Variable speichern
Die Variable mußt Du nur richtig DIMensionieren (Variablen-Deklaration)
Ich werd aber nicht schlau daraus ob Du nun die Adresse oder die Zeilen-Nummer brauchst
Denn:
letzteZeile = ....).End(xlUp).Row
spricht ja eher dafür das Du die Zeile brauchst.
Gruß Matthias
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 21:10:51
Anna
Hallo Matthias,
du hast Recht. Ich brauche die ZeilenNummer & die gibt mir mein Code ja in einer Msg Box aus. Nur weiß ich leider immer noch nicht (auch durch vielfaches probieren) wieso ich den oben genannten Code nicht verwenden kann....bzw. wie kann ich mir die Zeilennummer denn abspeichern?
Ich steh wsl auf dem Schlauch...denn wenn ich es ohne ListObject probiere, klappt es ja auch nur nicht für die Tabelle14 sondern für das gesamte Dokument....
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
08.11.2018 01:52:36
Werner
Hallo Anna,
also ich versteh jetzt das Problem ehrlich gesagt nicht. 
Sub test()
Dim loLetzte As Long
With Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange
loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
MsgBox loLetzte
End With
End Sub
Gruß Werner
Anzeige
Hallo Matthias...
08.11.2018 15:37:21
Werner
...da hast du natürlich recht. Funktioniert nur, wenn die Tabelle nicht vollständig gefüllt ist. Und das sollte ja eigentlich der Fall sein bei intelligenten Tabellen, die nicht auf "Vorrat" zu haben.
Das scheint ja aber wohl bei Anna der Fall zu sein, sonst bekäme sie je ein falsches Ergebnis.
Gruß Werner
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
08.11.2018 13:54:47
Anna
Hallo Werner,
vielen Dank! Du hast mir echt geholfen. Kurz zur Erklräung: Mir war nicht bewusst, dass ich in deinem Fall loletzte = .... in dem With - End With Block stehen darf. Natürlich klappt es so prima!
AW: hier die Lösung ...
08.11.2018 13:54:33
Anna
Hallo Matthias,
danke für deine Antwort + Datei! Hat mir sehr geholfen!
Hallo Werner,
Kurz zur Erklräung: Mir war nicht bewusst, dass ich in deinem Fall loletzte = .... in dem With - End With Block stehen darf. Natürlich klappt es so prima!
AW: letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 15:02:04
EtoPHG
Hallo Anna,
Dein Code test hat den winzigen Fehler, dass der Startpunkt der Aufwärtssuche (xlUp) eine Zeile zu niedrig ist. Korrigiere auf: 
 MsgBox .Cells(.Rows.Count + 1, 3).End(xlUp).Row
Gruess Hansueli
Anzeige
AW: letzte beschriebene Zeile aus ListObject auslesen
07.11.2018 15:31:18
Anna
Hallo EtoPHG,
vielen Dank für deine Antwort! Ich glaube ich hab mich nicht genau ausgedrückt. Die MSG Box zeigt mir schon die richtige Zahl an, jedoch will ich keine Ausgabe in einer Msg Box sondern einen String, den ich im weiteren Code Verlauf benutzen kann.
Sowas geht halt nicht...
letzteZeile = Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange.MsgBox.Cells(Rows.Count + 1, 3).End(xlUp).Row
verstehst du jetzt was ich meinte?
Anzeige
Was ist ein String, und was soll drin sein? (owT)
07.11.2018 15:45:31
EtoPHG

AW: Was ist ein String, und was soll drin sein? (owT)
07.11.2018 21:17:11
Anna
Kurz zur Erklärung: Wenn ich mir die letzte beschriebene Zeile in einem normalen Sheet anzeigen lassen (ohne Tabellen als ListObjects) verwende ich folgenden Code:
letzteZeile = Worksheets("BI15_Wtl").Cells(Rows.Count, 5).End(xlUp).Row
Dabei ist letzteZeile als String deklariert
Dasselbe möchte ich nun innerhalb einer Tabelle(ListObject)in einem Sheet. Wobei unter der Tabelle natürlich auch noch Zeilen stehen...
wie kann ich denn nun die Zeilennummer als Variable (String) bekommen und diese dann auch innerhalb des Codes weiterverwenden
z.B.:
'With Worksheets("Liste12").Cells(letzteZeile + 1, 1)
.Value = "Kurzwahl"
.Font.Bold = True
'End With
Anzeige
Was ist ein String, und was soll drin sein? (owT)
07.11.2018 15:45:33
EtoPHG

OT hast Du doppelt gesendet? owT
07.11.2018 15:46:35
Matthias
Neeeeeeeeeeein, sag auch! sehr informativ! (owT)
07.11.2018 15:48:09
EtoPHG

Anzeige
was ist sehr informativ! (owT)
07.11.2018 15:51:55
Matthias
;

Forumthreads zu verwandten Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
VBA letzte Zeile Ermitteln
Gerhard

Hallo!
Habe ein kleines Problem. Lasse über VBA die letztz Zeile ermitteln.
intPosAktionNummerEnde = Range("K65536").End(xlUp).Offset(0, 0).Row
Das funktioniert immer nur jetzt habe ich in den Zellen eine Formel stehen, die soll aber nicht gezählt werden nur wenn eine Zahl drinnen s...
14.01.2009 17:52:00
Thread-ID: 1039758
5 Beiträge
VBA-AutoMakierung und erkennung der letzten Zeile
Kay

Hallo Forumsgemeinde,
Ich bin VBA-Anfänger und...
...auf der Suche nach einer Lösung für folgendes Problem:
Ich habe diverse Datensätze, welche in ihrem Umfang jedesmal variieren - Sie besitzen immer eine andere Anzahl an Zeilen.
Diese Daten versuche ich mittels diverser Makros...
13.05.2010 13:34:22
Thread-ID: 1156898
8 Beiträge
VBA - letzte Zeile ermitteln
WalterK

Hallo,
für die letzte belegte Zeile in Spalte D habe ich folgende Codezeile gefunden:
Zeletzte = Cells(Rows.Count, 4).End(xlUp).Row
Leider werden hier auch die Formelergebnisse "" mitberücksichtigt.
Wie müßte die Codezeile lauten, wenn für die Ermittlung der letzten belegten Zei...
09.12.2011 11:55:16
Thread-ID: 1241383
6 Beiträge
VBA Funktion kopieren bis zur letzten Zeile
Jannes

Moin Moin,
in Spalte A stehen eindeutige nummer bis z.b. zur Zeile 1000.
In Zelle B1 habe ich eine Formel die ich per Makro bis zur letzten zelle in A unterkopieren möchte.
So weit so gut.
Wenn ich in A neue Werte einfüge ( mehr oder weniger als 1000), soll das Makro die Formel...
09.01.2014 17:48:02
Thread-ID: 1344663
9 Beiträge
VBA Seite in Tabelle ansprechen
Müller

Hallo.
Ich habe ein Skript, welches mir meine Daten in Datenpaare trennt und dann per pagesetup an die Seitengröße anpasst.
Nun habe ich das Problem, dass die Daten teilweise so getrennt werden, dass ein Teil auf Seite 1 steht und der andere Teil in der ersten Zeile der Seite 2.
Gib...
09.04.2015 13:00:40
Thread-ID: 1419902
3 Beiträge
Anzeige
VBA-Kopie-mit ermitteln letzte Zeile
Andi

Guten Morgen,
Wie kann ich in folgenden Befefehl Option Explicit
Sub KopiereBlatt_() 'Tabelle1 als Sicherheitskopie in KopieOriginal speichern Dim var For Each var In ThisWorkbook.Sheets If var.Name = "Kopie Original" Then If MsgBox("Das Blatt 'Kopie Original' gibt es schon." & vbCr...
22.10.2016 09:45:57
Thread-ID: 1521164
4 Beiträge
VBA -MSG- Finde letzte Zeile und Lösche nach oben
Leon

Hallo,
habe hier im Forum eine interessante Funktion gefunden- sehr brauchbar. Hatte Christan mal entworfen.
Damit wir die letzte beschriebene Zelle gefunden. Das Funktioniert sehr gut.
Ist es möglich, diese FunKtion etwas abzuändern?
* Beim finden der letzten Zeile auch dort...
23.10.2016 10:07:43
Thread-ID: 1521255
5 Beiträge
VBA: kopiere letzte gefüllte Zeile
Bernd

Hallo zusammen,
hab gerade einen Blackout, brauch mal Hilfe.
Folgendes: Kopiere aus Tabellle2 die letzte gefüllte Zeile, aber nur die Spalten A bis D und füge sie in der ersten freien Zeile in Tabelle 1 in Spalte A bis D wieder ein.
Vielen Dank im Voraus!!!
Gruß aus Bremen
B...
10.10.2017 17:36:50
Thread-ID: 1585113
6 Beiträge
VBA letzter befuellter Wert in einer Zeile auslese
ThoScho

Hallo liebe Forum Gemeinschaft
Ich habe da ein kleine Problem und hoffe ihr könnt mir da weiter helfen.
Ich importiere eine Tabelle, die immer unterschiedlich groß sein kann.
Vor einer bestimmten Spalte in der Tabelle füge ich eine neue Spalte ein und will in dieser den quasi "aktue...
13.03.2018 12:35:16
Thread-ID: 1613935
3 Beiträge
VBA Werte aus Formular in Excel blatt letzte Zeile
Steffen

Hallo Excel -Freunde ,
habe folgendes Problem ,ich möchte mir eine Datenbank erstellen zur Arbeitserleichterung und Fehlerverwaltung ,möchte Auswahl-Werte aus TextBox, Combobox etc. in mein Excel-Tabellenblatt "Mängelbericht" 2. Blatt eintragen lassen ,leider bekomme ich eine Fehlermeldun...
26.02.2019 23:47:05
Thread-ID: 1678105
11 Beiträge
Anzeige
VBA Automatisch zweitletzte Zeile erkennen
Pascal

Hallo zusammen,
Ich würde gerne per VBA eine Lösung zu meinen Problem erarbeiten.
Folgendes:
Ich bekomme mehrere Dateien die immer gleich aussehen nur nie gleich lang sind (Menge der Zeilen unterschiedlich). Nun würde ich gerne in der ersten Zeile eine neue Zeile einfügen lassen sod...
29.03.2019 10:24:01
Thread-ID: 1684039
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Letzte beschriebene Zeile aus ListObject auslesen

Schritt-für-Schritt-Anleitung

  1. Öffne das VBA-Fenster: Drücke ALT + F11, um das VBA-Entwicklungsfenster zu öffnen.

  2. Erstelle ein neues Modul: Klicke mit der rechten Maustaste in den Projekt-Explorer, wähle Einfügen und dann Modul.

  3. Füge den Code ein: Verwende den folgenden VBA-Code, um die letzte beschriebene Zeile in einer ListObject (intelligente Tabelle) zu ermitteln:

    Sub test()
   Dim loLetzte As Long
   With Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange
       loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
   End With
   MsgBox loLetzte
End Sub

  4. Führe den Code aus: Klicke auf F5 oder wähle Ausführen aus dem Menü, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Fehler 1004: Anwendungs- oder objektdefinierter Fehler: Dieser Fehler tritt auf, wenn das ListObject nicht korrekt angesprochen wird. Stelle sicher, dass der Tabellenname (Tabelle14) und der Arbeitsblattname (Liste12) exakt stimmen.
  • Falsche Zeilenanzahl: Wenn der Code nicht die erwartete Zeilenanzahl zurückgibt, überprüfe, ob deine Tabelle vollständig gefüllt ist oder ob es Leerzeilen gibt.

Alternative Methoden

Wenn du die letzte beschriebene Zeile in einer ListObject ermitteln möchtest, gibt es verschiedene Ansätze:

  • Verwendung von .ListRows.Count:

    Dim letzteZeile As Long
letzteZeile = Worksheets("Liste12").ListObjects("Tabelle14").ListRows.Count

  • Direktes Ansprechen der Zelle:

    Dim letzteZeile As Long
letzteZeile = Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange.Cells(3, 1).Row

Praktische Beispiele

  1. Letzte Zeile in Spalte 3 ausgeben:

    Sub letzteZeileAusgeben()
   Dim loLetzte As Long
   With Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange
       loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row
   End With
   Debug.Print "Die letzte Zeile in Spalte 3 ist: " & loLetzte
End Sub

  2. Wert in die nächste Zeile schreiben:

    Sub WertInNaechsteZeileSchreiben()
   Dim loLetzte As Long
   With Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange
       loLetzte = .Cells(.Rows.Count, 3).End(xlUp).Row + 1
       .Cells(loLetzte, 3).Value = "Neuer Wert"
   End With
End Sub

Tipps für Profis

  • Verwende Option Explicit: Dies hilft, Fehler bei der Variablen-Deklaration zu vermeiden, indem alle Variablen deklariert werden müssen.
  • Vermeide magische Zahlen: Statt 3 für die Spalte zu verwenden, definiere eine Konstante oder eine Variable, um die Lesbarkeit des Codes zu verbessern.
  • Nutze Error Handling: Füge Fehlerbehandlungsroutinen hinzu, um unerwartete Fehler abzufangen und besser zu diagnostizieren.

FAQ: Häufige Fragen

1. Wie speichere ich die Zeilennummer als String? Du kannst die Zeilennummer als Integer speichern und bei Bedarf in einen String umwandeln:

Dim letzteZeile As Long
letzteZeile = Worksheets("Liste12").ListObjects("Tabelle14").DataBodyRange.Cells(Rows.Count, 3).End(xlUp).Row
Dim letzteZeileString As String
letzteZeileString = CStr(letzteZeile)

2. Was ist der Unterschied zwischen DataBodyRange und ListRows? DataBodyRange gibt den Bereich der Daten zurück, während ListRows eine Sammlung von Zeilen innerhalb des ListObjects darstellt. ListRows.Count gibt die Anzahl der belegten Zeilen zurück, während DataBodyRange auf die tatsächlich in der Tabelle enthaltenen Daten verweist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige