@Reinhard: Hinter Zeichen "&" Buchstaben Fett
Dieter(Drummer)
evtl. kannst du oder auch ein ander Spezialisten mir helfen. Von Reinhard das Makro setzt die FETTEN Buchstaben in ROT! Das ist ok!
Dieses Makro soll aber VORHER den Buchstaben, NUR der hinter dem Zeichen "&" folgt, FETT setzen. Hier das Makro:
Sub Fett_Rot()
Dim rng As Range, n&
Application.ScreenUpdating = False
For Each rng In Sheets("Tabelle1").UsedRange 'Tabelle/Bereich evtl. anpassen
If Not rng.HasFormula Then
For n = 1 To Len(rng.Value)
With rng.Characters(Start:=n, Length:=1).Font
If .Bold Then
.Color = 255&
Exit For
End If
End With
Next n
End If
Next rng
Application.ScreenUpdating = True
MsgBox "Fertig"
End Sub
Gruß, Dieter(Drummer)
Anzeige