Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

bestimmte Zeilen löschen

bestimmte Zeilen löschen
05.11.2012 12:22:53
Brüderlein
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: bestimmte Zeilen löschen
05.11.2012 13:08:25
Matze,Matthias
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,...

AW: bestimmte Zeilen löschen
05.11.2012 14:15:01
Brüderlein
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.

Anzeige
AW: bestimmte Zeilen löschen
05.11.2012 15:05:59
Rudi
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

AW: bestimmte Zeilen löschen
08.11.2012 17:27:19
Brüderlein
Hallo Rudi,
vielen Dank für die Hilfe. Bin klar gekommen!

310 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige