Hallo zusammen,

ich habe ein etwas kompliziertes Problem, das ich als VBA-Anfänger nicht so richtig zu lösen weiß und euch deshalb um Hilfe bete.

Folgendes Szenario bei der Angebotserstellung: Es besteht eine Arbeitsmappe mit einer Tabelle mit Artikelnummern mit hinterlegtem Datenblatt sowie ein Angebot. Im Angebot sind die Artikelnummern teilweise benutzt worden. Es gibt allerdings auch Artikelnummern im Angebot, zu denen kein Datenblatt hinterlegt ist, die aber trotzdem im Angebot stehen und nicht in der anderen Tabelle.

Die Prozedur soll das Ziel haben, zu den benutzen Artikelnummern des Angebots, zu denen ein Datenblatt vorliegt, dieses Datenblatt zu öffnen und den Inhalt in eine Vorlage zu einem Gesamtdokument zu kopieren.

Die Datenblätter sind allesamt in einem Ordner hinterlegt und haben den Namen ihrer Artikelnummer, die hier als V gespeichert werden soll.

Bei weiteren Fragen bezüglcih der Verständlcihkeit meldet euch bitte! Antworte sehr schnell! Unten stehend seht ihr meinen Ansatz, der aber leider nicht funktioniert!

Sub Lösung_C_click()

Dim i As Integer
Dim j As Integer
Dim V As String


Documents.Open Filename:="C:\blabla\Vorlage.docx"

Sheets("Artikelnummern mit Daten").Select

    For i = 1 To 200
    V = Cells(i, 1).Value
        Sheets("Angebot").Activate
            For j = 1 To 10000
                If Cells(j, 5) = V Then
                    Documents.Open ("C:\blabla\Datenblätter\" & V & ".docx")
                    Documents(V & ".docx").Activate
                    Selection.WholeStory
                    Selection.Copy
                    Documents("Vorlage.docx").Activate
                    Selection.EndKey Unit = wd_line
                    Selection.Paste
                    Documents.Close (V & ".docx")
                End If
            Next
    Next

MsgBox "Dokument mit Daten erstellt!"

End Sub