Kontrollkästchen plazieren
04.10.2004 10:12:50
Frank
mit
Dim oChk As CheckBox
Set oChk = ActiveSheet.CheckBoxes.Add(1, 1, 1, 1)
erstelle ich eine Checkbox.
Diese soll nun in der Zeile iRow (ist die erste freie Zeile- die ermittle ich schon vorher) in der Mitte dieser Zeile (in Spalte A) plaziert werden.
Dazu muß ich ja die Eigenschaft .Top zuweisen -
aber wie kann ich die ermitteln?
Mein Ansatz war:
.Top = Range(Cells(1, 1), Cells(iRow, 1)).Height
das paßt aber nicht so richtig.
Wer kann mir weiterhelfen? Danke!
mfg - Frank