Combobox füllen
29.10.2003 18:41:24
Thomas
Ich wollte mit folgendem Code meine Combobox cboProjektentwickler befüllen.
Bei Set z1 = ["Projektentwickler"!A2] steht "Object erforderlich"
Ich hab doch Sheet Projektentwickler angegeben!
Kann mir bitte jemand helfen?
Danke Thomas
Sub Füllen()
Dim z1 As Object
Dim z2 As Object
With ThisWorkbook.Sheets("Kalkulationsblatt")
Set z1 = ["Projektentwickler"!A2]
Set z2 = z1.End(xlDown)
cboProjektentwickler.ListFillRange = "Projektentwickler!" + z1.Adress + ":" + z2.Adress
cboProjektentwickler = 0
End With
End Sub