For Next Schleife
04.07.2020 20:04:24
Holger
der Folgende Code läuft, müsste ihn aber 336 mal ausführen da ich in meiner Userform 336 Checkboxen habe.
Ich hatte mir gedacht den Code in eine Schleife zu durchlaufen, das Klappt aber nicht.
Folgende Zelle bleibt hängen: If CheckBox & i.Value = True Then
Habe eigentlich die Nr der Checkbox durch & I ergänzt
Der Code ist in einer UserForm und wir durch CommandButton1 ausgeführt.
Dieser Code läuf müsste ihn nur für jede Checkbox schreiben
Private Sub CommandButton1_Click()
Sheets("Früh").Activate
[C:C].SpecialCells(xlBlanks).Cells(1).Select
If CheckBox1.Value = True Then
ActiveCell.Offset(0, 0).Value = CheckBox1.Caption
ActiveCell.Offset(1, 0).Activate
End If
[C:C].SpecialCells(xlBlanks).Cells(1).Select
If CheckBox2.Value = True Then
ActiveCell.Offset(0, 0).Value = CheckBox2.Caption
ActiveCell.Offset(1, 0).Select
End If
[C:C].SpecialCells(xlBlanks).Cells(1).Select
If CheckBox3.Value = True Then
ActiveCell.Offset(0, 0).Value = CheckBox3.Caption
ActiveCell.Offset(1, 0).Select
End If
....... bis CheckBox336
End Sub
Private Sub CommandButton1_Click()
'Mitarbeiter in Blatt übernehmen
Dim i
Sheets("Früh").Activate
With Me
For i = 1 To 336
[C:C].SpecialCells(xlBlanks).Cells(1).Select
If CheckBox & i.Value = True Then
ActiveCell.Offset(0, 0).Value = CheckBox & i.Caption
ActiveCell.Offset(1, 0).Select
End If
Next i
End With
End Sub