VBA: Problem mit Pattern / Colorindex
06.12.2006 14:09:13
Andreas
ich hab da ein unschönes Problem... wenn ich einer Zeile eine andere Hintergrundfarbe geben will, dann wird dabei das Muster "gelöscht" bzw. wohl auf Solid gesetzt.
Mein Workaround ist:
pat = Cells(zeile, spalte).Interior.Pattern
Cells(zeile, spalte).Interior.Color = Cells(searching_legende.Row, 2).Interior.Color
Cells(zeile, spalte).Interior.Pattern = pat
Schön finde ich das aber nicht...
Wenn ich nur die zweite Zeile verwende, dann verschwindet das Pattern von cells(zeile, spalte)
Wenn ich über Makroaufzeichnung das Pattern auf "solid" stelle, dann generiert mir die Aufzeichnung folgenden Syntax:
With Selection.Interior
.ColorIndex = 0
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
Dabei werden aber die Color-Angaben (glücklicherweise) nicht(!) überschrieben. Bedeutet hier .colorindex=0 soviel wie "laß alles für Farben beim Alten"?
Vielleicht hat jemand mal kurz Zeit, mir zu erklären, wie ich Hintergrundfarbe und Muster von Zellen in VBA sauber ansteuere? (Setzen und löschen)...
Besten Dank!
Gruß,
Andreas