<code>Dim strFeld As String
Dim strName As String
 
strFeld = "Hallo [Name],"
strName = "Ralf"
 
strFeld = Replace(strFeld, "[Name]", strName)</code>

<code>Dim bPos As Long
Dim ePos As Long
Dim strFeld As String
Dim strName As String
Dim strVorname As String
Dim strPlaceholder As String
 
strFeld = "Hallo [Vorname] [Name],"
strName = "Otter"
strVorname = "Dieter"
 
bPos = 0
Do
  bPos = InStr(bPos + 1, strFeld, "[")
  If bPos > 0 Then
    ePos = InStr(bPos + 1, strFeld, "]")
    If ePos > 0 Then
      strPlaceholder = Mid$(strFeld, bPos + 1, ePos - bPos - 1)
      Select Case UCase$(strPlaceholder)
        Case "NAME"
          strFeld = Left$(strFeld, bPos - 1) & strName & Mid$(strFeld, ePos + 1)
        Case "VORNAME"
          strFeld = Left$(strFeld, bPos - 1) & strVorname & Mid$(strFeld, ePos _
            + 1)
        Case Else
          <font color=green>' ungültiger Platzhalter</font>
          strFeld = Left$(strFeld, bPos - 1) & Mid$(strFeld, ePos + 1)
      End Select
    End If
    bPos = bPos + 1
  End If
Loop Until bPos = 0</code>