Comboboxen auf Userform
24.08.2023 06:41:34
phsch
Ich habe eine Userform auf der ich diverse Textboxen und Comboboxen befülle und diese danach auf ein Tabellenblatt kopiere hierfür habe ich einen Code.
Dieser Code funktioniert auf einer Combobox, wie kriege ich diesen Code auf drei weitere Comboboxen?
Combobox3 bleibt immer gleich nur Combobox4 müsste ändern.(Combobox4,6,8,10)
Dim z As Long, kundeSuche As Variant, raFund As Range
Dim kunde As Long, baustellesuche As Variant, baustellefund As Range
Dim letzte As Long
kundeSuche = ComboBox3.text
baustellesuche = ComboBox4.text
Set raFund = Worksheets("Daten").Rows(8).Find(what:=kundeSuche, LookIn:=xlValues, lookat:=xlWhole)
z = raFund.Column
Set baustellefund = Worksheets("Daten").Columns(z).Find(what:=baustellesuche, LookIn:=xlValues, lookat:=xlWhole)
If raFund Is Nothing Then
kunde = Worksheets("Daten").Cells(8, Columns.Count).End(xlToLeft).Column + 2
Worksheets("Daten").Cells(8, kunde) = ComboBox3.Value
End If
If baustellefund Is Nothing Then
letzte = Worksheets("Daten").Cells(700, z).End(xlUp).Offset(1, 0).Row
Worksheets("Daten").Cells(letzte, z) = ComboBox4.text
Worksheets("Daten").Cells(letzte, z).Offset(0, 1) = TextBox5.text
Else
Exit Sub
End IfVielen Dank für eure Hilfe