Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Find,"tabellen und farbig hinterlegen"
Nur nichtfarbige Zellen schützen Label und Zellen farbig markieren
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen Kopfzeile einer Autofilter-Tabelle gelb hinterlegen
Zellen unterhalb Samstagen und Sonntagen grau hinterlegen