Wie kann ich wenn zb 1 auftritt diesen automatisch fett und färbig formatieren? Da gibts doch bestimmt was! Vielen Dank im Voraus.
Grüße
Franz
Private Sub Worksheet_Change(ByVal Target As Range)
If InStr(Target.Value, "1") Then cb = InStr(Target.Value, "1")
x = Target.Address
With Target.Characters(Start:=cb, Length:=1).Font
.FontStyle = "Fett"
.ColorIndex = 4
End With
End Sub