Format markieren

Bild

Betrifft: Format markieren
von: Lena
Geschrieben am: 30.11.2003 12:07:59

Hallo !
Hier noch eine Frage, die mir auf dem Herz liegt.
Ich habe eine Exceltabelle, wobei in manchen Zellen sowohl schwarzer Text als auch blauer Text vorliegt.
Ich möchte ein Makro haben, dass in jeder Zelle den blauen Text löscht.
Ich tue mich sehr schwer, weil ich nur weiß wie man eine komplette Zelle anspricht, aber nicht wie man einen Teil einer Zelle markiert.
Gibt es da Ideen?
Danke schön,
Eure Lena

Bild


Betrifft: AW: Format markieren
von: Ramses
Geschrieben am: 30.11.2003 12:21:58

Hallo

das Makro löscht jeglichen blauen Text in einer Zelle des aktiven Tabellenblattes

Option Explicit


Sub Check_Colour_and_Delete_Characters()
Dim i
Dim mySRange As Range, myC As Range
Set mySRange = ActiveSheet.UsedRange
For Each myC In mySRange
    For i = Len(myC) To 1 Step -1
        '.ColorIndex = 5 => Blau
        If myC.Characters(Start:=i, Length:=1).Font.ColorIndex = 5 Then
            myC.Characters(Start:=i, Length:=1).Delete
        End If
    Next i
Next
End Sub


Gruss Rainer


Bild


Betrifft: AW: Format markieren
von: Lena
Geschrieben am: 30.11.2003 12:30:15

Hallo Rainer!
Das funktioniert!!!
Vielen Dank,
Lena


Bild

Beiträge aus den Excel-Beispielen zum Thema " Format markieren"