Hallo,

Da es anscheinend kaum einen Lösungsansatz gibt zum Kopieren der Tabelle, habe ich eine Idee wie ich das vielleicht mit Arrays lösen kann.

Das Array habe ich mit Daten gefüllt. Jetzt möchte in diese Daten in eine vorhandene Tabelle in einem Word - Dokument ausgeben. Wie kann ich das realisieren?

Oder kann ich einzelne Daten aus dem Array in Textmarken ablegen?

Sub Dokument_öffnen()

Dim Constant_Current As Variant

Constant_Current = Range("C5:C10").Value


'MsgBox "Dokument 1 wird geöffnet"
'___________________________________________________________________________
'In Variablen schreiben, was in den einzelnen Zellen steht. Das geht so nicht wegen der Kopierbarkeit, zu viele Daten und Spalten müssen ergänzbar sein
'Component = ActiveSheet.Range("B5")
'Component_eintrag1 = ActiveSheet.Range("C5")
'Component_eintrag2 = ActiveSheet.Range("C12")
'___________________________________________________________________________
'Öffnen des Word Dokuments
Dim Doku1 As Object
On Error Resume Next
Set Doku1 = GetObject(, "Word.Application")
If Doku1 Is Nothing Then Set Doku1 = CreateObject("Word.Application")
On Error GoTo 0
With Doku1
    .Visible = True
    '.Documents.Open "C:\Users\pby891\Desktop\Excel Projekt\PLT-3 IQ 2x2-24DC-P wo PKG - 1.dotm"
    .Documents.Open "C:\Users\pby891\Desktop\Testinstruction.dotm"
End With

'___________________________________________________________________________
'Abfrage ob die Textmarke vorhanden ist, dann eintragen der Variablen
'Wenn die Textmarke nicht vorhanden ist, anzeigen eines Fehlers
If Doku1.ActiveDocument.Bookmarks.Exists("Component_1") = True Then
'Fall Abfrage ob die Textmarke "..." exitiert
    If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag1") = False Then
            Component_eintrag1 = "component_eintrag1"
            MsgBox "Felher - Textmarke " & Component_eintrag1 & " nicht vorhanden", vbkOKonly, "FEHLER"
            Else
 
            'Hier soll das Array ausgebeben werden
            Doku1.ActiveDocument.Bookmarks("Component_eintrag1").Range = 'Hier will ich das Array ausgeben. Am besten nur den ersten EIntrag
              


                If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag2") = False Then
                Component_eintrag2 = "component_eintrag2"
                MsgBox "Felher - Textmarke " & Component_eintrag2 & " nicht vorhanden", vbkOKonly, "FEHLER"
                Else
                Doku1.ActiveDocument.Bookmarks("Component_eintrag2").Range = Component_eintrag2
                    If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag3") = False Then
                    Component_eintrag3 = "component_eintrag3"
                    MsgBox "Felher - Textmarke " & Component_eintrag3 & " nicht vorhanden", vbkOKonly, "FEHLER"
                    Else
                    Doku1.ActiveDocument.Bookmarks("Component_eintrag3").Range = Component_eintrag3
                    End If
                        If Doku1.ActiveDocument.Bookmarks.Exists("Component_eintrag4") = False Then
                        component_eintrag4 = "component_eintrag4"
                        MsgBox "Felher - Textmarke " & component_eintrag4 & " nicht vorhanden", vbkOKonly, "FEHLER"
                        Else
                        Doku1.ActiveDocument.Bookmarks("Component_eintrag4").Range = component_eintrag4
                        End If
            End If
    End If
Else: MsgBox "Felher - Textmarke nicht vorhanden", vbkOKonly, "FEHLER"
End If

End Sub

Die If Abfragen stellen nur fest ob die Textmarke vorhanden ist oder nicht.