Guten Abend liebes Forum,
Seit Stunden sitze ich, totaler VBA-Neuling, an meinem "code". Ein bestimmer Bereich soll von oben nach unten zeilenweise durchsucht werden.
Also for schleife z = 1 to 64
kriterium erfuellt?
ja s=1, dann so lange erhoehen bis kriterium nicht mehr erfuellt ist
nein? innere schleife beenden und z um 1 erhoehen.
Ich wuerde mich freuen wenn mir jemand sagt was bei mir falsch laeuft Danke fuer eure Zeit!
*Topic verschoben*
Seit Stunden sitze ich, totaler VBA-Neuling, an meinem "code". Ein bestimmer Bereich soll von oben nach unten zeilenweise durchsucht werden.
Also for schleife z = 1 to 64
kriterium erfuellt?
ja s=1, dann so lange erhoehen bis kriterium nicht mehr erfuellt ist
nein? innere schleife beenden und z um 1 erhoehen.
Ich wuerde mich freuen wenn mir jemand sagt was bei mir falsch laeuft Danke fuer eure Zeit!
Visual Basic-Quellcode
- Sub Timeschedule()
- Range("U2:BS67") = ""
- Application.Calculation = xlManual
- Dim s As Integer
- Dim z As Integer
- z = 1
- For z = 1 To 64
- s = 1
- While s <= 64
- If Range("U1:BS67").Cells(1, s).Value - 1 >= Range("L1:S69").Cells(z + 2, 1).Value And Range("U1:BS67").Cells(1, s).Value - 1 < Range("L1:S69").Cells(z + 2, 2).Value Then
- Range("U1:BS67").Cells(z, s).Value = "1"
- s = s + 1
- Else
- s = 99
- End If
- Wend
- Next z
- End Sub
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()