Werte aus mehreren Textboxen in Tabelle zurückschr
08.08.2003 17:55:23
René P.
ich habe eine Tabelle erstellt, in der in einem Formular Daten angelegt und geändert werden können. Beim Zurückschreiben wird aber immer nur die erste Spalte geändert, obwohl ich 11 Spalten habe . Mein Code sieht so aus:
Private Sub cmdAendern_Click()
Dim lngZeilennummer As Long
Worksheets("Tabelle1").Activate
lngZeilennummer = txtLfdNummer.Value + 1
ActiveSheet.Cells(lngZeilennummer, 1).Value = Me.txtAenAnrede.Value
ActiveSheet.Cells(lngZeilennummer, 2).Value = Me.txtAenVorname.Value
ActiveSheet.Cells(lngZeilennummer, 3).Value = Me.txtAenNachname.Value
ActiveSheet.Cells(lngZeilennummer, 4).Value = Me.txtAenStrasse.Value
ActiveSheet.Cells(lngZeilennummer, 5).Value = Me.txtAenPLZ.Value
ActiveSheet.Cells(lngZeilennummer, 6).Value = Me.txtAenStadt.Value
ActiveSheet.Cells(lngZeilennummer, 7).Value = Me.txtAenMarke.Value
ActiveSheet.Cells(lngZeilennummer, 8).Value = Me.txtAenTyp.Value
ActiveSheet.Cells(lngZeilennummer, 9).Value = Me.txtAenKennzeichen.Value
ActiveSheet.Cells(lngZeilennummer, 10).Value = Me.txtAenFGN.Value
ActiveSheet.Cells(lngZeilennummer, 11).Value = Me.txtAenGarantie.Value
End Sub
Kann mir jemand weiterhelfen, ich finde keine Lösung?
Gruß
René