Find,"tabellen und farbig hinterlegen

Bild

Betrifft: Find,"tabellen und farbig hinterlegen
von: Regina
Geschrieben am: 26.04.2005 08:38:16
hallo zusammen,
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
Bild

Betrifft: AW: Find,"tabellen und farbig hinterlegen
von: Martin Beck
Geschrieben am: 26.04.2005 10:58:24
Hallo Regina,
statt
Worksheets("tabelle2").Cells.rngFind.Interior.ColorIndex = 6

rngFind.Interior.ColorIndex = 6

Gruß
Martin Beck
Bild

Betrifft: AW:o.t Danke! klappt jetzt
von: regina
Geschrieben am: 26.04.2005 11:34:53
o.t.
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Find,"tabellen und farbig hinterlegen"