Microsoft Excel

Herbers Excel/VBA-Archiv

Suche/Zellformatierung

Betrifft: Suche/Zellformatierung
von: Simon
Geschrieben am: 22.04.2003 - 10:18:57

Hallo Forum!
Ich habe eine Frage, und zwar möchte ich eine Tabelle nach einem Suchbegriff ("Nein") durchsuchen lassen und jede Zelle, in der dieser Suchbegriff ("Nein") vorhanden ist rot färben.
Die Färbung ist kein Problem
( With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With ),
aber die Suchschleife kriege ich nicht hin. Hat jemand Lust mir zu helfen?

Danke im voraus,
Simon

  

Re: Suche/Zellformatierung
von: ChrisL
Geschrieben am: 22.04.2003 - 10:30:11

Hallo Simon

Option Explicit

Sub Nein_Faerben()
Dim Zelle As Object

For Each Zelle In Range("A1:A100")
If Zelle = "Nein" Then Zelle.Interior.ColorIndex = 3
Next Zelle
End Sub


(Bereich noch anpassen)

Gruss
Chris

  

Danke
von: Simon
Geschrieben am: 22.04.2003 - 10:37:44

Hallo Chris!
Ich hab' mich damit dann wohl als Neuling/DAU geoutet *g* - danke Dir.

Simon