Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1804to1808
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1804to1808
1804to1808
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle Filtern und Zeilen löschen

Tabelle Filtern und Zeilen löschen
07.01.2021 16:14:59
Elonlon
Hallo,
ich habe versucht eine Tabelle zu filtern und die Daten dann zu löschen.
Allerdings bekomme ich folgende Fehlermeldung:
"Laufzeitfehler 1004:
Die Delete Methode des Range-Objektes konnte nicht ausgeführt werden."
Vielleicht kann mir ja jemand weiter helfen.

Sub VoiceTest()
With Worksheets("Raw").ListObjects("EVA_Feedback").Range 'Filter, offset(to exclude headers)    _
_
_
and delete visible rows
.AutoFilter Field:=1, Criteria1:="voice"
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

Vielen Dank!

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 16:30:36
Yal
Hallo Elonlon,
ein Filter liefert eine Liste von Zeilen. Diese müssen entweder als gesamtes selektiert und gelöscht oder einzel behandelt werden.
Dein Offset(1,0) zielt auf der erste Zeile nach dem letzten Zeile des sichtbaren Bereich. Daher kann sie unwahscheinlich den Eigenschaft xlCellTypeVisible haben. Deine Auswahl ist leer, löschen wird verweigert.
Du muss die Zeilen, die Du löschen möchtest, ausfiltern. Dann brauchst Du den Offset nicht.
VG
Yal
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 16:40:48
Elonlon
Hmm, jetzt bin ich mir nur nicht sicher was ich ändern muss damit es funktioniert.
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 16:47:39
Yal
Entweder willst Du die Zeile mit Voice löschen
 Sub VoiceTest()
With Worksheets("Raw").ListObjects("EVA_Feedback").Range
.AutoFilter Field:=1, Criteria1:="=voice"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
oder die, die nicht Voice haben:
 Sub VoiceTest()
With Worksheets("Raw").ListObjects("EVA_Feedback").Range
.AutoFilter Field:=1, Criteria1:="voice"
.SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub

(Arbeite lieber zuerst auf eine Kopie: Daten werden hiermit vernichtet!)
VG
Yal
Anzeige
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 16:51:50
Elonlon
Diese Lösung habe ich probiert, es zeigt mir lediglich weiterhin die gleiche Fehlermeldung an.
Trotzdem schon einmal vielen Dank!
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 18:39:52
Yal
Hallo Elonlon,
anscheinend hat ein ListObject Schwierigkeit, auf den gefilterten Zielen zuzugreifen.
Zielführende scheint es, direkt die einzelne Zellen zu prüfen(=voice oder voice?):
Sub Makro1()
Dim i
Application.ScreenUpdating = False
With ActiveSheet.ListObjects("EVA_Feedback").DataBodyRange
For i = .Rows.Count To 1 Step -1
If LCase(.Cells(i, 1).Text) = "voice" Then .Cells(i, 1).EntireRow.Delete
Next
End With
Application.ScreenUpdating = True
End Sub
Wie üblich beim Löschen von Zeilen: von unten nach oben gehen, sonst wird die gelöschte 8 zu 9 und die nächste ist 10 und die ehemalige 9 wird gar nicht geprüft/gelöscht.
VG
Yal
Anzeige
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 18:43:12
Werner
Hallo,
Sub VoiceTest()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Worksheets("Raw").ListObjects("EVA_Feedback")
.Range.AutoFilter Field:=1, Criteria1:="voice"
With .AutoFilter.Range
If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
.Offset(1).Resize(.Rows.Count - 1).Delete
Else
MsgBox "Fehler: Es gibt kein Filterergebnis."
End If
End With
.AutoFilter.ShowAllData
End With
End Sub
Gruß Werner
AW: Tabelle Filtern und Zeilen löschen
07.01.2021 19:25:46
Elonlon
Perfekt, danke!
Jetzt würde ich nur gerne verstehen was da genau gemacht wurde und wieso mein Code nicht funktioniert hat.
Anzeige

323 Forumthreads zu ähnlichen Themen

Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Anzeige
Alle Zeilen löschen mit Spaltenbedingung ?
alexander

Hallo,
wie ist es möglich das mir ein Makro alle Zeilen löscht wo in Spalte G nichts steht. Das Makro sollte in Zeile 5 beginnen zu laufen.
Danke,
Alex
16.09.2009 10:37:32
Thread-ID: 1103140
7 Beiträge
Zeilen über Inputbox einfügen (variabel) | Herbers Excel-Forum
Ewald Sadowski
Hallo
habe ein Makro um Zeilen über Inputboxen einfügen zu können.
Zuerst wird abgefragt, ab wo eingefügt werden soll, und dann wieviel Zeilen eingefügt werden sollen.
Das Makro läuft durch, es kommt keine Fehlermeldung aber es passiert auch nichts.
Was ist da falsch??
Makro:...
24.01.2010 14:47:22
Thread-ID: 1132453
32 Beiträge
Anzeige
Filter nicht möglich
otto

Hi,
warum kann anhängende Tabelle nicht richtig gefiltert werden ?
Ich habe die Zellen schon als Datum formatiert, es werden aber nur die Einträge bis zum 13.05.08 angezeigt.
https://www.herber.de/bbs/user/69835.zip
Gruß
otto
01.06.2010 10:27:19
Thread-ID: 1159749
2 Beiträge
Ausgeblendete Zellen Löschen
Marta

Hallo ,
habe da ein kleines Makro Problem. Und zwar wende ich den Spezialfilter an, u lasse mir alle Duplikate ausblenden, nun möchte ich bei den ausgeblendeten Zeilen (nur in Spalte U) den Inhalt löschen.
Sub ausgeblendeteLöschen() Dim Letzte As Long Dim I As Long lastRowU = Range("U"...
07.06.2010 11:36:51
Thread-ID: 1160632
7 Beiträge
VBA schreiben zum Zeilen löschen
Ludwig

Hallo,
vielleicht weis einer was ich hier schreiben müsste?
siehe Anhang
https://www.herber.de/bbs/user/72108.xls
Danke im voraus
lg Ludwig
31.10.2010 18:51:40
Thread-ID: 1184622
7 Beiträge
VBA - zeilen aus liste löschen
susanne

Hallo,
ich bin nicht sonderlich fit in VBA und habe ein kleines problem.
Ich lasse aus einem arbeitsblatt zuerst die daten in ein weiteres blatt kopieren, dann sollen die zeilen gelöscht werden, in denen in der spalte 4 nichts (0) drinsteht. Das funktioniert mit dem skript unten auch. j...
11.11.2010 15:33:12
Thread-ID: 1186332
3 Beiträge
VBA Zeilen löschen beschleunigen
Frank

Hallo zusammen,
ich benutze folgenden Code, um Zeilen zu löschen, in deren Spalte "B" ein Wert steht, der in einer zuvor definierten Range auftaucht:
Sub cust_del() Application.ScreenUpdating = False Dim i As Integer Dim lz As Integer Worksheets("ergebnis").Activate lz = Range("A4").End...
29.03.2011 11:11:55
Thread-ID: 1208031
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
6
31
1
1
6
6
2
3
6
2
1
3
3
2
7
3
1
2
24
5
7
8
15