Teilstring ersetzen und Fett formatieren
11.07.2018 10:03:04
Mario
leider habe ich für mein Problem bis jetzt keine Lösung gefunden. Daher stelle ich das mal ins Forum.
Bin gerade dabei in excel eine Arbeitsvertragsvorlage zu erstellen. Dabei sollen einzelne Teilstrings in einem Text ersetzt werden.
Vorlage:
Herr VORNAME NACHNAME wird das Unternehmen als STELLE.....
Das soll dann nach Eingabe diverser Variablen auch wieder so aussehen.
Herr MAX MUSTERMANN wird das Unternehmen als PROJEKTLEITER ....
Das Ändern der Variablen ist nicht das Problem sondern nur die Formatierung.
Dachte ich hätte jetzt eine Lösung gefunden. Hab dazu die Variablem mit Klammern versehen [ _ VORNAME] [NACHNAME] und setze diese dann mittels diesen Codes auf Fett.
Sub test()
Dim intStart As Integer, intEnde As Integer
Dim rng As Range
For Each rng In Range("B11:B11")
If Len(rng) > 0 Then
intStart = InStr(1, rng, "[")
intEnde = InStr(1, rng, "]")
If intStart > 0 And intEnde > 0 Then
Do
rng.Characters(intStart + 1, intEnde - intStart - 1).Font.Bold = True
intStart = InStr(intEnde + 1, rng, "[")
intEnde = InStr(intEnde + 1, rng, "]")
Loop While intStart > 0 And intEnde > 0
End If
End If
End Sub
Soweit so gut, funktioniert auch. Nur muss ich die Klammern dann natürlich entfernen und wenn ich die ersetze ist die Formatierung im Text wieder weg. :-(
Hat zufällig jemand eine Idee wie ich das lösen kann. Vielleicht denke ich auch zu kompliziert. Bin mit meinem Latein auf jeden Fall am Ende.
mfg
Mario