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