@Gast333
Ich denk ich verstehe jetzt die Idee hinter dem Code.
Kann das so klappen???
If Not sPlaceholder Like "" Then
sText = Replace(sText, "[@Anrede]", sValue, , , vbTextCompare)
If(instr(sText,"es Mitgleid")) Then
sText = Replace(sText, "[@Vorname]","")
sText = Replace(sText, "[@Name]","")
sText = Replace(sText, "[@Age]", sValue, , , vbTextCompare)
Else
sText = Replace(sText, "[@" & sPlaceholder & "]", sValue, , , vbTextCompare)
End if
End If
|