Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen löschen



Excel-Version: 9.0 (Office 2000)

Betrifft: Zeilen löschen
von: Christoph
Geschrieben am: 06.06.2002 - 19:11:46

hallo zusammen

im excel kann ich bei gehaltener CTRL-taste mehrere, nicht aufeinanderfolgende zeilen markieren und dann mit DELETE löschen.
habe ein tabellenblatt mit 24000 zeilen und möchte jetzt gewisse zeilen, bei denen in spalte B ein bestimmter wert (0) steht löchen lassen.
habe in den beiträgen diverse ansätze gesehen. habe beispiele ausprobiert wo die zeilen in einer schlaufe von oben nach unten und von unten nach oben zeilenweise löschen.

besteht überhaupt die möglichkeit im excel alle zeilen die das kriterien der spalte B erfüllen markieren zu lassen und in einem durchgang zu löschen ?

besten dank für eure hilfe.
grüessli us dä schwiiz


  

Re: Zeilen löschen
von: WernerB.
Geschrieben am: 06.06.2002 - 19:30:59

Hallo Christoph,

warum diesen Markierungsaufwand?
Teste mal dieses Makro:


Option Explicit
Sub NullZeilenKiller()
Dim As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 2).End(xlUp).Row
    For i = laR To Step -1
      If Not IsEmpty(Cells(i, 2)) And Cells(i, 2) = 0 Then
        Cells(i, 2).EntireRow.Delete
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
  

Re: Zeilen löschen
von: Uwe Wassmann
Geschrieben am: 06.06.2002 - 19:34:49

Hi,

folgendes Makro:

Sub löschen()
On Error GoTo ende
For i = 1 To 25000
a = Cells(i, 2)
If a = 0 Then
zeile = i & ":" & i
Rows(zeile).Delete Shift:=xlUp
End If
Next i
ende:
End Sub


löscht die Zeile, wenn in Spalte B der aktuellen Zeile eine "0" steht.
Von Zeile 1 bis Zeile 25000.

Viel Spaß

Uwe

  

Re: Zeilen löschen
von: WernerB.
Geschrieben am: 06.06.2002 - 20:19:03

Hallo Uwe,

wenn in der Spalte "B" in zwei Zeilen untereinander jeweils eine Null steht, überspringt Dein Code eine Zeile; d.h. eine der beiden Null-Zeilen bleibt stehen.
Damit genau dies nicht passiert, empfiehlt es sich beim Löschen von Zeilen grundsätzlich, sich von unten nach oben durchzuarbeiten (von der letzten bis zur ersten Zeile).

MfG
WernerB.


  

Danke für den tipp
von: Uwe Wassmann
Geschrieben am: 06.06.2002 - 20:28:04

Danke für den Tipp. ;-))

gruß
Uwe


 

Beiträge aus den Excel-Beispielen zum Thema "Zeilen löschen"