Datenänderung speichern mit Text und Combofeldern

Private Sub EINTRAG_SPEICHERN()
Dim lngZeile As Long
Dim i As Integer
'prüfen ob wirklich ein datensatz markiert ist
If Me.lst2.ListIndex >= 0 Then
lngZeile = Me.lst2.Column(9, Me.lst2.ListIndex)
For i = 1 To 13
Tabelle1.Cells(lngZeile, i).Value = Me.Controls("TextBox" & i).Value
Next i
'Zurückschreiben in Listbox
For i = 1 To 9
Me.lst2.Column(i, Me.lst2.ListIndex) = Me.Controls("Textbox" & i + 1).Value
Next i
Else
MsgBox "Bitte Datensatz markieren im Listenfeld"
End If
End Sub