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
|