Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Kombibox in Userform

Kombibox in Userform
16.12.2004 14:02:27
Guido
Hallo wertes Forum,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kombibox in Userform
Guido
Hallo Spezialisten,
ich weiß inzwischen wenigsten, wie ich den gewählten Beruf anhand des Index feststelle, aber mir fehlt einfach die Syntax, um mit diesem Wissen dann in der Combobox 2 mit dem Tabellenblatt "Bundesländer" weiterzuarbeiten.
Ich habe die Datei mal hochgeladen.
https://www.herber.de/bbs/user/14930.xls
Bitte helft mir "auf die Sprünge". Danke.
Liebe Grüße aus Würzburg
Guido Ludwig
ComboBox 2 abhängig von ComboBox 1-Auswahl
16.12.2004 23:30:14
ComboBox
Hallo Guido,
mein Vorschlag:
Gruß
Christoph

Private Sub UserForm_Initialize()
Dim i As Integer
With Sheets("Berufe")
For i = 5 To .Cells(Rows.Count, 1).End(xlUp).Row
ComboBox1.AddItem .Cells(i, 1)
Next i
End With
End Sub


Private Sub ComboBox1_Change()
Dim i As Integer, vgl
ComboBox2.Clear
ComboBox3.Clear
With Sheets("Bundesländer")
vgl = Application.Match(ComboBox1, .Rows(4), 0)
If Not IsError(vgl) Then
For i = 5 To .Cells(Rows.Count, CInt(vgl)).End(xlUp).Row
ComboBox2.AddItem .Cells(i, CInt(vgl))
Next i
End If
End With
End Sub


Private Sub ComboBox2_Change()
Dim i As Integer, vgl
ComboBox3.Clear
With Sheets("Daten")
vgl = Application.Match(ComboBox2, .Rows(4), 0)
If Not IsError(vgl) Then
For i = 5 To .Cells(Rows.Count, CInt(vgl)).End(xlUp).Row
ComboBox3.AddItem .Cells(i, CInt(vgl))
Next i
End If
End With
End Sub

Anzeige
Vielen Dank Christoph für deine Nachtschicht. o.T.
Guido

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige