Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

wenn zellenwert = 0 ganze zeile löschen

Forumthread: wenn zellenwert = 0 ganze zeile löschen

wenn zellenwert = 0 ganze zeile löschen
05.03.2003 11:42:12
Andreas
hallo exceller,

ich will in einer langen tabelle, die sich laufend ändert in spalte i schauen, ob dort 0-werte (als zahl) drinstehen. wenn das der fall ist soll die ganze zeile des dazughörigen "null-wertes" gelöscht werden.

wie stelle ich das am besten an.

grüße,
andy

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: wenn zellenwert = 0 ganze zeile löschen
05.03.2003 11:57:52
Herbert

Hallo Andreas,
Das kannst Du mit diesem Makro machen:


Sub Zeilen_löschen()
Application.ScreenUpdating = False

    Dim i As Long
     Dim Letzte As Long
      Letzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
 
    For i = Letzte To 1 Step -1
        If Cells(i, 9) = 0 Then Rows(i).Delete
    Next
    
    Application.ScreenUpdating = True
End Sub 

     
Gruß Herbert

Anzeige
Danke
05.03.2003 12:03:27
Andreas

funktioniert perfekt...

Grüße

Forumthreads zu verwandten Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige