Hallo Leute,

habe folgendes Problem, ich habe einen Excel Script der alle nicht gefärbten Zellen ausblendet, jedoch bekomme ich ab und ann Excel Listen wo auch manche Zellen weiß gefärbt sind und diese deshalb nicht ausgeblendet werde.

Meine Frage ist wie kann ich sagen " Stelle alle weißen Zellen auf keine Füllfarbe" ?

Danke jetzt schon mal für die Antwort

@FloFuchs: Muss das nicht in Zeile 4oderheißen? Bei deinem Code wird bei mir jede ehemals weiße Zelle türkis eingefärbt.

Hmm kommt das eventuell auf die Excelversion an?
Ich arbeite mit Office2010 da kappt das mit xlNone....
Oder haste evtl noch ne bedingte Formatierung in dem Bereich?
Btw... bei mir ist
xlNone = -4142
nicht 0....

Eigentlich setzt du ja Color auf -4142 (siehe hier (2003) oder hier (2010))Ich nehme an, Excel 2003 (das ich nutze) interpretiert das dann halt als tatsächlichen Farbwert -4142, während die 2010er-Version xlNone in dem Fall dann halt "korrekt" auswertet. Funktioniert denn mein Code unter 2010?

Sehe dein Edit erst jetzt: Ja, bei mir auch - siehe Post oben - aber mit 0 klappts halt auch.

@Bjöni .. Nein... Color = 0 ergibt schwarz in der 2010er Version...
Das muss sich @Neostorm dann raussuchen wie er es will... wichtiger is eh der Weg
Edit:
so schauts aus... auf den Colorindex bin ich auch gestossen... evtl der allgemeingültige Weg für alle Versionen??
Gibt einen Variant-Wert zurück, der die Farbe des Innenbereichs darstellt, oder legt diesen fest.

Moment... Color = 0 ergibt schwarz oder ColorIndex = 0 ergibt schwarz?

Bei mir: Color = 0 -> schwarz
ColorIndex = 0 -> Transparent

Aber eigentlich wirklich egal - kann sich der TE dann ausssuchen / ausprobieren wies ihm passt

Hey super das Funktioniert Dankeschön:)

Kann ich auch einstellen das er das ganze Arbeitsplatt durchsucht?
Im Beispiel sucht er nur von A1 bis C3!

ehm... nein sowas geht natürlich nicht
Ja klar.. er sucht von A1:C3 was könntest du da ändern? einfach die Start und Endposition
oder für wirklich das ganze Blatt:

FloFuchs schrieb:

oder für wirklich das ganze Blatt

Das dauert aber ne Weile
65.536 Zellen x 256 Zellen = 16.777.216 zu durchsuchende Zellen. Nach 5 min "keine Rückmeldung" hab ich Excel gekillt

BjöNi schrieb:

Das dauert aber ne Weile

joa.. das is wohl richtig... ab 2007 noch viel länger...

Aber...

Neostorm schrieb:

Kann ich auch einstellen das er das ganze Arbeitsplatt durchsucht?

es ist nur die Antwort auf die Frage

Nochmals vielen Dank für die schnelle Hilfe

Hat alles geklappt
Habe die Suche eingegrenzt damit nicht das ganze Blatt durchsucht wird

Wenn du flexibel sein willst und dennoch nicht das ganze Blatt bearbeiten willst, kannst du auch Activesheet.UsedRange verwenden.

Am elegantesten ist allerdings die Replace-Methode mit ReplaceFormat:=True
msdn.microsoft.com/en-us/libra…a176178(v=office.11).aspx
Im obigen Beispiel wird .Font verwendet. Das funktioniert aber auch mit .Interior