Zellen formatieren

Bild

Betrifft: Zellen formatieren
von: Cris / Ffm
Geschrieben am: 06.04.2005 17:28:32
Hallo Hilfe,
eigentlich ist es etwas sehr einfaches, aber leider nicht für mich!
In einer Zelle habe ich den Eintrag "G-P-U" und möchte jeden Buchstaben in einer anderen Farbe haben. Nun könnte ich einfach manuell jeden Buchstaben farbig machen, allerdings ist die Tabelle etwas länger und ich möchte in den nächsten Zeilen auch eine Formatierung einfügen, die jedes Mal, wenn ich einen dieser Buchstaben eintrage, diesen farbig macht (In der gewünschten Farbe aus der ersten Zelle).

HHHIIILLLFFFEE
Danke im voraus.
Cris

Bild

Betrifft: AW: Zellen formatieren
von: Werner Oertli
Geschrieben am: 06.04.2005 17:53:02
Hallo Cris
Wenn es immer nur drei Buchstabes mit zwei Bindestrichen sind, dann dieses Makro in eine Schleife setzen und Zelle aktivieren.

Sub G_P_U()
    With ActiveCell.Characters(Start:=1, Length:=1).Font
        .ColorIndex = 3
    End With
    With ActiveCell.Characters(Start:=3, Length:=1).Font
        .ColorIndex = 5
    End With
    With ActiveCell.Characters(Start:=5, Length:=1).Font
        .ColorIndex = 14
    End With
End Sub

RÜCKMELDUNG? Das Forum lebt davon!
Gruss Werner
Morgen habe ich Sonntag!
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellen formatieren"