Frage zu Makro zum Kontrollkästchen erzeugen?
20.12.2005 10:45:06
Oliver
ich hätte da mal eine Frage. Ich möchte mit nachfolgendem Code Kontrollkästchen aus der Symbolleiste Formular erzeugen. Das funktioniert auch soweit. Nun möchte ich, dass diese immer in der Zeilenmitte in Zelle A positioniert werden. Ich gebe also die Zahl 10 für die Position vor und addiere dann immer 12,75 dazu (die Zeilenhöhe beträgt 12,75). Das funktioniert nun leider immer nur für die ersten paar Kontrollkästchen. Dann verschiebt sich die ganze Geschichte nach unten. Dazu nu die Frage, warum ist das so? Weiß dass jemand und kann mir das erklären? Wäre super, denn ich grüble schon eine Ewigkeit darüber und auch auf Herbers Tutorial CD habe ich dafür keine Erklärung gefunden.
Option Explicit
Sub Kontrollkästchen_einfügen()
Dim Wiederholungen As Integer, Position As Integer
Application.ScreenUpdating = False
Position = 10
For Wiederholungen = 1 To 100
With ActiveSheet.CheckBoxes.Add(17.25, Position, 24, 17.25)
.LinkedCell = "$A$" & Wiederholungen + 1
.Characters.Text = ""
End With
Position = Position + 12.75
Next
End Sub
Danke Euch schon mal im Voraus,
Oliver S.