S: Excel Makro

Seite 1 von 1 - Forum: Coding Stuff auf overclockers.at

URL: https://www.overclockers.at/coding-stuff/s_excel_makro_206839/page_1 - zur Vollversion wechseln!

Flochiller schrieb am 22.04.2009 um 15:38

Hi!

Ich habe folgendes Problem:

Ich habe ein Haufen Tabellen, die farblich geändert werden müssen, wie im bild gezeigt. Leider sind die einzelnen Seiten/Tabellen alle verschieden und ich habe mir gedacht man müsste das irgendwie mit einem Makro bewerkstelligen können. Wenn auch nur mit: Feld Makieren und dann Makro ausführen, das würde mir viel arbeit abnehmen. Hab jetzt ein bisschen herumgetüftelt bin aber zu keinem grünen Zweig gekommen

Vielleicht kann mir jemand sagen, wie ich dies machen kann?

Danke

Flo

edit: wie ihr seht sind sie ja schon alle formatiert aber die farben sollen geändert werden, was auch möglich wäre, einfach farbton in anderen farbton ändern... geht sowas?

Flochiller schrieb am 22.04.2009 um 18:32

Reverse Engineering sei Dank!
Hab herausgefunden, dass es bei den erweiterten Suchen und Ersetzen optionen eine formatsuche gibt :O

Zitat
Sub Färben()
With Application.FindFormat.Interior
.ColorIndex = 15
End With
With Application.ReplaceFormat.Interior
.Color = 15587267
End With
Cells.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByColumns, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True
End Sub