Copy & Paste
22.05.2017 15:02:17
Inshin
für Eure Hilfe wäre ich dankbar
Ich kopieren aus einer Excel Datei Textbausteine in eine Worddatei, in dem ich in Excel einen Doppelklick auf die Zelle mache und diese dann nach Word kopiert wird.
'markierte Zellen kopieren
Selection.Copy
'in Word einfügen
Word_App.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:=wdInLine, DisplayAsIcon:=False
Word_App.Selection.TypeParagraph ' zeilenumbruch einfügen
Jetzt möchte ich das erweitern .
Ich möchte nun die Möglichkeit schaffen, mehrere Bausteine in Excel auszuwählen (z.B. Kreuz in der Nachbarspalte) und diese dann gesamt nach Word kopieren, jede Auswahl in eine neue Zeile in der Worddatei und mit einer Nummerierung. Das können zwische 1 und n Auswahltexte sein. Als Start der Kopiervorganges Doppelklick oder Buttom. Danach sollen alle Auswahlkreuze gelöscht werden.
Beispiel:
EXCELLISTE
Baustein 01 | x
Baustein 02
Baustein 03 | x
WORDDATEI
Ziel01 Baustein 01
Ziel02 Baustein 03