ich bin gerade dabei eine Tabelle zu erstellen in der eine For schleife sinnvoll wäre.
Allerdings kriege ich diese nicht wirklich zum laufen:
Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("P5:P14").Interior.ColorIndex = 15
Range("P5:P14").Value = "Urlaub"
Range("P5:P14").Locked = True
Range("P16:P25").Interior.ColorIndex = 15
Range("P16:P25").Value = "Urlaub"
Range("P16:P25").Locked = True
Range("P27:P36").Interior.ColorIndex = 15
Range("P27:P36").Value = "Urlaub"
Range("P27:P36").Locked = True
..... der Code würde hier ewig weiter laufen (inkls. else Anweisung)
Mein Vorschlag sieht so aus:
Private Sub CheckBox1_Click()
dim x as integer
dim y as integer
If CheckBox1.Value = True Then
For x = 5 to 577 step 11
for y = 14 to 586 step 11
Range(Cells(16,x), Cells(16,y)).Interior.ColorIndex = 15
Range(Cells(16,x), Cells(16,y)).Value = "Urlaub"
Range(Cells(16,x), Cells(16,y)).Locked = True
next y
next x
end if
End Sub
ist bei Excel solch eine Schleife überhaupt möglich? Bei c++ kriege ich so etwas hin - nicht aber bei excel