Aktiver Wert aus KomboBox auslesen
07.11.2013 11:03:13
Matthias
ich hoffe, dass ihr mir bei einem Problem mit meiner KomboBox, bzw mit meinen KomboBoxen helfen könnt.
Die Situation ist wie folgt:
Ich habe eine Userform in der mehrere KomboBoxen vorhanden sind.
Diese füllen sich über:
Private Sub UserForm_Initialize()
Dim Wiederholungen As Integer
For Wiederholungen = 4 To Sheets("Stammdaten Mandanten").Range("A65536").End(xlUp).Row
ComboBox1.AddItem Sheets("Stammdaten Mandanten").Cells(Wiederholungen, 1)
Next
End Sub
selbstsändig.
Nun will ich aber, das eine KomboBox sich durch den aktiven Eintrag einer anderen KomboBox beeinflussen lässt, sich die auszulesende Spalte also ändert.
Ich hatte versucht das über folgenden Befehl zu lösen:
If ComboBox2 = Gruppe1 Then
For Wiederholungen = 4 To Sheets("Stammdaten Angebote").Range("B65536").End(xlUp).Row
ComboBox3.AddItem Sheets("Stammdaten Angebote").Cells(Wiederholungen, 2)
If ComboBox2 = Gruppe2 Then
For Wiederholungen = 4 To Sheets("Stammdaten Angebote").Range("A65536").End(xlUp).Row
ComboBox3.AddItem Sheets("Stammdaten Angebote").Cells(Wiederholungen, 4)
Next
GoTo Ende
If ComboBox2 = Gruppe3 Then
For Wiederholungen = 4 To Sheets("Stammdaten Angebote").Range("A65536").End(xlUp).Row
ComboBox3.AddItem Sheets("Stammdaten Angebote").Cells(Wiederholungen, 6)
End If
End If
End If
Jetzt habe ich aber das Problem, dass nicht er ausgewählte Wert meiner KomboBox überprüft wird, sondern alle Werte der KomboBox üperprüft werden, ich also alle Ergebnisspalten angezeigt bekomme.
Daher meine Frage
Gibt es einen Befehl, der nur die aktive Anzeige meiner KomboBox überprüft?
Ich hoffe Ihr könnt mir hier helfen.
Danke im Vorraus
Matthias
Anzeige