Hallo zusammen,
Martin hat mir freundlicherweise folgenden Code zur Verfügung gestellt. (Danke nochmals!)
Allerdings habe ich mich anscheinend doch nicht so richtig ausgedrückt :-( .
Der Code läuft für die erste Zeile der Tabelle so wie gewünscht. Allerdings hat die zu übergebende Tabelle
max. 17 Zeilen. Wie muß ich den Code verändern damit die Zeilen komplett übergeben werden?
Hier der Code:
With wdAnw.ActiveDocument.FormFields
For i = 1 To 6
If Cells(2, i) = Empty Then Exit Sub 'Abbrechen, wenn Zelle leer ist
.Item("Text1" & i).Result = Cells(2, i) 'Eingabe1
'.Item("Text210" & i).Result = Cells(2, i) 'Eingabe2
Next i
End With
Danke und Gruss
Volker