LinkedCell-CheckBox
29.10.2005 12:23:52
Mola
erneut quälen mich die Check-Boxen...ich hab leider nix passendes bei der Recherche gefunden - daher hoffe ich auf einen Tip von Euch - auch wenn es zum 1000ten mal ist :o)!
Also damit füge ich nun in meiner prächtigen Excel-Tabelle die Boxen ein. Das heißt, je nachdem ob ab B8 ein Wert eingetragen wurde soll er mir ab N8 eine CheckBox einfügen. Das funktioniert soweit.
Dim lz, zelle
Dim obj As Object
Dim c As Long
lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'CheckBox einfügen
For Each zelle In Range("B8:B" & lz)
If zelle <> "" Then
c = c + 1
Set obj = ActiveSheet.OLEObjects.Add _
(ClassType:="Forms.CheckBox.1", Left:=Range("N" & zelle.Row).Left, Top:=Range("N" & zelle.Row).Top, _
Width:=Range("N" & zelle.Row).Width, Height:=Range("N" & zelle.Row).Height)
obj.Name = "Box" & c
End If
Next
Set obj = Nothing
Jetzt möchte ich den Boxen aber folgende Eigenschaften hinzufügen - was aber bei mir nicht funktioniert:
obj.Placement = xlMoveAndSize
obj.Caption = ""
obj.LinkedCell = hier soll immer die jeweilige Zeilennummer rein (Also ist die Box in N8 dann linkedCell = N8 usw.)
Vielen Dank nochmals!
Mola