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