If-abfrage schlägt fehl
12.10.2005 18:18:40
Daniel
Mein problem ist folgendes. Ich habe in Spalte D Zeiten drinne stehen. Aber geht nie in die letzte If Abfrage rein. Abwohl bei mir der Wert der Zelle D6 = 00:00:01 ist. Dieser wert ist doch größer als der Wert a oder?
kann mir da einer helfen? Vielen Dank Daniel
Private Sub Page1Ok_Click()
Sheets("Grafiken T1&T2").Select
Sheets.Add
Zeilen = Sheets("Daten").Cells(Rows.Count, 1).End(xlUp).Row
If CheckBox1.Value = True _
Then
a = "00:00:00"
b = "01:00:00"
GoTo Ausführen
End If
Y = 2
Ausführen:
Sheets("Daten").Activate
For w = 6 To Zeilen
If Sheets("Daten").Range("c" & w) = Range("B3") _
Then
If Sheets("Daten").Cells(w, 4) < b _
Then
If Sheets("Daten").Cells(w, 4) >= a _
Then -- hier geht er nie rein---
Range("G" & w & ":H" & w & ",K" & w & ":P" & w).Copy Sheets(5).Range("A" & w)
End If
Else: GoTo Ende
End If
End If
Next w
Ende:
Zeitangabe.Hide
End Sub