Herbers Excel-Forum - das Archiv
Format markieren
- Format markieren von Lena vom 30.11.2003 12:07:59
- AW: Format markieren - von Ramses am 30.11.2003 12:21:58
- AW: Format markieren - von Lena am 30.11.2003 12:30:15
- AW: Format markieren - von Lena am 30.11.2003 12:30:15
- AW: Format markieren - von Ramses am 30.11.2003 12:21:58
 |
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
 |
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
|
Betrifft: AW: Format markieren
von: Lena
Geschrieben am: 30.11.2003 12:30:15
Hallo Rainer!
Das funktioniert!!!
Vielen Dank,
Lena
| |