Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 13:18:36
Übersicht von Excel Konstanten
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
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
556to560
556to560
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 ?
31.01.2005 22:41:44
erik
hallo,
weiß jemand, wie man Zeilen per VBA-Code löschen kann ?
Bei mir sollen alle Zeilen im Tabellenblatt "liste_2" im Bereich von C5:C100 gelöscht werden,
wenn der Zellinhalt nicht "x" ist !
erik
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen löschen ?
31.01.2005 22:52:44
Josef
Hallo Erik!
Sollte es tun!

Sub loescheZeile()
Dim lRow As Long
With Sheets("liste_2")
For lRow = 100 To 5 Step -1
If .Cells(lRow, 3) <> "x" Then
.Rows(lRow).Delete
End If
Next
End With
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Zeilen löschen ?
31.01.2005 23:11:54
erik
hallo miteinander,
habe gerade den code von josef ausprobiert ! Und Funktioniert !
Den Autofilter wollte ich nicht benutzen,
weil dies automatisiert ablaufen soll ?
Danke für die Tipps !
gruss erik
AW: Zeilen löschen ?
Boris
Hi Erik,
am Einfachsten mit dem Autofilter.
Filtern nach Spalte C - Benutzerdefiniert - enspricht nicht: x
Die gesamten Zeilen des Filterergebnisses markieren und manuell löschen.
Anschließend Filter wieder entfernen - fertig.
Grüße Boris
Anzeige
AW: Zeilen löschen ?
Ramses
Hallo
Muss es VBA sein ?
Sonst kannst du den Autofilter in C5 aktivieren, nach x suchen, die angezeigten zeilen markieren und löschen.
In VBA

Sub Delete_Row()
Dim i As integer
For i = 100 to 5 Step -1
If cells(i,3) = "x" Then Rows(i).Delete xlshiftUp
next i
End Sub

Gruss Rainer
Anzeige
Aber nach "NICHT x" suchen...
Boris
Hi Rainer,
Gleiches gilt für den Code. ;-))
Grüße Boris
Gerade gesehen :-) o.T.
Ramses
...
Falsch....
Ramses
Hallo
Josef und hat den richtigen Code.
Meiner löscht alle Dateien mit "x" :-)
Falsch gelesen
Gruss Rainer
Anzeige
OT Nachfrage
PeterW
Hallo Rainer,
ich hab das schon oft gesehen und frage mich, welchen Sinn es macht, beim Löschen ganzer Zeilen xlshiftup anzugeben, downshiften ist wohl kaum möglich. ;-) Kannst du das kurz erklären?
Danke und Gruß
Peter
AW: OT Nachfrage
Ramses
Hallo Peter
Gewohnheit :-)
In diesem Fall kein triftiger Grund.
Ist eigentlich nur wichtig, wenn du Zellen löschen willst.
Gruss Rainer
Anzeige
alles klar, Danke o.T.
PeterW
;

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