Problem mit Office-Skript: Daten aus einer Excel-Tabelle in neue Blätter kopieren

Hallo Oliver,

wenn deine Word-Datei den gleichen Aufbau hat wie die Excel-Tabelle könntest du diese in deine Excel-Datei auf ein anderes Blatt kopieren und dann die Blätter z.B. mit Formeln vergleichen.

Du könntest die Word-Tabelle auch gleich unter die Excel-Tabelle kopieren und dann mit Duplikate entfernen alle Duplikate entfernen. Damit hättest du eine Tabelle mit den Daten aus beiden Dateien aber mit Unikaten.

Claus

Hallo Freddy,

kopiere die Daten und füge sie ohne die Formatierung in ein neues Blatt ein und lösche dann das als Tabelle formatierte Blatt

Claus

Ich habe also mein Briefpapier mit Kopf- und Fußzeile und zusätzlich immer den gleichen Text. Bei Druck auf den Button in Excel soll er diese Vorlage nehmen und die aktuelle Tabelle einfügen. Die Tabelle ist dabei immer gleich breit, nur die Anzahl
der Zeilen kann sich ändern.

Du gehst das Problem falsch herum an. "Die aktuelle Tabelle einfügen" ist viel zu aufwendig.

Viel einfacher ist es immer die gleiche Tabelle drin zu haben und einfach die Daten einfach zu kopieren.

Also:

Blatt A einhält die Daten in welcher Form auch immer, sinnvoll ist zeilenweise.

Blatt B enthält das Schreiben mit einer Tabelle (besser gesagt einen Bereich) für das Maximum an Daten.

Blatt B passt Du so an das der Ausdruck "schön" aussieht.

Nehmen wir mal an Du wählst eine Zelle in A aus. Dann kann Dein Makro via

Dim Source As Range

Set Source = Range("A" & ActiveCell.Row, Cells(ActiveCell.Row, Columns.Count)).End(xlToLeft)

die Daten in der Zeile ermitteln.

Da der Zielbereich ist immer gleich ist macht man es sich einfach und benennt diesen mit einem Namen.

Dim Dest As Range

Set Dest = Worksheets("Blatt B").Range("Daten")

'Alle Zeilen einblenden

Dest.EntireRow.Hidden = False

'Inhalt löschen

Dest.ClearContents

Nun musst Du nur noch die Daten von Source nach Dest kopieren, ggf. die unbenutzten Zeilen ausblenden, ausdrucken, fertig.

Andreas.

Hallo Svenja,

für mich wäre die Pivot-Tabelle auch die erste Wahl.

Aber für solche Fälle wie bei dir, gibt es in den neuen Excel-Versionen die Funktionen MITTELWERTWENN und MITTELWERTWENNS.

Angenommen deine Tabelle ist auf dem Blatt Tabelle1. Dann kopiere die Spalten A und B in ein neues Tabellenblatt, markiere beide Spalten => Daten => Duplikate entfernen.

Jetzt kannst du in C2 schreiben:

=MITTELWERTWENNS(Tabelle1!C:C;Tabelle1!$A:$A;$A2;Tabelle1!$B:$B;$B2)

Kopiere die Formel 5 Zellen nach rechts und nach unten so weit benötigt.

Claus

Zur Frage " In welcher Spalte liegt das Feld?" ...ich habe mit dem Namensmanager von Excel in der Arbeitsmappe (enthält 10 verschiedene Blätter) auf einem Blatt einen Bereich mit den Daten (mehrere Zeilen und Spalten mit Überschriften) als
"Schulden" benannt.



Bisher gings so:

Seriendruckmanager - Datenquelle öffnen - (Es weden alle benannten Bereiche angezeigt) - ich wähle "Schulden" - Einfügen der Seriendruckfelder deren Namen den Spaltenüberschriften entsprechen. FERTIG



Word 2010 -> Datei -> Optionen -> Erweitert -> Allgemein -> Haken bei "Dateiformatkonvertierung beim Oeffnen bestaetigen" ... habe ich gemacht.



Die Fehlermeldung " die externe tabelle hat nicht das erwartete format" kommt trotzdem...

Ich kriege also meine Excel Tabelle nicht mal mehr auf...



Zusatz....
Ich habe jetzt auch versucht zuerst eine Worddatei und dann eine komplett neue Excel Tabelle mit meinen Daten zu erstellen.

Ergebnis..



Die Word Datei mit den Daten als Tabelle wird als Datenquelle akzeptiert. - Ich habe dann einfach die Tabelle in Excel reinkopiert und gespeichert.

Wenn ich die neue Tabelle als Datenquelle angebe erhalte ich wieder die Fehlermeldung " die externe tabelle hat nicht das erwartete format".



Muß ich irgendwas mit der Excel Tabelle machen ??

Anders abspeichern - irgendwas umstellen in den schön versteckten Menüs...



Nur zur Sicherheit.. ich kann die Daten nicht in Word eingeben weil sie sich aus verschiedenenBerechnungen
der Excel Tabelle erst ergeben...





Grüße

Martin