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)
<em><strong>If Not ((sPlaceholder Like "") Or (sPlaceholder Like "s Mitglied")) Then</strong></em>
sText = Replace(sText, "[@" & sPlaceholder & "]", sValue, , , vbTextCompare)
<em><strong> Else
sText = Replace(sText, "[@Anrede]", sValue, , , vbTextCompare)
sText = Replace(sText, "[@Alter]", sValue, , , vbTextCompare)</strong></em>
<em> <strong>sText = Replace(sText, "[@Vorname]", "", , , vbTextCompare)
sText = Replace(sText, "[@Name]", "", , , vbTextCompare)</strong></em>
End If
Next