Mehrere Kontrollkästchen via VBA einfügen
14.01.2020 17:54:19
Anke
ich bin gerade dabei, mittels eines VBA Skripts eine vorher definierte und sich unterscheidende Anzahl an Kontrollkästchen in die Spalten B und C einzufügen.
Hier ist mal mein Code, der den Abschnitt betrifft.
Sub SetAmountChkBox()
'Disable Screen Update
Application.ScreenUpdating = False
'Variable Declaration
Dim Rng As Range
Dim ShtRng As Range
Dim WrkSht As Worksheet
Dim i, j, k, m As Integer
Dim numPoints As Integer
'Variable Initialization
i = 1
numPoints = Sheets("Punkte").Cells(3, 1).Value
Set ShtRng = Range("B22", "C22")
For j = 1 To numPoints
m = j + 21
For k = 2 To 3
Set ShtRng = Union(ShtRng, Cells(m, k))
Next
Next
For Each Rng In ShtRng
With Sheets("Protokoll").CheckBoxes.Add(Left:=Rng.Left, Top:=Rng.Top,
Width:=Rng.Width, Height:=Rng.Height)
End With
Next
'ShtRng.ClearContents
'ShtRng.Select
'Enable Screen Update
Application.ScreenUpdating = True
End Sub
Wenn ich allerdings das Programm ohne Debugg durch laufen lasse bekomme ich folgendes Ergebnis (am Code wurde nichts geändert!)
Hat mir jemand ne Idee, wie ich das obere Ergebniss immer bekomme, nicht nur beim debuggen?
Vielen herzlichen Dank schonmal im voraus.