Ich habe eine Frage um etwas was bereits funktioniert zu Optiemieren.
Es geht darum, dass ich ab einem bestimmten Textbaustein die Formatierung ändern möchte.
Beispiel:
Der Himmel ist Blau und schön
Der Strand ist Sauber und voller Muscheln
alles nach und Inklusive dem "und" soll bitte "nicht" Fett geschrieben sein
(In meinem Beispiel ist es die Text Komponente "Bst.:" anstatt "und"
Sub FormatCells()
Dim cell As Range
For Each cell In ActiveSheet.Range("A16:A55")
cell.Value = cell.Value
intStart = InStr(1, cell.Value, "Bst.: ", vbTextCompare) + 0
If intStart > 0 Then
intLength = InStr(intStart + 1, cell.Value, "Bst.: ", vbTextCompare) - intStart
With cell.Characters(Start:=intStart, Length:=intLenght).Font
.FontStyle = "Normal"
End With
End If
Next
End Sub
Das ist, wie es bis jetzt funktioniert, aber es ist unglaublich langsam. (in meiner Tabelle, weil sie unglaublich groß ist)Meine frage ist weiß jemand eine Andere Möglichkeit die schneller oder sauberer ist ?
Vielen Dank im Voraus :)