VBA Suchen und einfärben

Bild

Betrifft: VBA Suchen und einfärben
von: WalterK
Geschrieben am: 24.06.2015 15:57:19

Hallo,
folgenden Codeteil kann man bestimmt einfacher schreiben, denn so braucht dieser Teil ca 2 min für den Durchlauf:
-- es geht um die Tabellenblätter "Zuget" und "Pool"
-- im Blatt "Zuget" stehen in der Spalte 27 ca 600 Begriffe
-- im Blatt "Pool" stehen in der Spalte rngZelle.Column ca 7000 Begriffe
Im Blatt "Pool" sollen jetzt alle Zellen in der Spalte rngZelle.Column, die einen Begriff enthalten der auch im Blatt "Zuget" vorkommt, rot hinterlegt werden.
For j = 1 To LzZuget
For i = 1 To LzPool
If wksZuget.Cells(j, 27) = wksPool.Cells(i, rngZelle.Column) And wksPool.Cells(i, rngZelle.Column) <> "" Then
wksPool.Cells(i, rngZelle.Column).Interior.ColorIndex = 3
End If
Next i
Next j

Besten Dank im voraus, Servus Walter

Bild

Betrifft: AW: VBA Suchen und einfärben
von: Rudi Maintaire
Geschrieben am: 24.06.2015 16:08:03
Hallo,
Zählenwenn hilft

For i = 1 To LzPool
 If worksheetfunction.countif(wksZuget.Columns(27), wksPool.Cells(i, rngZelle.Column)) Then  _
wksPool.Cells(i, rngZelle.Column).Interior.ColorIndex = 3
 End If
 Next i
For j - Schleife entfällt
Gruß
Rudi

Bild

Betrifft: AW: VBA Suchen und einfärben
von: WalterK
Geschrieben am: 24.06.2015 16:15:38
Hallo Rudi,
besten Dank, ich bin begeistert.
Von 2 min auf 3 sec. TipTop
Servus, Walter

 Bild

Beiträge aus den Excel-Beispielen zum Thema "VBA Suchen und einfärben"