Hallo Detlev,
vielen Dank für deine Antwort, ich habe das mal ausprobiert. Leider passiert der Fehler schon, bevor die zusätzliche Abfrage passieren kann. Wenn das Makro durchgelaufen ist, stimmt nach wie vor der letzte Zeitraum nicht, es wird ein Tag zuviel gelöscht. Ich habe auch ein bisschen rumprobiert (vielleicht war auch ein bisschen verzweifeltes, planloses Rumklicken dabei ;) ) und habe es jetzt geschafft, die richtige Ausgabe zu bekommen. Mit folgendem Code:
Sub test()
Dim m As Integer
For m = 1 To 20
Do Until Cells(m, 1) <> Cells(m + 1, 1)
If Cells(m, 3) < Cells(m + 1, 3) Then
Cells(m, 3).Delete
End If
If Cells(m, 2) < Cells(m + 1, 2) Then
Cells(m + 1, 2).Delete
End If
Cells(m, 1).Delete
Loop
If Cells(m + 1, 1) = "" Then
Exit For
End If
Next m
End Sub
erhalte ich jetzt die richtige Ausgabe:
A B C
xxxx |
01.10.2012 |
03.10.2012 |
yyyy |
02.10.2012 |
05.10.2012 |
zzzz |
08.10.2012 |
11.10.2012 |
Der einzige Unterschied zum Ursprungscode besteht darin, dass ich nach der Abfrage in Spalte A erst in die Spalte C wechsele und die Werte in Spalte B zuletzt abfrage.
Weiß der Geier wie, aber jetzt funktioniert es :)
Vielen Dank nochmal und viele Grüße
|