Nur ausgewählte Spalten kopieren


josef24

Erfahrenes Mitglied
Hallo zusammen. Ich möchte aus einer EXCEL Tabelle nur bestimmte Spalten nach Word kopieren lassen. Z. b. Spalte "A", Spalte "C" und "H". Habe einen Versuch mit UNION gestartet, es klappt aber nicht wie ich es mir vorstelle. Könnte mir vielleicht jemand hierfür ein Beispiel zeigen? Danke und Gruß Josef
Mein Kode bisher ist wie folgt:
Code:
 Option Explicit

Sub ArchivatewordTransferData()
'   Worksheets("Tabelle1").Range("A1:I15").Copy
 Union(Worksheets("Tabelle1").Range("b:b"), Worksheets("Tabelle1").Range("d:d")).Copy
' Worksheets("Tabelle1").Range("A1:A30, C1:C30, F1:F30").Copy
Dim wdapp As Object, wddoc As Object   '  , GetObject As Range
Dim strdocname As String
Dim Documents As Object
On Error Resume Next
Set wdapp = GetObject(, "Word.Application")
If Err.Number = 429 Then
Err.Clear
Set wdapp = CreateObject("Word.Application")
End If
wdapp.Visible = True
strdocname = "C:\Users\Besitzer\Desktop\Trockengymn.docx"
If Dir(strdocname) = "" Then
MsgBox "Die Datei" & strdocname & vbCrLf & " wurde nicht gefunden" & vbCrLf & "C:our-inventory\.", vbExclamation, "Das Dokument existiert nicht."
Exit Sub
End If
wdapp.Activate
Set wddoc = wdapp.Documents(strdocname)
If wddoc Is Nothing Then Set wddoc = Documents(strdocname)
wddoc.Activate
wddoc.Range.PasteSpecial
' wddoc.Save
' wdapp.Quit
Set wddoc = Nothing
Set wdapp = Nothing
Application.CutCopyMode = False
End Sub