|
Habe in einer ExcelTabelle verschiedene ChkBoxes erstellt und möchte diese nun prüfen. Bekomme es aber nicht hin. Umgebung ist Excel 2003. Anbei das Programm
Private Sub CheckBox_anlegen(Bezeichnung As String, WS As Integer, Anzahl As Integer)
Dim Left As Double, Top As Double, Width As Double, Height As Double
Dim LZeile As Long, i As Integer
Left = 760
Top = 100
Width = 100
Height = 17
Worksheets(WS).Activate
For i = 1 To Anzahl_strategischer_Initiativen
ActiveSheet.CheckBoxes.Add(Left, Top, Width, Height).Select
With Selection
.Value = xlOff
.Name = Bezeichnung & i
.Caption = Bezeichnung & " SI " & i
.Display3DShading = True
End With
Top = Top + 20
Next i
End Sub
Die Checkboxen werden erzeugt. Sowohl das Sheet als auch die darin liegenden ChkBoxen werden zur Laufzeit erzeugt. Ich muss die ChkBoxen also von außerhalb ansprechen.
Die Syntax müsste also lauten:
Worksheet.[variabler Anme der ChkBox].value
Wie frage ich die ChkBoxen ab?
|