In Spalte C ab Zeile 2 steht ein beliebiger Text dem ich ein Text "S_" davorsetzen möchte.
Das Ganze sollte in der aktiven Mappe funktionieren.
Ich danke schonmal im Voraus!
ActiveCell.Replace What:=ActiveCell, Replacement:="S_" & ActiveCell, LookAt:=xlPart
Gruß MatthiasSub hinzufügen()
Dim Zelle As Range
For Each Zelle In Range("C2:C100") 'hier den Zielbereich eingeben
Zelle.Value = "S_" & Zelle.Value
Next Zelle
End Sub
Sub hinzufügen()
Dim Zelle As Range
Dim lngLetzte As Long
lngLetzte = IIf(IsEmpty(Cells(Rows.Count, 3)), Cells(Rows.Count, 3).End(xlUp).Row, Rows.Count)
For Each Zelle In Range("C2:C" & lngLetzte)
Zelle.Value = "S_" & Zelle.Value
Next Zelle
End Sub