|
Public Sub CDDVDinArtSpalteeinsetzen()
Dim lz As Long, t As Long
'** Ermittlung der letzten Zeile in Spalte A
lz = Cells(Rows.Count, 1).End(xlUp).Row
'** Durchlauf aller Zeilen
For t = 2 To lz
Cells(t, 1).Value = Replace(Cells(t, 1), " ¬*¬", "")
Cells(t, 1).Value = Replace(Cells(t, 1), " [*]", "")
Cells(t, 1).Value = Replace(Cells(t, 1), " (*)", "")
next t
End Sub
|