ich arbeite zurzeit daran eine Kundendatenbank zu erstellen. Die Eingabe neuer Kunden sowie der Änderungen von Kundendaten möchte ich über Userformen erledigen. Für die Eingabe der Kunden hat dies auch wunderbar funktioniert. Jetzt möchte ich aber auch Kundendaten ändern. Hierzu rufe ich mir eine neue Userform auf. Über die Auswahl der Kundennummer in einer Combobox werden mir alle zugehörigen Kundendaten in den TextBoxen angezeigt. Jetzt möchte ich z.B die Anschrift eines Kunden ändern und unter der zugehörigen Kundennummer abspeichern über einen CommandButton. Da ich das letzte mal vor über 10 Jahren im Studium mit VBA gearbeitet habe, habe ich keine Idee wie ich die Einträge in der jeweiligen Zelle ablegen kann. Bisher sieht meine Code der Userform so aus:
Private Sub ComboBox_KdNr_Change()
'nach Auswahl Kundennummer in Combobox zugehörige Daten Anzeigen
Kunde_bearbeiten.TextBox_Name = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 1)
Kunde_bearbeiten.TextBox_ansprechpartner = Sheets("Kunden").Range("A:A").Find( _
Kunde_bearbeiten.ComboBox_KdNr.Value).Offset(0, 2)
Kunde_bearbeiten.TextBox_Stra?e = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 3)
Kunde_bearbeiten.TextBox_PLZ = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 4)
Kunde_bearbeiten.TextBox_Ort = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 5)
Kunde_bearbeiten.TextBox_Tel = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 6)
Kunde_bearbeiten.TextBox_Mobil = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 7)
Kunde_bearbeiten.TextBox_Fax = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 8)
Kunde_bearbeiten.TextBox_Mail = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 9)
Kunde_bearbeiten.TextBox_Art = Sheets("Kunden").Range("A:A").Find(Kunde_bearbeiten. _
ComboBox_KdNr.Value).Offset(0, 10)
End Sub
Private Sub CommandButton_Änderung_speichern_Click()
'Eingabe der Werte in Tabelle ?
End Sub
Private Sub UserForm_Initialize()
'Kundenauswahl in combobox
Dim lngZeileMax As Long
lngZeileMax = Sheets("Kunden").UsedRange.Rows.Count
With Me.ComboBox_KdNr
.RowSource = "Kunden!A2:A" & lngZeileMax
.Style = fmStyleDropDownList
.ListIndex = 0 'beginnt in der ersten Zeile
.ListRows = 5 '5 Kunden werden angezeigt dann dropdown
End With
End Sub