Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
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
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige