Hey,
Bei dem Programm, was ich versucht habe zu schreiben, Funktioniert die Minutenüberprüfung nicht so recht. Mir werden richtige Datums auch gelöscht. Ich glaube das liegt daran, dass Exel zum teil rundet und dann irgendwann ab denn nachkommastellen falsch wird. Kann man bei der Überprüfung auch runden?
Danke schon einmal im voraus, Anna
Dim i As Long 'Zellennummer
Dim z As Long 'Anzahl der Zellen
z = Cells(Rows.Count, 1).End(xlUp).Rows.Row
With ActiveSheet
For i = 3 To z Step 1
If .Cells(i, 1) <> Cells(2, 1) + (Format((i - 2) / 60 / 24)) Then Cells(i, 1).Clear
Next
End With
|