Clever-Excel-Forum

Normale Version: Letzte Zeile von Datentabelle ermitteln
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Hallo,

ich habe zwei Exceldateien (Transfertest.xlsm und master.xlsm). In der Transfertsest.xlsm befinden sich gefilterte Daten die ich mit dem integrierten CommandButton in die master.xlsm transferieren möchte. Die Daten
sollen immer wieder in die Datei geschrieben werden und zwar immer unter die letzte gefundenen Zeile. Das funktionierte auch immer super, aber seitdem ich der master.xlsm eine Tabelle (blauer Rahmen) draus gemacht habe, werden die Daten am Ende des Rahmens kopiert und nicht wenn sie leer ist unter die Überschriften oder bei schon einer Befüllung unter die letzte Zeile. Was kann ich tun, damit es wieder so funktioniert, wie es ohne diese Rahmen funktioniert hat. Sinn und Zweck von dem Rahmen ist eine spätere Pivotausawertung


Im Anhang befinden sich die Datein dazu. Für die Transferextern.xlsm muss der Pfad noch angepasst werden.

Ich hoffe irgendjemand kann mir bei diesem Problem helfen

Schon mal Dankeschön im Voraus
Liebe Grüße
Halölo,

mit xlUp kommst Du bei einer "Tabelle" vom unteren Ende das Blattes an das untere Ende der "Tabelle". Wenn Du sicher sein kannst, dass Deine Tabelle nicht bis ans Ende gefüllt ist, wiederhole das einfach nochmal.

Unabhängig davon ist es nicht gerade sinnvoll, Zeilen einer "Tabelle" auf Vorrat anzulegen - die erweitert sich beim Anfügen von Daten von selbst.

Mal noch zum Schluss ein Tipp -
objTable.DataBodyRange.CurrentRegion.Row

findet die Zahl der gefüllten Datenzeilen, ausgenommen es sind leere Zeilen dazwischen und findet bei einer leeren Tabelle ggf. auch die erste Zeile obwohl sie vielleicht leer ist Sad
Moin!

Ergänzend zu André sei gesagt, dass ein "Vorrat" an Tabellenzeilen nicht nur nicht sinnvoll, sondern ausgesprochen kontraproduktiv ist!

Wenn sie entfernt sind, braucht man auch nichts mehr ermitteln, sondern fügt "unten" sehr einfach wie folgt an:

objTable.ListRows.Add

Lesefutter:
https://www.thespreadsheetguru.com/blog/...cel-tables

Gruß Ralf