Microsoft Excel

Herbers Excel/VBA-Archiv

bestimmte Zeilen löschen

Betrifft: bestimmte Zeilen löschen von: Brüderlein
Geschrieben am: 05.11.2012 12:22:53

Hallo liebe Excel-Freunde,

habe ein sicherlich kleines Problemechen für
unsere Makro Spezialisten.
Wer kann mir dabei helfen, in einer Spalte markierten
Sätze automatisiert zu löschen?

Für Eure Hilfe besten Dank im Voraus.

Viele Grüße

Lorenz

https://www.herber.de/bbs/user/82483.htm

  

Betrifft: AW: bestimmte Zeilen löschen von: Matze,Matthias
Geschrieben am: 05.11.2012 13:08:25

Teste das mal:

Option Explicit

Sub weg()
Dim Zelle As Range
Dim Bereich As Range
Dim Loletzte As Long

Loletzte = Cells(Rows.Count, 2).End(xlUp).Row  'SpalteB
Set Bereich = Range("B2:B" & Loletzte)
Application.ScreenUpdating = False

    For Each Zelle In Bereich
        If Zelle = "gelöscht" Then
        Zelle.Rows.Delete
        End If
    Next Zelle
Application.ScreenUpdating = True
End Sub
Matze so bin wech,...


  

Betrifft: AW: bestimmte Zeilen löschen von: Brüderlein
Geschrieben am: 05.11.2012 14:15:01

Hallo Matze,

vielen Dank für Deine rasche Hilfe. Leider komme ich mit
Deinem Script nicht ganz zu recht! Könntest Du das bitte
nochmal überprüfen? Vielen Dank vorab.


  

Betrifft: AW: bestimmte Zeilen löschen von: Rudi Maintaire
Geschrieben am: 05.11.2012 15:05:59

Hallo,
Zeilen muss man immer von unten löschen.

Sub weg()
Dim i As Long
Dim Loletzte As Long

Loletzte = Cells(Rows.Count, 2).End(xlUp).Row  'SpalteB
Application.ScreenUpdating = False

    For i = Loletzte To 1 Step -1
        If Cells(i, 2) = "gelöscht" Then
          Rows(i).Delete
        End If
    Next i
    
Application.ScreenUpdating = True
End Sub



  

Betrifft: AW: bestimmte Zeilen löschen von: Brüderlein
Geschrieben am: 08.11.2012 17:27:19

Hallo Rudi,

vielen Dank für die Hilfe. Bin klar gekommen!


 

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