Ich ersuche um Hilfe bezüglich des u.a. Codes. Der Code soll doppelte Datums löschen und bei den verbleibenden nur jene stehen lassen, die zwischen 7:00 bis 12:00 aufscheinen. Den u.a. Code habe ich zwar gefunden, der löscht zwar alle doppeltenm jedoch ohne auf die Zeit zu achten.
Kann mir ein Profi sagen, was ich einfügen muß um dies zu erlangen.
Danke im voraus
chris
Sub DuplikateLoeschen()
Dim i&
Application.ScreenUpdating = False
For i = Cells(Rows.Count, "A").End(xlUp).Row To 1 Step -1
If Application.CountIf(Range(Cells(14, "A"), Cells(i, "A")), Cells(i, "A")) > 1 Then
Cells(i, "A").EntireRow.Delete
End If
Next
Application.ScreenUpdating = True
End Sub