Löschen Funktion fehlerhaft im Makro

[SemmyW]

Hallo zusammen,

ich habe ein Makro aufgezeichnet und beim abspielen des Makro hängt es sich währen der Löschen Funktion auf.

Das Makro kann mit der Tastenkombination STRG+UMSCH+Q aktiviert werden.

Vielleicht mag mir einer dabei helfen 

Danke euch!

[Steffl]

Hallo,

statt der markierten und der Zeile davor versuche es mit dieser

Code:

Rows(Range("Verkaufskopf").Row).Delete

[Klaus-Dieter]

Hallo,

mit aufgezeichneten Makros ist das immer so eine Sache. Beschreibe doch bitte mal, was genau passieren soll, bzw. nach welchen Kriterien sollen eilen gelöscht werden. Das Makro selektiert die gesamte Liste, das ist sicher nicht gewollt.

[SemmyW]

Hallo,

mit aufgezeichneten Makros ist das immer so eine Sache. Beschreibe doch bitte mal, was genau passieren soll, bzw. nach welchen Kriterien sollen eilen gelöscht werden. Das Makro selektiert die gesamte Liste, das ist sicher nicht gewollt.

So gesehen ist es gewollt das er die Daten in der Liste löscht, aber er soll nur die Daten die nach dem Filtern bestehen bleiben löschen.

Ich bekomme durch das aktualisieren der Liste immer neue Daten. Hier sind auch Daten enthalten die ich nicht benötige, deshalb nehme ich alle Felder in denen "EDI" in VKweg Code raus, sodass nur noch die restlichen stehen bleiben. Dann nehme ich in Verkäufercode "A" raus, somit habe ich jetzt alle Daten angezeigt die ich nicht benötige und genaus diese sollen gelöscht werden.

Wenn ich das Händisch tue indem ich einfach STRG+A innerhalb der Liste markiere und anschließend Lösche geht alles so wie es soll, dieser Schritt funktioniert nur leider nicht nachdem ich das im Makro aufzeichne.

---

Hallo,

statt der markierten und der Zeile davor versuche es mit dieser

Code:

Rows(Range("Verkaufskopf").Row).Delete

Danke, jedoch hat es nicht geklappt.

Ich weiß nicht wie das Makro jetzt durchläuft, aber er löscht die Daten so nicht  :/

[Steffl]

Hallo,

Ich weiß nicht wie das Makro jetzt durchläuft, aber er löscht die Daten so nicht  :/

setze dir einen Haltepunkt dann kannst Du es nachverfolgen.

[schauan]

Hallöchen,

eventuell auch so

ActiveSheet.ListObjects("Verkaufskopf").DataBodyRange.SpecialCells(xlCellTypeVisible).Delete

[Kuwer]

Hallo André,

so was empfahl Marco schon hier: #3

Gruß Uwe

[Gast 123]

Hallo

ersetze die gelb markierte Code Zeile bitte mal OHNE EntireRow durch:  Selection.Delete   
Bei mir kam dann eine Abfrage ob die Zeilen wirklich gelöscht werden spllen? Nach Okay wurden 7.000 Zeilen gelöscht.
Ich hatte in einem anderen Thread dasselbe Problem. Bei "ListObjekt Tabellen" klappt EntireRow offenbar nicht!

mfg Gast 123

[SemmyW]

Hallo

ersetze die gelb markierte Code Zeile bitte mal OHNE EntireRow durch:  Selection.Delete   
Bei mir kam dann eine Abfrage ob die Zeilen wirklich gelöscht werden spllen? Nach Okay wurden 7.000 Zeilen gelöscht.
Ich hatte in einem anderen Thread dasselbe Problem. Bei "ListObjekt Tabellen" klappt EntireRow offenbar nicht!

mfg Gast 123

Ich fasse es nicht. So simpel kann es gehen.

Hat geklappt und bereitet die Daten genau so auf wie Sie sollen!

Danke dir!  :15:


Alles anderen auch danke schön für die Unterstützung  :19:

Beste Grüße!

[schauan]

Hallöchen,

so was empfahl Marco schon hier: #3

wobei man in dem Fall die Angabe .Rows weglassen kann .Columns würde übrigens auch die Zeilen löschen, kommt auch eine entsprechende "Zeilen"-Meldung  :15:

Was sonst noch ist:
a) wenn durch das Löschen alle Zeilen entfernt werden sollen bleibt eine Zeile DataBodyRange als leere Zeile übrig.
b) im Fall a) kommt ein Fehler wenn im Bereich direkt unter der Tabelle eine weitere Tabelle gefiltert ist. Ist die "untere" Tabelle nicht gefiltert, klappt das Löschen.  
c) wenn eine gefilterte Tabelle zwar unter dem Bereich steht, aber nicht direkt sondern daneben,  funktioniert der Fall a).