Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
872to876
872to876
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen löschen

Forumthread: Zeilen löschen

Zeilen löschen
06.06.2007 12:27:00
Gregor
Hallo
In Spalte P habe ich Einträge 1, 2, 3 usw. oder A, B, C usw.
Mit einem Makro will ich alle Zeilen löschen ausgenommen jene mit den Einträgen 1, 2, A und B.
Wie geht das am schnellsten (viele Zeilen).
Vielen Dank
Gregor

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen
06.06.2007 13:27:31
chris
Hallo Gregor,#
das könntest du so erreichen.
Option Explicit

Sub neu()
Dim x As Integer
For x = 1 To Cells(Rows.Count, 16).End(xlUp).Row
If Cells(x, 16) = 1 Or Cells(x, 16) = 2 Or Cells(x, 16) = "A" Or Cells(x, 16) = "B" Then
Rows(x).Delete
Else
End If
Next
End Sub


gruß Chris

Anzeige
AW: Zeilen löschen
06.06.2007 14:54:41
Gregor
Hallo Chirs
Dein Vorschlag funktioniert leider nicht, ich will alle ausser 1, 2, A und B löschen, das heisst 3, 4, 5, 6, C und D sollen gelöscht werden.
Ich habe folgendes zuammengebastelt, finde es aber sehr kompliziert:

Sub Löschen_Zeilen()
Dim Prio As Variant
Dim Zeile As Long
Application.ScreenUpdating = False
intLastRow = Cells(Rows.Count, 2).End(xlUp).Row
For Start = 0 To 6
Prio = Array("", 3, 4, 5, 6, "C", "D")
For Zeile = intLastRow To 3 Step -1
If Cells(Zeile, 16).Value = Prio(Start) Then Rows(Zeile).Delete
Next Zeile
Next Start
End Sub


Vermutlich halt jemand eine bessere Lösung.
Gruss
Gregor

Anzeige
AW: Zeilen löschen
06.06.2007 18:08:33
Hubert
Hi,
ist doch fast ok:

Sub Löschen_Zeilen()
Dim Prio As Variant
Dim Zeile As Long
Dim lngLastRow As Long
Application.ScreenUpdating = False
lngLastRow = Cells(Rows.Count, 2).End(xlUp).Row
Prio = Array("", 3, 4, 5, 6, "C", "D")
For Zeile = lngLastRow To 3 Step -1
For Start = 0 To 6
If Cells(Zeile, 16).Value = Prio(Start) Then Rows(Zeile).Delete
Next Start
Next Zeile
End Sub


mfg Hubert

Anzeige
AW: Zeilen löschen
06.06.2007 22:42:15
Gregor
Hubert
Vielen Dank für die Korrektur. Offenbar ist das nicht die schlechteste Lösung.
Gruss
Gregor
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige