Textmarke satt Feld auswählen

Private Sub EINTRAG_UEBERTRAGEN()
Dim lZeile As Long
Dim lastrow As Long
Dim i As Integer
Dim Tabelle As String
Dim Pfad As String
Dim wdAnw As Object
Dim wdDok As Object
'Zeile = lCONST_STARTZEILENNUMMER_DER_TABELLE
'Schleife bis eine leere ungebrauchte Zeile gefunden wird
'Do While IST_ZEILE_LEER(lZeile) = False
'Zeile = Zeile + 1 'Nächste Zeile bearbeiten
'Loop
Tabelle = ComboBox1.Value
lastrow = Worksheets(Tabelle).Cells(Rows.Count, 1).End(xlUp).Row + 1
'Wenn kein Datensatz in der ListBox markiert wurde, wird die Routine beendet
If ListBox1.ListIndex = -1 Then Exit Sub
'Zum Speichern benötigen wir die Zeilennummer des ausgewählten Datensatzes
lZeile = ListBox1.List(ListBox1.ListIndex, 0)
For i = 1 To iCONST_ANZAHL_EINGABEFELDER
Sheets(Tabelle).Cells(lastrow, i) = Me.Controls("TextBox" & i)
Next i
'Der Benutzer könnte die angezeigten Werte in der Liste geändert haben,
'daher aktualisieren wir den ausgewählten Eintrag entsprechend.
ListBox1.List(ListBox1.ListIndex, 1) = TextBox1
ListBox1.List(ListBox1.ListIndex, 2) = TextBox2
ListBox1.List(ListBox1.ListIndex, 3) = TextBox3
ListBox1.List(ListBox1.ListIndex, 4) = TextBox4
ListBox1.List(ListBox1.ListIndex, 5) = TextBox5
ListBox1.List(ListBox1.ListIndex, 6) = TextBox6
ListBox1.List(ListBox1.ListIndex, 7) = TextBox7
'Sub WordMitBestehendemDokumentStarten2()
'um die aktuelle Zeile zu ermitteln
i = ActiveCell.Row
' Pfad = Cells(1, 1) 'entweder in A1 den Pfad eingeben oder diese Zeile auskommentieren...
Pfad = "C:\Rechnung.dotm" '...und hier den Pfad eingeben
On Error Resume Next
Set wdAnw = GetObject(, "Word.Application") 'Bestehende Word-Instanz suchen
Select Case Err.Number
Case 0 'Alles paletti
Case 429 'Es gibt soweit keine Word-Instanz
Err.Clear
Set wdAnw = CreateObject("Word.Application") 'Word-Instanz erzeugen
If Err.Number > 0 Then
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End If
Case Else 'Unerwarteter Fehler
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End Select
On Error GoTo 0
wdAnw.Visible = True 'Instanz sichtbar machen
wdAnw.WindowState = 0
'Je nach dem, ob das Dokument bereits geöffnet ist oder nicht wird verbunden
'bzw. geöffnet. Diese Differenzierung geschieht implizit.
On Error Resume Next
Set wdDok = wdAnw.Documents.Open(Filename:=Pfad)
If Err.Number > 0 Then 'Wenn Arbeitsmappe nicht existiert oder unerwarteter Fehler
BadOrHappyEnd Err.Number, Err.Description
Exit Sub
End If
On Error GoTo 0
'hier kommt das eigentliche Eintragen
wdAnw.ActiveDocument.FormFields.Item("Name").Result = Cells(i, 1)
wdAnw.ActiveDocument.FormFields.Item("Alter").Result = Cells(i, 2)
BadOrHappyEnd Err.Number, Err.Description
End Sub