Datumsvergleich
11.08.2005 10:55:10
Jörg
ich möchte ein Datumsvergleich beim öffnen einer
Datei erzeugen.
Es soll hier das Datum + XTage in einer Zelle mit dem aktuellen
Datum verglichen werden.
Ist der das errechnete Datum größer als das aktuelle soll
zu der Funktion Datum_leer: gesprungen werden.
Mein Problem ist das er immer zur Funktion springt.
Hier mein Code:
'Format Abfrage nach Differnze Zeit
myToday = Format(Now(), "dd.mm.yyyy")
If Worksheets("Startseite").Range("B12").Value = "" And _
Worksheets("Startseite").Range("I12").Value = "" Then
MyCellDate = ""
GoTo Datum_leer
End If
If Worksheets("Startseite").Range("B12").Value = "" And Not _
Worksheets("Startseite").Range("I12").Value = "" Then
MyCellDate = DateValue(Worksheets("Startseite").Range("B12") + 30)
End If
If Not Worksheets("Startseite").Range("B12").Value = "" And _
Worksheets("Startseite").Range("I12").Value = "" Then
MyCellDate = DateValue(Worksheets("Startseite").Range("I12") + 30)
End If
If Not Worksheets("Startseite").Range("B12").Value = "" And Not _
Worksheets("Startseite").Range("I12").Value = "" Then
MyCellDate = Worksheets("Startseite").Range("B12") + 30
End If
If myToday >= MyCellDate Then
GoTo Datum_leer
Else
TextBox5.Text = Worksheets("Startseite").Range("D9").Text
TextBox13.Text = Worksheets("Startseite").Range("B12").Text
TextBox15.Text = Worksheets("Startseite").Range("C12").Text
TextBox16.Text = Worksheets("Startseite").Range("H12").Text
TextBox22.Text = Worksheets("Startseite").Range("I12").Text
End If
Datum_leer:
'End selection Datum
........
Wer könnte mir hier helfen.
Gruss Jörg