Office: (Office 365) Inhalt einer formatierten Tabelle kopieren

Guten Tag zusammen,

ich hoffe Ihr könnt mir weiterhelfen. Ich möchte die Daten aus einer formatierten Tabelle (Listobject) in ein anderes Listobj übergeben.
Ich habe 2 Dateien, die eine Import Datei importiert alle Daten aus einem System. Leider kann diese nicht via Teams angezeigt werden. (RMS).
Jetzt möchte ich diese befüllte Tabelle in eine Tabelle einer anderen Datei kopieren.

Aktuell habe ich folgendes:

Leider löscht der ClearContents Befehl alle daten und auch die Formeln die sich auf die Spalten beziehen verlieren Ihren Bezug. Gibt es eine möglichkeit den Inhalt einer Listtabelle in eine andere zu übergeben und den Inhalt der anderen zuvor zu löschen, ohne die Tabellen komplett zu entfernen?

Vielen Dank für eure Hilfe.

 

Moin darque,
was mir nicht ganz klar ist, ob in Deiner Zieldatei bereits Werte vorhanden sind, und ob Du dort die Bezüge und Formeln benötigt, oder nur die Werte.

Also Fall1: Nur Werte in eine leere Tabelle
Wenn Du in der Quelle mal einen Bereich markierst, mit Strg-C kopierst, dann ins Ziel wechselst, werden Dir an der rechten Maustaste verschiedene Optionen angeboten, u.A. auch "Werte", zu erkennen an den Ziffern 123. Das zeichnest Du als Makro auf und hast eine erste Code-Grundlage.

Also Fall2: Nur Werte in eine bereits gefüllte Tabelle
Dann musst Du dort die erste freie Zeile/Spalte ermitteln, diese aktivieren und dann dort einfügen.

Dann noch Fall3: Du brauchst auch die Formeln und Bezüge
Hier musst Du sicherstellen, dass in den Formeln der Quell-Datei keine absoluten Bezüge (zu erkennen an dem $ vor Spalte oder Zeile) hast. Notfalls müsstest Du die per Suchen/Ersetzen entfernen, was natürlich auch per VBA geht.

Noch 'ne Idee: Ersetze ZWS.UsedRange.ClearContents durch ZWS.Cells.Clear

Viel Erfolg und Gruß

 

Hi,

du willst ja nur bestimmte Spalten des ListObjects leeren - das lässt sich nach folgendem Prinzip realisieren:

Code:

Dim rngSpalten As Range
With ActiveSheet.ListObjects(1).DataBodyRange '<== Name der formatierten Tabelle anpassen
    Set rngSpalten = Union(.Columns(1), .Columns(3)) '<== Spalten 1 und 3, an deine Bedingungen anpassen
    rngSpalten.ClearContents
End With

---