'Fett' suchen

Computer: Software & Programmierung Visual Basic
#1

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…

geht nich?

#2

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!

greets from michL (Vienna)

#3

ja, danke füe den tip, so ähnlich hab ich es jetzt zum laufen bekommen. ganz einfach, wenn man erstmal weiß in welche richtung man arbeiten soll… :wink: