Finde Datum.......
10.11.2007 18:21:00
Sonnenpeter
leider leider komm ich mal wieder nicht weiter..............
Ich Suche ein Datum...........
Sub FindeDatum()
Dim Datum As Variant
Datum = Sheets("Tagesrapport").Range("A3").Value
With Sheets("Jahres-Zusammenfassung").Columns("A:A")
Set c = .Find(Datum, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address firstAddress
End If
End With
End Sub
Ich Denke es liegt wohl am Format von "Datum" oder?
Aber wie? die Recherche im Archiv hat mir auch nicht weiter geholfen.
Gruß Sonnenpeter