Office: Altes Spiel, letzte Zeile

"Tabelle1" muss durch den Namen des Tabellenblatts ersetzt werden, auf dem sich das Listobject befindet. Du hast deinen Code vermutlich in ein allgemeines Modul geschrieben, daher kann VBA nicht wissen, wo es das LO finden kann.

Da fügt es leider in der Excel Tabelle ganz oben ein und nicht in der formatierten Tabelle..

Ich habe im VBA Editor bei Excel Mappe -> einfügen Modul:

Code:

ist das das Problem? füge ich den Code falsch ein?

beste grüße

 

Da ich deine Datei weder kenne noch sie momentan anschauen könnte, kann ich dir hier nicht weiterhelfen. Aber du kannst den Code schrittweise mit F8 durchgehen und mal schauen, welchen Wert die Variable Zeile zugewiesen bekommt.

 

Ein Array an fähigen Helfern haben Dir Hinweise und Tipps zur Lösung Deines Problems gegeben!

Janik,
schnauf mal durch und finde einen Weg Dein Problem in Form einer Datei hochzuladen.

 

Danke für eure Geduld und Mühe!

Jetzt habe ich die datei komplett umformartiert und jetzt passt die größe..

mit f8 bekomme ich nach Zeile = ActiveWorkbook.Worksheets("Tabelle1").ListObjects("tbl_Positionen").Range.Rows.Count den Wert 3 für zeile..

habs auch in einer neuen datei versucht mit anderer anordnung der tabelle und dennoch kommt zeile = 3

besten Dank,

lg

 

Code:

Dieser Code gibt Dir die Nummer der letzten Zeile Deiner formatierten Tabelle aus.

In den Posts #2, #4, #5, #9, #15 gab es Hinweise dazu.
Soweit so gut, wenn Du dem zustimmst?

 

hallo Marco!
Danke für deine Mühe!

Leider Spuckt mir dieser Code auch erst ab zeile 3 des Worksheets aus.
die formartierte Tabelle bleibt unberührt.

Ihr kennt euch spitze aus und trotzdem funktioniert es nicht..
Kann sein, dass an meinem excel eine einstellung falsch ist?
Ich hab auch schon eine neuinstallation probiert, leider ohne erfolg..

 

Das ist keine falsche Einstellung. Wenn dein Listobjekt nur 3 Zeilen hat, was soll dann auch anderes rauskommen? Es ist schließlich ein Unterschied, ob ich nur die Zeilen des LO zähle oder die letzte beschriebene Zeile des Blatts ermittle. Und wenn dein LO erst in Zeile 31 beginnt, dann musst du zu der ermittelten Zeilenanzahl halt noch was dazurechnen, nicht wahr?
Ich hatte dich bereits darauf hingewiesen:

Wieso tust du das denn nicht?

 

Danke fürs deine Geduld und fürs erneute darauf hinweisen!
Es klappt jetzt.
Ich habe Range("tbl_Positionen").ListObject.ListRows.Add Alwaysinsert:=True
weiter unten gehabt und das war das Problem.. Ganz einfach die Reihenfolge nicht begriffen.. Es tut mir leid, dass mir dieser Fehler unterlaufen ist und ihr viel Zeit investiert habt um mir zu Helfen..
Danke!


Der Finale Code, welcher super funktioniert:

Code:

Schönen Abend,
und beste Grüße,
Vielen Dank!

 

Hallo,

ich habe die Beiträge nur sehr oberflächlich gelesen, aber ein Problem scheint noch nicht angesprochen zu sein.

Es ist leicht, die letzte Zeile einer Tabelle zu finden, aber da man die Tabelle auch um leere Zeilen erweitern kann, ist nicht garantiert, dass auch die letzte BESCHRIEBENE Zeile erkannt wird.


Ein workaround könnte sein, auf "" zu prüfen und dann ein zweites end(xup) auszuführen.


mfg

 

Moin,

Um einem ListObject Zeilen hinzuzufügen, verwendet man die .Add Methode des .Listrows Unterobjekts.

Viele Grüße
derHöpp

 

Hallo! Danke für deinen Beitrag. Glücklicherweise wird das bei mir in diesem Fall nicht vorkommen, da ich nur Positionen einfüge.. Wenn eine Zeile leer ist, dann wird die Zeile nicht benötigt. Ohnehin hätte ich wahrscheinlich Probleme deinen Rat umzusetzen..

Hallo Mr. Höpp!
Meinst du damit, dass ich meinen Code überarbeiten muss oder
dass es einen schöneren Weg gibt? Ich hoffe, dass du zweiteres meinst, sonst steh ich wieder vor einem großem Problem *biggrin.gif*D


beste Grüße