Wer kann mir helfen? Ich habe jetzt schon ne ganze Weile nix mehr in VBA gemacht und komm einfach nicht dahinter.
Verwende folgenden Code um 2 Comboboxen im "Wechsel" zu benutzen, also Ich kann entweder meine Auswahl über Kundennummer suchen oder über Namen.
Funktioniert ganz gut.
Allerdings sollte, je nach Auswahl auch noch eine Textbox in Abhängigkeit der Auswahl mit dem Vornamen gefüllt werden. Diese Daten stehen in Spalte D (Sheet DATEN)
Private Sub CBO_KUNDENNUMMER_Change()
CBO_NAME.ListIndex = CBO_KUNDENNUMMER.ListIndex
End Sub
Private Sub CBO_NAME_Change()
CBO_KUNDENNUMMER.ListIndex = CBO_NAME.ListIndex
End Sub
Private Sub UserForm_Initialize()
Call DatenEinlesen
Dim RX As Range
Dim Ra As String
Dim N As Integer
With Worksheets("PROJEKTE")
Ra = "A2:A" & Worksheets("DATEN").Cells(Rows.Count, 1).End(xlUp).Row
For Each RX In Worksheets("DATEN").Range(Ra)
If Ra "" Then CBO_KUNDENNUMMER.AddItem RX
N = CBO_KUNDENNUMMER.ListCount - 1
CBO_KUNDENNUMMER.List(N, 0) = RX.Value
Next
Ra = "C2:C" & Worksheets("DATEN").Cells(Rows.Count, 1).End(xlUp).Row
For Each RX In Worksheets("DATEN").Range(Ra)
If Ra "" Then CBO_NAME.AddItem RX
N = CBO_NAME.ListCount - 1
CBO_NAME.List(N, 0) = RX.Value
Next
End With
End Sub
Gibt jemanden der mir das reinbasteln kann?
Okay um das ganze jetzt noch auf die Spitze zu treiben, wäre eine befüllung der Comboboxen ohne Leere ganz nett, ist jetzt aber nicht unbedingt nötig (dient nur der "Optik"
LG Gerhard