Datumsvergleich
16.12.2005 19:46:12
Peter
ich habe folgendes Problem:
In der Spalte „A“ der „Tabelle1“ stehen Datumswerte.
Ist eine Datumsangabe aus der drüberliegenden Zeile aus Spalte „A“ vom
Vortag, soll diese in die Spalte “A“ der “Tabelle2“ kopiert werden.
Als Ergebnis sollen keine aufeinanderfolgenden Tage in der gleichen Tabelle stehen.
z.B.
Tabelle1 - Tabelle2
12.01.05 - 13.01.05
27.01.05 - 28.01.05
29.01.05 -
02.02.05 -
Ich habe folgenden Lösungsansatz:
Jedoch funktioniert die Sache nicht, wenn als letzter und vorletzter Eintrag
aufeinanderfolgende Tage stehen.
Sub PruefenKopieren()
Dim intCounter As Integer, intLastRow As Integer
intLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
For intCounter = 2 To intLastRow
If CDbl(Cells(intCounter, 1).Value) = CDbl(Cells(intCounter + 1, 1).Value - 1 And _
CDbl(Cells(intCounter, 1).Value) Mod 2 = 0 Then
'Worksheets("Tabelle2").Cells(intCounter, 2).Value = Cells(intCounter, 1).Value
Cells(intCounter, 2).Value = Cells(intCounter, 1).Value
': Rows(intCounter).Delete
End If
Next intCounter
End Sub
Danke im voraus Peter