ComboBox
17.09.2005 13:13:26
Gregor
Ich komme nicht mehr weiter:
Private Sub UserForm_Initialize()
Call cmbFüllen
End Sub
Sub cmbFüllen()
Me.cmbAnfang.RowSource = ("D1:D300")
Me.cmbAnfang.ListIndex = "2"
Me.cmbEnde.RowSource = ("D1:D300")
Me.cmbEnde.ListIndex = "3"
End Sub
Nun möchte ich die beiden ComboBox mit Daten aus einem anderen Tabellenblatt mit dem Namen Code übernehmen (also nicht"D1:D300". Im Feld Combobox sollen 4 Spalten angezeigt werden (Worksheets("Code") Spalten A bis D).
Für die weitere Bearbeitung muss ich aus der Combobox von der via Dropdown-Auswahlliste die 4. Spalte in eine Variable einlesen. Die 4. Spalte beinhaltet einen Code.
Kann mir jemand weiterhelfen?
Vielen Dank
Gregor