Datumsvergleich in 2 Tabellen
11.03.2004 16:13:34
Peter
ich vergleiche in 2 Tabellen in Spalte A Datumswerte.
Bei Übereinstimmung erfolgt ein Eintrag.
Soweit funktioniert die Sache.
Kommt das gleiche Datum jedoch mehrmals vor, wird nur das
1. gefundene Datum gekennzeichnet, obwohl jedes Datum das in
beiden Tabellen vorhanden ist gekennzeichnet werden soll.
Wer kann helfen?
Danke Peter
Sub VergleichEintragen()
'mit Datumswerten
Dim rngFind As Range
Dim intRow As Integer
Worksheets("Ziel").Activate
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
Set rngFind = Worksheets("Quelle").Columns(1). _
Find(DateValue(Cells(intRow, 1)), LookIn:=xlFormulas)
rngFind.Offset(0, 9).Value = "XXX"
intRow = intRow + 1
Loop
End Sub
Anzeige