Bestimmte Werte löschen

Forumthread: Bestimmte Werte löschen
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Bestimmte Werte löschen

12.02.2004 10:47:18

Trikri

Hallo nochmal,
Ich habe eine Spalte mit Texteinträgen (ca. 250). Zwischendrin sind immer mal wieder ein paar Nullen. Jetzt möchte ich dass die Zellen die eine Null enthalten automatisch gelöscht werden, sodass ich nur ein forlaufende Liste mit den relevanten Einträgen habe.
bestimmt easy, oder?
gruß,
Trikri

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hat keiner eine Idee?? Bitte bitte bitte! :-)

12.02.2004 11:05:30

Trikri
STRG+h, suche:0 ersetzte: nix oT

12.02.2004 11:11:40

MRP
AW: Hat keiner eine Idee?? Bitte bitte bitte! :-)

12.02.2004 11:14:12

Heinz A. Wankmüller
AW: Bestimmte Werte löschen

12.02.2004 11:07:45

Galenzo
Kannst du deine Threads auch mal zu Ende führen...

12.02.2004 11:19:39

Boris
AW: Kannst du deine Threads auch mal zu Ende führen...

12.02.2004 15:05:02

Peter4
Wer hat denn mit dir gesprochen?

12.02.2004 16:30:40

Boris
AW: Wer hat denn mit dir gesprochen?

12.02.2004 17:50:12

Peter4

Hat keiner eine Idee?? Bitte bitte bitte! :-)

12.02.2004 11:05:30

Trikri

Helfen Sie mir...

STRG+h, suche:0 ersetzte: nix oT

12.02.2004 11:11:40

MRP

oT=ohne Text

AW: Hat keiner eine Idee?? Bitte bitte bitte! :-)

12.02.2004 11:14:12

Heinz A. Wankmüller

Hallo Trikri,
ersetze alle Nullen durch nichts ("") und nimm dieses Makro von Markus Schmitt, das alle Leerzeilen löscht:


Sub LeereZeilenLöschen()
Application.ScreenUpdating = False
Tmp = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
For x = Tmp To 1 Step -1
Do While Application.CountA(Rows(x)) = False
Rows(x).EntireRow.Delete
Loop
Next x
End Sub

Gruß
Heinz

AW: Bestimmte Werte löschen

12.02.2004 11:07:45

Galenzo

Hallo Trikri,
diese kleine Makro erledigt den Job:

Private Sub CommandButton1_Click()
Dim iRow%, r%
iRow = Cells(Rows.Count, 1).End(xlUp).Row
    For r = iRow To 1 Step -1
        If Cells(r, 1) = 0 Then Cells(r, 1).EntireRow.Delete
    Next
End Sub

Aufsteigend von der letzten Zeile mit einem Eintrag wird bis hoch zur ersten Zeile "nachgeschaut", ob in der ersten Spalte (also A) eine NULL drinsteht.
Wenn ja, wird die komplette Zeile gelöscht.
Ich hoffe, das ist es, was du suchst.
mfg