Hallo zusammen…
Ich weiß nicht recht ob das nun eher eine Excel- oder eine Visual-Basic-Frage ist…
Ich möchte gerne nach „Fett“ formatiertem Text suchen (und diesen dann ändern…).
In Word würde ich das mit „Selection.Find.Font.Bold = True“ machen, aber das geht in Excel nicht.
„if Range(„A1:A5“).Font.Bold“ oder ähnliches geht aber auch nicht, denn der Text ist nicht unbedingt in der ganzen Zelle fett, ich möchte aber wirklich nur den fettgedruckten Teil des Zelleninhaltes suchen, und zwar per Makro…
Vielleicht hilft Dir das weiter:
Dim rng As Range
Dim l As Long
Dim c As Long
Dim r As Long
’
Set rng = Tabelle1.UsedRange
’
For c = 1 To rng.Columns.Count
For r = 1 To rng.Rows.Count
For l = 1 To Tabelle1.Cells(r, c).Characters.Count
If Tabelle1.Cells(r, c).Characters(l, 1).Font.Bold = True Then
Debug.Print Tabelle1.Cells(r, c).Characters(l, 1).Text
End If
Next l
Next r
Next c
Gesucht wird hier Zeichenweise … es liegt an Dir, vielleicht ganze Wörter daraus zu machen!
