|
Ich hab mich noch mal reingehängt und mir im Internet die Sachen zusammengesucht. Und habs tatsächlich geschafft. "lz" hab ich zuvor auf die Anzahl der Zeilen gesetzt.
'Zeichen "¬Der¬ ", "¬Die¬ " und "¬Das¬ " entfernen und mit ", Der", ", Die" und ", Das" an das Ende der Zelle setzen
For t = 2 To lz
If InStr(Cells(t, 2).Text, "¬Der¬ ") Then
Cells(t, 2).Value = Replace(Cells(t, 2).Value, "¬Der¬ ", "")
Cells(t, 2) = Cells(t, 2) & ", Der"
ElseIf InStr(Cells(t, 2).Text, "¬Die¬ ") Then
Cells(t, 2).Value = Replace(Cells(t, 2).Value, "¬Die¬ ", "")
Cells(t, 2) = Cells(t, 2) & ", Die"
ElseIf InStr(Cells(t, 2).Text, "¬Das¬ ") Then
Cells(t, 2).Value = Replace(Cells(t, 2).Value, "¬Das¬ ", "")
Cells(t, 2) = Cells(t, 2) & ", Das"
End If
Next t
|