|
Hallo und hilfe,
ich hab hier einige Platzhalter in einem Textfeld innerhalb Excel, die werden Ersetzt - soweit so gut .
Allerdings sollen, die Platzhalter [@Name] und [@Vorname] mit nix gefüllt, bzw.geleert werden wenn:
- ein Platzhalter [@Anrede] mit dem Text "sMitglied" gefüllt wurde/ würde,
Wie fange ich das korrekt vorher ab? Ich habe versucht das nachträglich zu realisieren, was von der logik her aber nicht gehen kann.
Hier mal der Code zum ersetzen wie er jetzt ist:
'-< Replace all Placeholders >-
Dim sText As String
sText = sTemplate
Dim iCol As Integer
For iCol = 1 To tblEmails.ListColumns.Count
Dim sPlaceholder As String
sPlaceholder = tblEmails.Range(1, iCol)
sPlaceholder = Trim(sPlaceholder)
Dim sValue As String
sValue = tblEmails.Range(iRow, iCol)
sValue = Trim(sValue)
'< replace >
If Not sPlaceholder Like "" Then
sText = Replace(sText, "[@" & sPlaceholder & "]", sValue, , , vbTextCompare)
End If
'-< Clear Placeholders if needed>-
'If sPlaceholder="s Mitglied" Then
'sText=replace(sText,"[@Name]","")
'sText=replace(sText,"[@Vorname]","")
'End if
'-</ Clear Placeholders if needed>-
'</ replace >
Next
'-</ Replace All Placeholders >-
|