ComboBox in Zelle mit VBA befüllen

23/10/2009 - 14:33 von Sebastian Lange | Report spam
Hallo,

Ich habe eine Zelle die eine ComboBox integriert hat(wie das genau heisst
weiss ich nicht) und ich suche einen VBA Codeschnipsel um diese ComboBox
mit Eintràgen zu füllen.

Hat jemand vielleicht 3 bis 4 Zeilen um mir auf die Sprünge zu helfen ?

Dankeschön ;)
 

Lesen sie die antworten

#1 Andreas Killer
23/10/2009 - 15:12 | Warnen spam
Sebastian Lange schrieb:

Ich habe eine Zelle die eine ComboBox integriert hat(wie das genau heisst
weiss ich nicht) und ich suche einen VBA Codeschnipsel um diese ComboBox
mit Eintràgen zu füllen.


Dazu braucht es keinen Code, setzte über die Eigenschaften
ListFillRange und ggf. auch LinkedCell auf die gewünschten Zellen,
aber dabei auch das Blattnamen explicit mit angeben: Tabelle1!B1:B3

Über VBA findest Du die Combobox in der Shapes-Auflistung und das
entsprechende Shape hat über OLEFormat.Object Zugriff auf die Box.

Sub Test()
Dim S As Shape, C As Object
Set S = ActiveSheet.Shapes("ComboBox1")
Set C = S.OLEFormat.Object
With C
.LinkedCell = "Tabelle1!A1"
.ListFillRange = "Tabelle1!B1:B3"
End With
End Sub

Andreas.

Ähnliche fragen