S: Excel Makro

Print Page

Flochiller 22.04.2009 - 15:38 729 1

Posts

Flochiller

Here to stay

Registered: Jan 2004
Location: Wien
Posts: 1521

22.04.2009 - 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?

Bearbeitet von Flochiller am 22.04.2009, 18:31

Flochiller

Here to stay

Registered: Jan 2004
Location: Wien
Posts: 1521

22.04.2009 - 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

All times are GMT +1 hour. The time now is 08:30.

S: Excel Makro

Forum Index > Software > Coding Stuff

Flochiller

Flochiller