ich stehe mit meinen mageren VBA-Kenntnissen wieder einmal auf dem Schlauch. In der Rechere gefundene Anregungen kann ich nicht für meine Bedürfnisse umsetzen. Hoffentlich hat jemand Geduld sich mit folgendem Problem(chen) zu beschäftigen:
In einer Userform habe ich (vorerst) drei Kombiboxen. In der ersten Box werden bei Initalize die Berufe eingelesen, die in der Tabelle "Berufe" ab Zeile A5 stehen. Das funzt auch.
In der zweiten Kombibox sollen je nach gewähltem Beruf die in der Tabelle "Bundesländer" ab Zeile 5 (A5 für den ersten Beruf, B5 für den zweiten Beruf, ...) eingetragenen Bundesländer angezeigt werden.
UND DAS KRIEGE ICH NICHT HIN!
(In der dritten Box soll dann nach dem selben Muster die Daten der jeweiligen Tarifverträge des gewählten Bundeslandes zur Auswahl angeboten werden.)
Im folgenden mein Codeschnipsel:
Option Explicit
Private Sub UserForm_Initialize()
Dim i As Integer
Dim cb1 As Object
Set cb1 = ComboBox1
cb1.Clear 'Löschen
For i = 5 To Range("Berufe!A5").End(xlDown).Row
cb1.AddItem (Cells(i, 1).Value)
Next
'cb1.ListIndex = 0 'Eintrag 1 aktiv
End Sub
Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim i As Integer
Dim cb2 As Object
Set cb2 = ComboBox2
cb2.Clear 'Löschen
For i = 5 To Range("Bundesländer!A5").End(xlDown).Row
cb2.AddItem (Cells(i, 1).Value)
Next
cb2.ListIndex = 0 'Eintrag 1 aktiv
End Sub
Ich bitte um Rat und Tat, bin für jeden Tip dankbar.
Liebe Grüße aus Würzburg
Guido Ludwig