Hallo Stefan,
ich denke, dir wird nichts anderes übrig bleiben, als zumindest alle Zeichen potenziell in Frage kommender Zellen zu durchsuchen, da Excel-Find nur nach der Formatierung einer Zelle (entspricht meistens dem ersten Zeichen) sucht. Der Ascii-Code des Symbol-Alphas entspricht dem des a in Arial. Du kannst die Suche also einschränken auf Zellen, die a enthalten. Hierbei werden auch Symbol-Alphas gefunden. In diesen Zellen kannst du dann die Zeichenschriftarten vergleichen, z.B.
Application.ScreenUpdating = False
Set SuchArea = Sheets(Tabellenblattname).UsedRange 'Anpassen!
Set FundZelle = SuchArea.Find("a", after:=SuchArea.Cells(SuchArea.Rows.Count, _
SuchArea.Columns.Count), lookat:=xlPart)
If Not FundZelle Is Nothing Then
Fund1 = FundZelle.Address
Do
Set FundZelle = SuchArea.Find("a", after:=FundZelle, lookat:=xlPart)
a = FundZelle.Address
For i = 1 To Len(Range(a))
If Range(a).Characters(i, 1).Font.Name = "Symbol" Then
Range(a) = Left(Range(a), i - 1) + ChrW(945) + Mid(Range(a), i + 1)
' Range(a).Characters(i, 1).Font.Name = "Arial" 'ist wohl nicht erforderlich
End If
Next i
Loop Until FundZelle.Address = Fund1
End If
Application.ScreenUpdating = True
Gruß
Holger
|