hab heute den Code
Private Sub UserForm_Initialize()
Dim letzte, i, ort As String
letzte = Range("A100").End(xlUp).Row
For i = 2 To letzte
ort = Cells(i, 1)
If Cells(i, 1) "" And Cells(i, 1) Cells(i - 1, 1) Then ComboBox1.AddItem ort
Next
End Sub
Private Sub ComboBox1_Change()
Dim straße As String, i, letzte
letzte = Range("A100").End(xlUp).Row
ComboBox2.Clear
For i = 2 To letzte
straße = Cells(i, 2)
If Cells(i, 1) = ComboBox1 And Cells(i, 2) Cells(i - 1, 2) Then ComboBox2.AddItem straße
Next
End Sub
Private Sub ComboBox2_Change()
Dim nummer As String, i, letzte
letzte = Range("A100").End(xlUp).Row
ComboBox3.Clear
For i = 2 To letzte
nummer = Cells(i, 3)
If Cells(i, 2) = ComboBox2 Then ComboBox3.AddItem nummer
Next
End Sub
vom Forum bekommen und bin zu doof um eine weitere Combobox zu erweitern.hab schon allerhand probiert aber ich bin zu doof
könnt ihr mir helfen
Gruss Ludicla
bin erst morgen bzw. übermorgen im Einsatz