Ich hatte vor einigen Tagen,das untere Makro von Josef Ehrensberger bekommen.
Hier wird in L7:P34 eine Zahl in der Schriftart "CombiNumerals Ltd" umgewandelt.
Nur wenn ich zB. in C31 einen Wert reinschreibe,bekomme ich einen Makrofehler in der Zeile
"For Each rng In Intersect(Target, Range("L7:P34"))"
Könnte mir dazu bitte jemand helfen ?
Gruß
Heinz
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Dim lngIndex As Long
For Each rng In Intersect(Target, Range("L7:P34"))
If rng "" Then
For lngIndex = 1 To Len(rng.Text)
If rng.Characters(lngIndex, 1).Text Like "#" Then
rng.Characters(lngIndex, 1).Font.Name = "CombiNumerals Ltd"
rng.Characters(lngIndex, 1).Font.Size = 18
Else
rng.Characters(lngIndex, 1).Font.Name = "Arial"
rng.Characters(lngIndex, 1).Font.Size = 12
End If
Next
End If
Next
End Sub