wie könnte man u.a. Quelltext (von Boris) dahingehend abwandeln, dass alle Textabschnitte, die folgende Anforderungen erfüllen, fett markiert werden:
- Vor dem String steht entweder "), " oder der String steht am Anfang der zelle
- Nach dem String kommt immer ein Leerzeichen und eine Klammer
" ("
Beispiel:
1 x Deutscher Meister (...), 2 x DFB-Pokal-Sieger (...)
--> "1 x Deutscher Meister" und "2 x DFB-Pokal-Sieger" sollten nun fett markiert werden
Quelltext:
----------
Cells(5, 1).Font.Bold = False
[A5] = Vereinsdaten
Dim x As Integer, y As Integer
Dim s As String
s = " " & [A5] & " "
For x = 1 To Len(s)
If Mid(s, x, 1) = ":" And Mid(s, x + 1, 1) = " " Then
For y = 1 To Len(s)
If Mid(s, x - y, 1) = " " Then
Range("A5").Characters(x - y, x - (x - y) + 1).Font.Bold = True
Exit For
End If
Next
End If
Next
Dankeschön!