Zellen mit einem Inhalt ein Wort hinzufügen?

[Gast 123]

Hallo

weil ich gerade Online bin das ganze noch als VBA Code, wenn du den Bereich vorher Selektierst.

mfg Gast 123

Code:

Sub Text_einfügen()
    For Each AC In Selection
       If InStr(AC, "MANV") = 0 Then _
          AC.Value = AC.Value & ",MANV"
    Next AC
End Sub

---

PS    das geht ganz ohne Hilfsspalte, aber der Bereich muss selektiert sein!