Excel - Füllfarbe in Muster ändern

Computer: Software & Programmierung Office Software
#1

Hallo Excelperten.

Ich habe ein kleines Problem, welches ich mir „einfacher“ gestalten möchte.

Ich erhalte eine Excel-Liste via Export. In dieser Liste sind diverse Zellen blau eingefärbt (die Farbnummer habe ich).

Nun werden aber manche Zellen mittels VBA grün eingefärbt (immer andere, je nachdem welcher Nutzer die Datei öffnet).

Dadurch gehen diese blauen Einfärbungen für den Moment verloren.

Gibt es eine Möglichkeit via VBA diese blaue Einfärbung in ein schraffiertes Muster zu ändern?

Für Lösungshilfen wäre ich sehr dankbar.

Liebe Grüße

René

#2

Hallo René

Zum Beispiel so:

With Selection.Interior
    If .ColorIndex = 33 Then .Pattern = xlUp
End With

Die Farbnummer hast Du ja. Die musst Du bei ColorIndex einsetzen.

Bei dunklen Zellfarben sieht man allerdings die Schraffierung sehr schlecht! Dann versuche es z. B. mit
Pattern = xlHorizontal

Grüsse Niclaus