Hallo,
ich möchte in einer Word Datei mit Daten füllen, welche ich aus einer externen Excel Tabelle bekomme.
Leider bricht er mir bei der For-Schleife mit einen Fehler ab.
Kann mir jemand helfen?
Warum?
ich möchte in einer Word Datei mit Daten füllen, welche ich aus einer externen Excel Tabelle bekomme.
Leider bricht er mir bei der For-Schleife mit einen Fehler ab.
Kann mir jemand helfen?
Warum?
Visual Basic-Quellcode
- Set Mappe = CreateObject("Excel.Application")
- '
- ' Excel-Mappe mit Daten öffnen
- Mappe.Workbooks.Open "D:\Users\user\Documents\Vorbereitung\Test\Namen.xlsx"
- '
- ' Blatt und Daten mit Range auswählen
- For x = 2 To Mappe.Sheets("Namen").Range("A65536").End(xlUp).Row
- If Mappe.Sheets("Namen").Cells(x, 6).Value <> "" Then
- '
- ' Zelle für Namen auswählen
- Mappe.Sheets("Namen").Cells(x, 1).Select
- ' Zelle kopieren
- Mappe.Selection.Copy
- ' Platzhalter suchen
- With Selection.Find
- .Execute FindText:="[Name]"
- End With
- ' Daten an Cursor-Position im Word-Dokument einfügen
- Selection.PasteSpecial DataType:=wdPasteText
- End If
- Next