Erweiterung von "Find"
08.04.2004 10:46:11
Peter
ich habe eine Quell- und Zieltabelle. In der Quelltabelle stehen
z.B. 3 Datumswerte. Jetzt möchte ich alle Datumswerte die der Quelltabelle
entsprechen, in der Zieltabelle markieren.
Wie muß das Makro erweitert werden, um nicht nur einen Vergleichswert
zu finden?
Danke Peter
Sub DoppeltMarkieren()
Dim shBlatt1 As Worksheet, shBlatt2 As Worksheet
Dim rngTarget As Range
Dim intRow As Integer
Set shBlatt1 = Worksheets("Ziel")
Set shBlatt2 = Worksheets("Quelle")
intRow = 2
Do Until IsEmpty(shBlatt1.Cells(intRow, 1))
Set rngTarget = shBlatt2.Columns(1).Find(DateValue(shBlatt1.Cells(intRow, 1)))
If Not rngTarget Is Nothing Then
shBlatt2.Rows(rngTarget.Row).Interior.ColorIndex = 6
End If
intRow = intRow + 1
Loop
End Sub
Anzeige