Ist das so Möglich?
24.09.2015 14:12:36
Nikolas
Kleine Frage zur Richtigkeit folgenden Ausdrucks:
Sub Schleife()
'ständiges Überprüfen, ob Farbe nicht mehr Grün
Dim i As Integer, var1 As Integer
Do While i > 1
For j = 40 To 48
If Cells(j, 10).Interior.ColorIndex = 3 Then
Range("A40").Select
ActiveCell.FormulaR1C1 = "X"
Range("J40").Select
ElseIf Cells(j, 10).Interior.ColorIndex = 6 Then
Range("A40").Select
ActiveCell.FormulaR1C1 = "X"
Range("J40").Select
Else: Range("A40").Select
ActiveCell.FormulaR1C1 = "O"
Range("J40").Select
End If
i = i - 1
Next
Loop
End Sub
Ich will die Schleif immer im Hintergrund laufen haben, damit sie mir direkt anzeigt, wenn ein Feld von grün auf rot oder gelb wechselt. Kann man das so machen?
Kann man die Schleifenbedingung so schreiben, oder gibt's da nen Trick damit sie von vorne rein bis ins unendliche läuft?
Wie kann ich dann überprüfen, ob die Schleife gerade läuft oder nicht? Und muss ich die Schleife jedes mal neu starten, wenn ich die Datei öffne?
Fragen über Fragen, aber ich bin mir sicher, dass ihr die richtigen Antworten für mich habt
Danke schon mal vorab!
Anzeige