VBA Zeilen verschieben IN intelligente Tabelle

[StefanB]

Hallo @ all,

ich schon wieder...

Siehe Anhang...ich würde gerne Zeilen von Tabelle (Eingang) nach Tabelle (Archiv) verschieben wollen und zwar in und nicht unter die Tabelle (Archiv). Man könnte nun vorab großzügig die Tabellengröße ändern, aber genau das wollte ich eigentlich nicht. Schön wäre es, wenn die sich automatisch erweitert, genauso wie in der Tabelle (Eingang) wenn Daten hinzugefügt werden. Das Selbe wäre dann mit der Tabelle (gefiltert). Nur das hier Formeln das Einfügen übernehmen.

Besten Dank 

[RPP63]

Moin!
Ohne mir die Datei angesehen zu haben:
With ActiveSheet.ListObjects("Table1").ListRows.Add

Schau mal auf diese Seite, da wird das Objektmodell von ListObjects gut beschrieben:
https://www.thespreadsheetguru.com/blog/...cel-tables

Gruß Ralf

[StefanB]

Hey Ralf,

ohne es probiert zu haben, schon mal ein fettes Danke. Ich schau´s mir morgen mal an.

[StefanB]

Hallo Ralf,

ich hab´s mir eben mal angesehen. Also so richtig durchsehen tue ich da noch nicht.   
Ich nutze aber nochmal das WE und wenn dann nichts gescheites bei raus kommt würde ich mich freuen wenn ich ein wenig Unterstützung kriegen könnte...

[StefanB]

Guten Abend,

ich geb auf  ich schnall das nicht. Wer kann mir helfen?

[RPP63]

Moin!
Da gibt aber einer schnell auf.
Das Objektmodell ListObjects erfordert nun mal das Lernen einiger neuer Vokabeln:

Sub verschieben_RPP()
If Not Intersect(Tabelle1.ListObjects(1).DataBodyRange, ActiveCell) Is Nothing Then
  With Tabelle2.ListObjects(1)
    .ListRows.Add , True
    Tabelle1.Cells(ActiveCell.Row, 1).Resize(1, 4).Copy .DataBodyRange(.ListRows.Count, 1)
  End With
End If
End Sub

Gruß Ralf

[StefanB]

Hallo Ralf,

vielen Dank! Es klappt.
Aber was ich gar nicht verstehe, im Code beziehst Du Dich auf Tabelle1 und Tabelle2. Letztere gibts aber gar nicht. Wieso klappt das in der Beispieldatei trotzdem?

Und wenn ich den Code in eine andere Exceltabelle packe (gleicher Aufbau, nur halt nen bissl mehr Spalten - und auch hier die 4 in 122 geändert) klappt´s nicht. Da zeigt er mit Laufzeitfehler '424' Objekt erforderlich.

[snb]

Es scheint mir einer Gedankenfehler.
In einem Database löscht man keine 'records', doch markiert die nur in eine 'Status' Spalte.

Danach kann man Filltern ohne Beschränkungen.

[StefanB]

Moin snb,

das mag ja sein, aber ich brauch tatsächlich dieses Archiv-Blatt mit den erledigten Zeilen. Sonst verliert man den Überblick. Täglich kommen ca. 50 Zeilen dazu. Jede einzelne neue Zeile hat einen unterschiedlichen Bearbeitungsfortschritt. Zudem werden die erledigten Zeilen für eine separate Statistiktabelle benötigt. Also schön wäre es, wenn die Zeilen in das Archiv verschoben werden.

[snb]

Jedes Moment kann man ein Aktuelles Archivblatt erstellen mit Autofilter oder Advancedfilter, basiert auf dem Database.