Ausgangssituatuation: Spalte 1 = Anrede; Spalte 2 = Name
Ziel: In Spalte 5 soll die personalisierte Anrede für einen Brief generiert werden. Folgenden Code habe ich aufgesetzt:
Private Sub CommandButton1_Click()
Dim variable As Integer
variable = 2
Do While variable
If Cells(variable, 1) = "Herr" Then
Cells(variable, 5) = "Sehr geehrter" & " " & Cells(variable, 1) & " " & Cells(variable, 2)
variable = variable + 1
End If
If Cells(variable, 1) = "Frau" Then
Cells(variable, 5) = "Sehr geehrte" & " " & Cells(variable, 1) & " " & Cells(variable, 2)
variable = variable + 1
End If
If Cells(variable, 1) = "" Then
Cells(variable, 5) = "Sehr geehrte Damen und Herren"
variable = variable + 1
End If
Loop
End Sub
Folgende 2 Probleme habe ich:
1) Die Liste ist in ihrer Länge variabel und er soll alle Einträge nehmen, nicht nur bis 10 (wie oben angegeben)
2) Wenn vor und/oder nach "Herr" oder "Frau" noch etwas steht (wie z.B.: ein Leerzeichen o.ä.) nimmt er mir den Begriff nicht an und geht über die If-Schleife hinweg.
Wie kann ich diese Probleme lösen?
Danke und Gruß
Space