Sub
ErsetzenUndFormatieren()
Dim
wks
As
Worksheet
Dim
varZelle
As
Variant
Dim
strSuche
As
String
Dim
lngPos
As
Long
strSuche =
"$1"
Set
wks = ActiveSheet
For
Each
varZelle
In
wks.Range(
"A1:A100"
)
varZelle.
Select
For
lngPos = 1
To
Len(Cells(1, 1))
If
Mid(Cells(1, 1), lngPos, 2) = strSuche
Then
Cells(1, 1).Characters(Start:=lngPos, Length:=2).Font.Name =
"Arial"
Cells(1, 1).Characters(Start:=lngPos, Length:=1).Delete
End
If
Next
lngPos
Next
varZelle
End
Sub