AW: Kontollkästchen
23.02.2004 11:29:54
Dieter Klemke
Hallo Sascha,
wäre das eine Möglichkeit?
Sub CheckBoxesEinfügen()
Dim chk As CheckBox
Dim ws As Worksheet
Dim zeile As Long
Dim zelle As Range
Set ws = ThisWorkbook.Worksheets(1)
' Vorhandene CheckBoxen vorsorglich löschen
For Each chk In ws.CheckBoxes
chk.Delete
Next chk
' CheckBoxen in Spalte A erzeugen
For zeile = 2 To 1001
Set zelle = ws.Cells(zeile, "A")
Set chk = ws.CheckBoxes.Add(Left:=zelle.Left, _
Top:=zelle.Top, _
Width:=zelle.Width, _
Height:=zelle.Height)
chk.Caption = "OK"
chk.LinkedCell = ws.Cells(zeile, "B").Address(False, False)
Next zeile
End Sub
MfG
Dieter