Hilfe bei FindNext
09.04.2004 08:51:58
Peter
ich komme mit der FindNext Schleife nicht klar und benötige Hilfe.
Mein Ziel ist: - alle Werte aus Tabelle "Quelle" mit Tabelle "Ziel" zu
zu vergleichen und in Tabelle "Ziel" zu kennzeichnen.
Danke für die Hilfe
und ein frohes Osterfest
Peter
Sub MehrfacheMarkieren()
Dim shBlatt1 As Worksheet, shBlatt2 As Worksheet
Dim rngFind As String
Dim intRow As Integer
Dim strFind As Range
Set shBlatt1 = Worksheets("Ziel")
Set shBlatt2 = Worksheets("Quelle")
intRow = 2
Do Until IsEmpty(shBlatt1.Cells(intRow, 1))
Set rngFind = shBlatt2.Columns(1).Find(DateValue(shBlatt1.Cells(intRow, 1)))
If Not rngFind Is Nothing Then
strFind = rngFind.Address
Set rngFind = shBlatt2.Columns(1).FindNext(DateValue(shBlatt1.Cells(intRow, 1)))
shBlatt1.Rows(intRow).Interior.ColorIndex = 3
shBlatt2.Rows(rngFind.Row).Interior.ColorIndex = 6
End If
intRow = intRow + 1
Loop
End Sub
Anzeige