GoTo und der Code rennt sich tot
20.06.2004 21:31:03
FritzSanne
Bis zu der GoTo Anweisung läuft der Code.
Sinn der Sache ist, dass ich mir automatisch Termine zu jeder vollen Stunde vorschlagen lassen, wenn die Zellen nicht belegt sind, bzw. wenn sie nicht farbig unterlegt sind. Ist ein Tag mit Terminen voll, wird der nächste angesprungen und es wird geprüft, ob nicht ein Feertag oder Wochenende ist (ist auch bunt :-))
Bis dahin klappt es.
Nun soll aber am neuen Arbeitstag wieder überprüft werden, wann ich Zeit habe.
Das wollte ich mit der Goto-Anweisung erreichen. Aber da rennt er los und hört nichtwieder auf.
Wie kann man das denn regeln?
Dankbar für Hilfe grüßt Euch Fritz
Sub GesperrteZeitAusschließen()
Dim Zeit As Date
Dim Spalte As Long
Dim r As Integer
r = ActiveCell.row
Dim SpalteGefunden As Boolean
Dim MorgenWeiter As Boolean
Sheets("Kalender").Activate
Zeit = Sheets("Start").Range("H33").Value
For Spalte = 4 To 64
If IsNumeric(Cells(1, Spalte)) And Not IsEmpty(Cells(1, Spalte)) Then
If Cells(1, Spalte).Value = Zeit Then
SpalteGefunden = True
Exit For
End If
End If
Next Spalte
If SpalteGefunden Then
ActiveCell.Cells(, Spalte).Offset(0, 2).Select
End If
For Spalte = 4 To 70
If IsEmpty(Cells(1, Spalte)) Then MorgenWeiter = True
If Not IsEmpty(ActiveCell) Or Not ActiveCell.Interior.ColorIndex = xlColorIndexNone Then
ActiveCell.Offset(0, 4).Select
End If
Next Spalte
If MorgenWeiter Then Cells(r + 1, 1).Select
If MorgenWeiter Then ArbeitsfreieTageAusschließen
Zeile22:
If MorgenWeiter Then GoTo Zeile22
End Sub