Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1820to1824
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
1820to1824
1820to1824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

gefilterte Zeilen nicht zu löschen

gefilterte Zeilen nicht zu löschen
31.03.2021 12:32:39
Georg
Hallo zusammen,
bei mir klemmt es gerade wieder und in der Recherche hab ich da nichts gefunden. Obwohl mir das Problem eigentlich banal erscheint. Hab ich es übersehen? :- (
Ich setze in einer Tabelle (nicht Liste) einen Filter und will die dann gezeigten Zeilen löschen. Das habe ich erst per Rekorder aufgezeichnet: 
Sub Makro8()
ActiveSheet.ListObjects("TabData").Range.AutoFilter Field:=16, Criteria1:="44256"
Range("TabData[DealPivot'[SnapShot Date']]").SpecialCells(xlCellTypeVisible).EntireRow. _
Delete
End Sub

Beim Wiederholen filtert er auch erst lieb die Tabelle, aber beim Löschen bekomme ich die Fehlermeldung:
"Laufzeitfehler 1004: Die delete-Methode des Range Objektes konnte nicht ausgeführt werden".
Wo ich es doch vorher genau so gemacht habe. ?!?!?!
DANKE für eure Hilfe!
Gruß Georg

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
PS:
31.03.2021 13:23:52
Georg
einen hab ich noch..
Ich hab es auch mal mit einer Do Until Schleife versucht, was so auch funktioniert, aber durch die Anzahl der Zeilen (20.000) endlos lang gedauert hat. (Interessanterweise klappt es hierbei mit dem Datumsformat (s.u.) und 44256 ist nicht nötig). 
Sub test()
Do Until Range("P16").Offset(vROW, 0).Value = ""
If Range("P16").Offset(vROW, 0).Value  "01.03.2021" Then
Range("P16").Offset(vROW, 0).EntireRow.Delete
vROW = vROW - 1
End If
vROW = vROW + 1
Loop
End Sub

Das aber nur so als Zusatzinfo "Was bisher geschah..."

Anzeige
AW: gefilterte Zeilen nicht zu löschen
31.03.2021 13:29:55
ChrisL
Hi Georg
Die Anführungszeichen scheinen mir etwas komisch und DealPivot kann ich nicht einordnen.
TabData[DealPivot'[SnapShot Date']]
Jedenfalls kommt der Fehler, wenn es keine sichtbaren Zellen (Visible) mehr gibt. Wenn du es nicht mit einem schmutzigen On Error Resume Next abfangen willst, dann z.B. so... 
Sub Makro8()
With ActiveSheet
.ListObjects("TabData").Range.AutoFilter Field:=16, Criteria1:="44256"
If WorksheetFunction.CountIf(.Range("TabData[SnapShot Date]"), "" & 44256) Then _
.Range("TabData[SnapShot Date]").SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With
End Sub
cu
Chris

Anzeige
danke, aber :-(
31.03.2021 13:43:00
Georg
Hallo Chris,
vielen Dank, aber - nee, die Fehlermeldung bleibt leider. Er weigert sich, die visible Zeilen zu löschen.
Die komische Bezeichnung mit "DealPivot" und den Anführungszeichen ist schon ok so. Das "DealPivot" ist im Spaltennamen und die ' setzt der Rekorder.
Ich schau mal, ob ich es mit einer reduzierten Form nachbilden und hochladen kann. Falls aber vorher schon jemand weitere Ideen hat - gerne.. :-)=)
So sieht der Code jetzt aus: 
Sub Makro9()
With ActiveSheet
.ListObjects("TabData").Range.AutoFilter Field:=16, Criteria1:="44256"
If WorksheetFunction.CountIf(.Range("TabData[DealPivot'[SnapShot Date']]"), "" & 44256)  _
Then _
.Range("TabData[DealPivot'[SnapShot Date']]").SpecialCells(xlCellTypeVisible).EntireRow. _
Delete
End With
End Sub


Anzeige
AW: danke, aber :-(
31.03.2021 13:48:33
ChrisL
Hi
Ja bitte Beispieldatei. (gerne als xlsx ohne Makro, sonst kann ich nicht downloaden)
Wenn der Spaltenname DealPivot ist, was ist dann SnapShot Date
cu
Chris

Datei ohne Makros
31.03.2021 14:06:29
Georg
Aaalso, hier die Datei ohne Makros. Ist natürlich so eine Sache, wenn man Makros testen will...
Aber die kann man ja auch hier posten. :-)
Die Spaltennamen sind halt leider einmal so...
Danke für`s knobeln!
Gruß Georg
https://www.herber.de/bbs/user/145226.xlsx

AW: Datei ohne Makros
31.03.2021 14:55:36
ChrisL
Hi
Sub Makro8()
With Tabelle7
.ListObjects("TabData").Range.AutoFilter Field:=16, Criteria1:="44256"
If WorksheetFunction.CountIf(.Range("TabData[DealPivot'[SnapShot Date']]"), "" & 44256) Then
Application.DisplayAlerts = False
.ListObjects("TabData").DataBodyRange.SpecialCells(xlCellTypeVisible).Delete
Application.DisplayAlerts = True
End If
End With
End Sub
Quelle/Inspiration: https://stackoverflow.com/questions/54450374/vba-deleting-visible-rows-of-a-table-run-time-error-1004-delete-method-of
cu
Chris

Anzeige
Wie geil ist das denn!!
31.03.2021 15:19:15
Georg
Gackergacker - einfach die Alerts wegschalten und schon klappt es! Suuper, vielen Dank!!
Ich hatte zwischenzeitig mal damit rumprobiert, die Zeilen vor dem Löschen zu Sortieren. Schein auch zu gehen, hab es aber noch nicht abschließend geprüft... Deins ist aber besser. Klasse, vielen Dank!

hat aber leider nicht geklappt
31.03.2021 14:11:33
Georg
Hallo Ralf,
danke für den Link. Das geht aber leider auch nicht. Ich hab es hier mal in einer Datei (mit Makro) eingebaut.
https://www.herber.de/bbs/user/145227.xlsb
Fällt Dir was ein?
Danke und Gruß Georg

Anzeige
AW: hat aber leider nicht geklappt
31.03.2021 15:15:37
Werner
Hallo,
teste mal:
  • 
Sub Filtern_Löschen()
Application.ScreenUpdating = False
With Worksheets("Daten")
.ListObjects("TabData").Range.AutoFilter Field:=16, Criteria1:="44256"
With .ListObjects("TabData").AutoFilter.Range
If .Columns(1).SpecialCells(xlCellTypeVisible).Cells.Count > 1 Then
Application.DisplayAlerts = False
.Offset(1).Resize(.Rows.Count - 1).Delete
Else
MsgBox "Es gibt kein Filterergebnis."
End If
End With
.ListObjects("TabData").AutoFilter.ShowAllData
End With
End Sub

    • Gruß Werner

    aber jetzt!
    31.03.2021 15:22:39
    Georg
    Hallo Werner,
    danke, das hatte Chris auch eben als Idee gehabt - ganz klasse. Einfach die Meldung abwürgen und gut ist...
    Da muss man erstmal drauf kommen! :-)=)
    Gruß Georg

    Anzeige
    Nein, da wird nichts abgewürgt....
    01.04.2021 19:08:13
    Werner
    Hallo,
    ...da bist du jetzt aber vollkommen schief gewickelt. Das hat jetzt aber überhaupt nichts damit zu tun, dass "deine Fehlermeldung" abgewürgt wird.
    Es werden lediglich die "Bildschirm Meldungen" abgeschaltet. Mach beim Code von Chris oder von mir die Zeile mal raus und lass den Code laufen. Da kommt eine Rückfrage von Excel, ob die komplette Zeile gelöscht werden soll.
    Das hat aber überhaupt nichts mit einer Fehlermeldung des VBA-Interpreters zu tun. Wenn das so wäre, dann müsste ja dein ursprünglicher Code laufen, wenn du die Zeile dort einfügen würdest.
    Tut es aber nicht, weil Bildschirm Meldungen nichts mit Fehlern im VBA-Code zu tun haben.
    Gruß Werner

    Anzeige
    Oooookay ..!!
    02.04.2021 19:57:22
    Georg
    Danke für die Klärung, Werner! Ich werd es nach Ostern mal mit auskommentierter Zeile probieren.
    Jetzt aber erstmal: Frohe Ostern!
    Bleibt alles gesund und behaltet die Nerven!
    Georg

    311 Forumthreads zu ähnlichen Themen

    Spalten lassen sich nicht auf Breite 0 schieben
    Gordon

    Moin,
    ich versuche gerade per Makro bestimmte Spalten auf die Breite 0 zu schieben. Als es da fr mich unerklärliche Probleme gab, hab ich mal versucht, die Spalten per Hand auf Breite null zu schieben und siehe da, folgende Meldung erscheint: "Objekte können nicht über das Blatt hinausver...
    17.09.2008 14:10:57
    Thread-ID: 1010385
    4 Beiträge
    Anzeige
    Kann Zeilen, die DA SIND, nicht mehr einblenden!!!
    Stephan

    Liebe Liste,
    habe hier ein Problem, das mich fast verzweifeln läßt!
    Ich habe 4 Zeilen am Anfang einer Datei, die sich partout nicht mehr einblenden lassen! Ich kann dort mit den Pfeiltasten der Tastatur hinlaufen, sehe oben in der Wertezeile auch den Wert der Zellen, in denen Inhalt ste...
    25.01.2009 12:52:00
    Thread-ID: 1043550
    11 Beiträge
    Leere Zellen entfernen per Makro
    Joachim

    Hallo
    Ich habe in einem Tabellenblatt einen fest definierten Bereich (A10:K20) Datensätze drin stehen. Also in A10:K10 der erste DS
    A11:K11 der zweite DS
    ...usw
    A20:K20 der 20ste DS
    Nun werden verschidene DS, die nicht mehr gebraucht werden , gelöscht. Nun zum Problem. Ich...
    02.07.2009 16:34:05
    Thread-ID: 1086022
    4 Beiträge
    Anzeige
    Shape / Picture löschen funktioniert nicht
    Jens

    Hallo zusammen,
    ich habe da ein Makro, welches in verschiedenen Zellen abhängig vom Inhalt ein Bild einfügt. Am Anfang des Makros sollen alle Bilder gelöscht werden, da sich die Inhalte der Zellen ständig ändern.
    Code:
    Sub bilder()
    Dim zeile, abstand, hoehe As Integer
    D...
    23.09.2009 22:30:32
    Thread-ID: 1105079
    5 Beiträge
    Wirklich leere Zeilen löschen
    Markus

    Hallo,
    verschiedene Makro's die ich im Archiv gefunden haben,
    lösen nicht mein Problem.
    Ich möchte alle Zeilen im aktuellen Sheet löschen, aber nur dann wenn,
    keine Formeln, keine Werte und keine Formatierungen (z.B. Zellen gelb hinterlegt), keine Kommentare in den entsprechende...
    30.09.2009 14:36:43
    Thread-ID: 1106327
    4 Beiträge
    Löschen funktioniert nicht
    Kai

    Hallo,
    möchte alle DS löschen (ab Zeile 3) , die in Spalte X kein "Auto" stehen haben.
    Dim i
    For i = 1 To 100
    If Cells(i, 24).Value "Auto" Then _
    Cells(i, 1).EntireRow.Delete
    Next i
    Problem 1: irgend wie funktioniert der Code nicht richtig, er löscht immer nur die u...
    19.11.2009 13:02:10
    Thread-ID: 1118590
    8 Beiträge
    Spalte lässt sich nicht formatieren
    Joachim

    Hi,
    habe hier ein ganz komisches Problem. Es geht um ein Template, welches von einem Notes-System mit Daten gefüllt wird. In dem Template gibt es eine Spalte mit Datum. (Es steht zumindest das Datum drin)
    Wenn ich das Format anschaue, steht es auf Standard.
    Diese Spalte wollte ich i...
    23.11.2009 10:46:38
    Thread-ID: 1119390
    3 Beiträge
    kann Zelle nicht löschen | Herbers Excel-Forum
    Udo F.
    Hallo zusammen,
    ich fummel schon ne Ewigkeit an folgendem Problem:
    In meinem erstellten excel Blatt kann ich die Zelle u43 nicht löschen, ohne dass die anderen Zellen türkis werden.
    Ich werd hier noch verrückt.
    vielleicht hat von Euch hier eine Idee.
    Versteh gar nix mehr.
    Gr...
    20.01.2010 19:17:23
    Thread-ID: 1131496
    5 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
    3
    4
    10
    3
    6
    4
    3
    7
    2
    4
    6
    5
    9
    1
    2
    8
    3
    3
    2
    2
    2
    3
    1
    8
    2