Zelle kürzen
06.11.2013 13:26:04
Hansp
Ich muss in einer Spalte diverse Einträge. Immer wenn in einer Zelle am Ende "und" steht, soll _ dieses gelöscht werden. Bisher habe ich das hier versucht, aber ohne Erfolg:
Dim loZeile As Long
With Columns("S")
For loZeile = 1 To IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp). _
Row, Rows.Count)
If Right(Cells(loZeile, 3), 1) = "und" Then Cells(loZeile, 3) = Right(Cells(loZeile, 3), _
_
1)
Next loZeile
End With