Find,"tabellen und farbig hinterlegen
26.04.2005 08:38:16
Regina
folgendes Makro funktioniert soweit ganz gut, nur das makieren in der Tabelle 2 klappt nicht.
Sub BeträgeSuchen()
Dim WKS As Worksheet
Dim rngFind As Range
Dim intRow As Integer
Dim LR As Long
LR = Cells(65530, 1).End(xlUp).Row
For intRow = 2 To LR
If Cells(intRow, 6) > 1 Then
Set rngFind = Worksheets("Tabelle2").Cells.Find(Cells(intRow, 6), lookat:=xlWhole, _
LookIn:=xlValues)
If Not rngFind Is Nothing Then
Cells(intRow, 6).Interior.ColorIndex = 6
Worksheets("tabelle2").Cells.rngFind.Interior.ColorIndex = 6
End If
End If
Next
End Sub
Es sollte so laufen: Beträge aus Tab1, SpalteF in Tab2 suchen, wenn was gefunden wird auf beiden tab den Betrag farbig kenntlich machen.
Auf Tab1 klappt es, aber nicht auf tab2.
habe aber keine Ahnung woran das liegt.
Vielleicht kann jemand helfen.
Vielen Dank im voraus.
Gruß Regina
Anzeige