Ich kenne mich leider nicht so recht aus .. die Formel ist natürlich falsch, aber so sollte sie in der Art aussehen.
Kann mir jemand beim Ansatz helfen?
Sub Test()
Dim Body As String, Wert1 As String, Wert2 As String, Wert3 As String, Wert4 As String
Wert1 = ActiveSheet.Range("Anrede").Value
Wert2 = ActiveSheet.Range("Nachname").Value
Wert3 = ActiveSheet.Range("Marke").Value
Body = If wert1 = Herr Then "Sehr geehrter Herr" Werte 2 elseif Wert1 = Frau Then Sehr _
geehrter Herr" Werte 2 ( Neue Zeile ) if ".....
End Sub
Vielen Dank Jonas