Zellen löschen/verschieben

Forumthread: Zellen löschen/verschieben

05.07.2005 13:12:14

Christoph

Hallo Leute,
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

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zellen löschen/verschieben

05.07.2005 13:27:58

u_

AW: Zellen löschen/verschieben

05.07.2005 13:27:58

Hallo,
in ein Modul:


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

Gruß
Geist ist geil!

Forumthread: Zellen löschen/verschieben

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread