CheckBoxen via VBA erzeugen
12.01.2006 14:35:01
Simone
hoffe jemand kann mir helfen.
Und zwar erzeuge ich per Makro ein paar Checkboxen. Die ich dann auch noch automatisch auf true setzt. Jetzt möchte ich allerdings, denen auch noch einen Namen mit vortlaufender Nummer geben. Habs versucht aber nicht geschafft. Hier mal mein Code:
lfdnr = 1
For lngIndex = 5 To lngLastRow
If Cells(lngIndex, 6) "" Then
Set objOLE = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", _
Left:=Cells(lngIndex, 2).Left, Top:=Cells(lngIndex, 2).Top, _
Width:=15, Height:=10.5)
objOLE.Object.Value = True
'Namen mit fortlaufender Nummer (klappt aber nicht!)
'objOLE.Object.Name = "Box" & lfdnr
Set objOLE = Nothing
lfdnr = lfdnr + 1
End If
Next
Wäre wirklich sehr denkbar für Hilfe!