Hallo,
kann mir jmd helfen? Ich bekomme für folgenden Code keine For Schleife hin. Diese soll lediglich den Code verkürzen. Die Syntax und die Semantik ist richtig.
Das Problem ist, dass ich es irgendwie hinbekommen muss, die Checkbox(en) mit mein i zu verbinden und dann aus einem string, also die Checkbox und dem index i wieder eine Variable zu machen. Textmerge wäre hier mein Stichwort.. Bei der Zelle genau das gleiche..
Der richtige (viel zu lange) Code:
If Range("C26") = "-" Then
CheckBox1.Value = False
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
If Range("C27") = "-" Then
CheckBox2.Value = False
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
Mein Ansatz zur Verbesserung(falsch):
Dim i As Integer '// checkboxindex
Dim j As Integer '// Index für die Zellen
For i = 1 To 36
For j = 27 to 48
If Range("C" j ) = "-" Then
CheckBox(i).Value = False
End If
next i
next j
Also ich möchte Die zellen von C27 bis C48 und die Checkboxen 1 bis 36 durchlaufen lassen um mir eine Menge an Code zu sparen..
hat jemand eine idee? Wäre super nett!!
Danke
|