alles nach zweitem For wird übersprungen Warum
30.05.2018 11:01:29
christoph
Er geht auf die erste For....Next Schleife
auf die zweite For...Next Schleife
und springt dann direkt zum letzten Next (also von der ersten Schleife) warum?!
Ps.: wahrscheinlich ein grausamer Code für alle erfahrenen VBA´ler aber für mehr reichen meine Fähigkeiten nicht
Private Sub CommandButton5_Click()
Dim Springer As Integer, Läufer As Integer, Mitarbeiter As Integer, Abwesend As Integer
Dim tofind As Date, tofind2 As Date
Dim rngFound As Range, rngFound2 As Range
Dim strFirstAddress As String
For Springer = 6 To 42 Step 18
For Läufer = 2 To Worksheets("urlaub").Range("E" & Springer - 2) Step 2
Do While Worksheets("urlaub").Cells(Springer + 2, Läufer) ""
tofind = Worksheets("urlaub").Cells(Springer + 2, Läufer)
Set rngFound = Columns(3).Find(What:=tofind, After:=Cells(29, 3), LookIn:=xlValues, LookAt:=xlWhole)
tofind2 = Worksheets("urlaub").Cells(Springer + 2, Läufer + 1)
Set rngFound2 = Columns(3).Find(What:=tofind2, After:=Cells(29, 3), LookIn:=xlValues, LookAt:=xlWhole)
If rngFound2 "" Then
rngFound.Offset(0, Mitarbeiter).Value = "a"
rngFound.Offset(0, Mitarbeiter).Value.Interior.ColorIndex = 1
Else
For Abwesend = rngFound.Row To rngFound2.Row
If Cells(Abwesend, 2) "" Then
Cells(Abwesend, Mitarbeiter) = "a"
Cells(Abwesend, Mitarbeiter).Interior.ColorIndex = 1
End If
Next
End If
Loop
Mitarbeiter = Mitarbeiter + 1
Next
Next