ComboBox aufklappen
Andre´
wenn in dem angehängten Bsp.: https://www.herber.de/bbs/user/65376.xls
das Tabellenblatt "Suche" aktiv ist, dann habe ich die Möglichkeit nach Aufruf der UserForm in der ComboBox hinterlegte Zellbereiche auszuwählen.
nachfolgend der Code:
Private Sub UserForm_Initialize()
x = Sheets("Suche").Range("A65536").End(xlUp).Row
ComboBox1.RowSource = "A5:A" & x
End Sub
Wie bekomme ich es hin, dass dies auch funktioniert, wenn die "Tabelle1" aktiv ist.
mit:
ComboBox1.RowSource = Sheets("Suche").Range ("A5:A" & x)
funktioniert es nicht
Ich hoffe mir kann jemand helfen
Vielen Dank im Voraus!
MFG Andre
Anzeige