Combox leeren und die befüllten Textboxen mit
01.02.2019 20:42:08
Markus
ich möchte über eine Combobox in einer userform TextBoxen füllen. Wenn ich aber in der Userform eine falsche Eingabe mach möchte ich diese wieder mit der Backspace-Taste löschen und auch gleichzeitig den Inhalt in den anderen Boxen.
Welche Schleife müsste ich einfügen und wie kann ich überhaupt die Combox mit der backspace-Taste wieder löschen?
Folgenden Code nutze ich zum Befüllen der anderen Boxen:
Private Sub ComboBox_Kunde_Change()
Dim lngrow As Long
lngrow = Application.Match((ComboBox_Kunde.Value), Sheets("Kunden").Range("B:B"), 0)
'nach Auswahl Kundennummer in Combobox zugeh?rige Daten Anzeigen
With Sheets("Kunden")
TextBox_KdNr = .Cells(lngrow, 1)
TextBox_Ansprechpartner = .Cells(lngrow, 3)
TextBox_Stra?e = .Cells(lngrow, 4)
TextBox_PLZ = .Cells(lngrow, 5)
TextBox_Ort = .Cells(lngrow, 6)
TextBox_Tel = .Cells(lngrow, 7)
TextBox_Mobil = .Cells(lngrow, 8)
TextBox_Fax = .Cells(lngrow, 9)
TextBox_Mail = .Cells(lngrow, 10)
ComboBox_Art = .Cells(lngrow, 11)
End With
End Sub
Private Sub Userform_Initialize()
'Projektauswahl in combobox
Dim lngZeilemax As Long
lngZeilemax = Sheets("Kunden").UsedRange.Rows.Count
With Kunde_waehlen.ComboBox_Kunde
.RowSource = "Kunden!b2:b" & lngZeilemax
.ListIndex = -1 'beginnt in der ersten Zeile
.ListRows = 5 '5 Nummern werden angezeigt dann dropdown
End With
End Sub
VG Markus
Anzeige