VBA-Datenmaske Änderungen speichern
Kay
Habe eine Userform, in der einige Daten zu einem Kunden erfasst werden und in einer Tabelle hinterlegt werden. Das läuft super ! Aber nun möchte ich mit einer 2'ten Userform die Daten auch bearbeiten lassen.
Dazu habe ich eine Combobox1, in der der jeweilige Datensatz ausgewählt werden soll. Kaum getan füllen sich die Felder entsprechend in der Userform.
Dann verändere ich ein Feld und drücke auf Speichern - aber es ändert nicht ?!
Wo steckt der Fehler im Detail ?! Danke für jede Unterstützung bereits an dieser Stelle !
Kay
Hier der Code:
Private Sub ComboBox1_Click() ' Combobox - Datensatz auswählen
With Me.ComboBox1
Me.Label48 = Range(.RowSource).Cells(.ListIndex + 1, "A") 'Zähler Datensatz
Me.TextBox1 = Range(.RowSource).Cells(.ListIndex + 1, "B")
Me.TextBox2 = Range(.RowSource).Cells(.ListIndex + 1, "C")
Me.TextBox3 = Range(.RowSource).Cells(.ListIndex + 1, "D")
Me.TextBox30 = Range(.RowSource).Cells(.ListIndex + 1, "E")
Me.TextBox4 = Range(.RowSource).Cells(.ListIndex + 1, "F")
Me.TextBox5 = Range(.RowSource).Cells(.ListIndex + 1, "G")
Me.TextBox6 = Range(.RowSource).Cells(.ListIndex + 1, "H")
Me.TextBox7 = Range(.RowSource).Cells(.ListIndex + 1, "I")
Me.TextBox8 = Range(.RowSource).Cells(.ListIndex + 1, "J")
Me.TextBox32 = Range(.RowSource).Cells(.ListIndex + 1, "K")
Me.TextBox31 = Range(.RowSource).Cells(.ListIndex + 1, "L")
Me.TextBox34 = Range(.RowSource).Cells(.ListIndex + 1, "M")
Me.TextBox35 = Range(.RowSource).Cells(.ListIndex + 1, "N")
Me.TextBox9 = Range(.RowSource).Cells(.ListIndex + 1, "O")
End With
End Sub
Private Sub CommandButton2_Click() 'Änderung Speichern
Dim i As Integer
Dim Zeile As Integer
If TextBox1.Text = "" Then
MsgBox "Bitte Text eintragen!"
Exit Sub
Else
If TextBox5.Text = "" Then
MsgBox "Bitte PLZ eintragen!"
Exit Sub
Else
If TextBox5.TextLength 5 Then
MsgBox "Bitte 5 stellige PLZ, ggf. mit 0 eintragen!"
Exit Sub
End If
End If
End If
Zeile = Label48.Caption + 1
' Daten in der Tabelle mit Feldinhalten füllen...
Worksheets("ZKE").Cells(Zeile, 2) = TextBox1.Text
Worksheets("ZKE").Cells(Zeile, 3) = TextBox2.Text
Worksheets("ZKE").Cells(Zeile, 4) = TextBox3.Text
Worksheets("ZKE").Cells(Zeile, 5) = TextBox30.Text
Worksheets("ZKE").Cells(Zeile, 6) = TextBox4.Text
Worksheets("ZKE").Cells(Zeile, 7) = TextBox5.Text
Worksheets("ZKE").Cells(Zeile, 8) = TextBox6.Text
Worksheets("ZKE").Cells(Zeile, 9) = TextBox7.Text
Worksheets("ZKE").Cells(Zeile, 10) = TextBox8.Text
Worksheets("ZKE").Cells(Zeile, 11) = TextBox32.Text
Worksheets("ZKE").Cells(Zeile, 12) = TextBox31.Text
Worksheets("ZKE").Cells(Zeile, 13) = TextBox34.Text
Worksheets("ZKE").Cells(Zeile, 14) = TextBox35.Text
Worksheets("ZKE").Cells(Zeile, 15) = TextBox9.Text
If Worksheets("ZKE").Cells(Zeile, 16) = "" Then
Worksheets("ZKE").Cells(Zeile, 16) = Date
Else
Worksheets("ZKE").Cells(Zeile, 18) = Date
End If
Worksheets("ZKE").Cells(Zeile, 17) = "ADM"
End Sub
Anzeige