Dynamisch erstellte ComboBox und ListWidth ?!
23.08.2007 17:50:48
Florian
ich stehe vor folgendem Problem:
Ich will per VBA dynamisch ComboBoxen erstellen lassen und dabei die 'Listenbreite' (Die Breite der ausgeklappten ComboBox) anpassen, sprich vergrößern.
Kurze Erklärung: Ich habe eine Planungsübersicht. In der obersten Zeile befindet sich in jeder Spalte ein 'Einfüge'-Button, welcher bei Klick eine neue Spalte einfügt und dort in der ersten Zeile wieder einen 'Einfüge'-Button erstellt und in der 2.Zeile eine ComboBox erstellen soll.
Das Problem ist, daß die in die ComboBox einzulesenden Texte breiter als die Spalten (die Spalten sollen auch so schmal bleiben) sind.
Meine Vorgehensweise:
Ich erzeuge die ComboBoxen analog zu folgendem Beispiel:
Dim cbo As OLEObject
Set cbo = ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", Link:=False, _
DisplayAsIcon:=False, Left:=10, Top:=10, Width:=120, Height:=25)
Das Erstellen funktioniert ohne Probleme. Nur die Anpassung der Listenbreite bekomme ich nicht hin.
With cbo
.ListWidth = 200
End With
liefert einen "Laufzeitfehler '438': Obj. unterstützt diese Eigenschaft oder Methode nicht."
Bei einer 'normalen' ComboBox in einer Userform geht's ja über die ListWidth-Eigenschaft, aber hier offensichtlich nicht...
Hat jemand von euch einen Tipp für mich?
Ich bedanke mich schonmal für eure Hilfe!
Ciao Flo