Datumssuche und vergleich
09.03.2004 08:52:41
Peter
mein Versuch funktioniert nicht. Wer kann helfen?
Ich habe eine Tabelle Quelle und eine Tabelle Ziel. In beiden Tabellen stehen in der 1. Spalte Datumswerte.
Ich möchte die Datumswerte aus der Tabelle Ziel
mit den Datumswerten aus der Tabelle Quelle vergleichen. Bei Übereinstimmung des
Datumswertes soll in der Tabelle Quelle, um 9 Spalten versetzt das heutige Datum eingetragen werden.
Danke Peter
Sub Datum()
Dim intRow
Dim rngFind
Worksheets("Quelle").Activate
intRow = 2
Do Until IsEmpty(Cells(intRow, 1))
Set rngFind = Worksheets("Ziel").Columns(1). _
Find(Cells(intRow, 1), LookIn:=xlValues, lookat:=xlWhole)
rngFind.Offset(0, 9).Value = Date
intRow = intRow + 1
Loop
End Sub