Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
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
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Loeschen Zeilen

Forumthread: Loeschen Zeilen

Loeschen Zeilen
Josef
Folgendes Problem,
Ich habe eine Excel-Tabelle voller Daten und in Spalte D sind Zahlen wie
"009-30" und "008-3". Nun müssen alle Zeilen geloescht werden, in der die Zelle der Spalte D die vorher genannten Zahlen enthalten.
Ich habe bereits schon ein code dazu geschrieben, nur befolgt Excel diese
Anweisungen nicht. Weiß jemand vielleicht woran das liegen könnte.
Dim l As Long
Dim Z1 As Long
Sheets("Name").Activate
Z1 = ActiveSheet.UsedRange.Rows.Count
Range("D1").Select
For l = 1 To Z1
If ActiveCell.Value = "009-30" _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next l
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Loeschen Zeilen
Hajo_Zi
Hallo Josef
hast Du schon mal die Recherche benutzt.
Auf Select kann in VBA zu 99% verzichtet werden.


AW: Loeschen Zeilen
MRP
Hallo Josef,
ohne VBA würde ich vorschlagen den Autofilter zu benutzen, und dort Benutzerdefiniert enthält 009-30 oder 008-3 dann markieren, Bearbeiten/gehe zu/iNhalte.. nur sichtbare Zellen, und dann wie gewohnt löschen.
Ciao
Manuele Rocco Parrino
Anzeige
AW: Loeschen Zeilen
harry
hi josef,
dein makro funkt einwandfrei, so sollte es im vba editor aussehen:

Sub test()
Dim l As Long
Dim Z1 As Long
Sheets("Tabelle1").Activate
Z1 = ActiveSheet.UsedRange.Rows.Count
Range("D1").Select
For l = 1 To Z1
If ActiveCell.Value = "009-30" Or ActiveCell.Value = "008-3" _
Then Selection.EntireRow.Delete _
Else ActiveCell.Offset(1, 0).Select
Next l
End Sub

liebe grüße,
Harry
Anzeige
AW: Loeschen Zeilen
Josef
Hallo Harry,
bei mir funktioniert das Makro nicht.
kann mir das nicht erklären! Auch wenn ich den richtigen Namen für Sheets eingebe.
liebe Grüße
Josef
AW: Loeschen Zeilen
harry
versuch mal

Sub test1()
For Each acell In Range(ActiveSheet.Cells(1, 4), _
ActiveSheet.Cells(Rows.Count, 4).End(xlUp))
If acell.Value = "009-30" Or acell.Value = "008-3" Then
ActiveSheet.Rows(acell.Row).Delete
End If
Next
End Sub

liebe grüße,
harry
Anzeige
AW: Loeschen Zeilen
Josef
Hallo Harry,
Danke für deine Hilfe, aber dieser Code funktioniert immer noch nicht.
Woran kann das liegen.

Sub LoeschenTest1()
For Each acell In Range(ActiveSheet.Cells(1, 4), _
ActiveSheet.Cells(Rows.Count, 4).End(xlUp))
If acell.Value = "009-30" Or acell.Value = "008-30" Then
ActiveSheet.Rows(acell.Row).Delete
End If
Next
End Sub

Gruß Josef
Anzeige
AW: Loeschen Zeilen
WernerB.
Hallo Josef,
wie gefällt Dir das?
Option Explicit

Sub Josef()
Dim i As Long, laR As Long
Application.ScreenUpdating = False
Sheets("Name").Select
laR = Cells(Rows.Count, 4).End(xlUp).Row
For i = laR To 1 Step -1
If Cells(i, 4).Text = "009-30" Then
Cells(i, 4).EntireRow.Delete
End If
Next i
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
Anzeige
;

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