ComboBoxen
09.09.2015 12:07:07
Golem
Wer kann mir evtl. zwei Fragen beantworten!
Frage 1:
Ich habe auf einem Tabellenblatt mehrere ComboBoxen, die ich mit einer Schleife
positionieren und auch die Größe einstellen möchte.
With ActiveSheet.Shapes("ComboBox" & i)
.Left = Cells(83, 16).Left
.Top = Cells(83, 16).Top
.Height = Cells(83, 16).Height
.Width = Range(Cells(83, 16), Cells(83, 26)).Width
'.Font.Name = "Arial"
'.Font.Bold = True
'.Font.Size = 11
End With
So funktioniert der Code einwandfrei.
Wenn ich die auskommentierten Zeilen hinzufüge,
wird angegeben, dass das Objekt die Eigenschaft oder Methode
nicht unterstützt.
Wie kann ich die Zeilen verwenden?
Frage 2:
Wie kann in einer Zelle angezeigt werden, welche ComboBox
betätigt worden ist?
Für evtl. Tipps oder Anregungen schon mal besten Dank!
Werner