ich möchte in der Spalte Q alle Zellen die "{NULL" enthalten löschen und alle anschließenden Zellen na links aufrücken lassen.
Hatt jemand eine Idee wie man das macht?
Gruß
Christoph
Sub killNull()
Dim i As Long
Application.ScreenUpdating = False
For i = 1 To Cells(65536, 17).End(xlUp).Row
If Cells(i, 17) = "{NULL" Then Cells(i, 17).Delete shift:=xlToLeft
Next i
Application.ScreenUpdating = True
End Sub