Office 2016 Zeile löschen wenn

[GeorgieGeorge]

Hallo Leute

Ich möchte ein Sub schreiben , welches 2 bestimmte Spalten durchläuft und folgendes tut :
 
Wenn der Wert in der ersten Spalte einen Inhalt hat und die zweite Spalte leer ist soll die Zeile gelöscht werden. Wenn nicht dann nicht.
 
Ich danke im voraus und verbleibe mit freundlichem Gruß
 
GeorgieGeorge

[gmg-cc]

Obwohl ich VBA-Fan bin, warum nicht zu Fuß? das geht mit einem AutoFilter ruck zuck.
Oder genau den Autofilter mit dem Makrorecorder aufzeichnen, dann hast du deine Prozedur.

[GeorgieGeorge]

AutoFilter löst das Problem leider nicht. Ich kann dir das auch leider nicht beschreiben warum AutoFilter nicht die Lösung ist.

[gmg-cc]

Dann wird VBA auch nicht helfen, weil ein Makro eigentlich nur das automatisiert, was auch per Hand gemacht werden kann. Von wenigen Ausnahmen einmal abgesehen.

Ich geh in dem Fall davon aus, dass der Aufbau der Tabelle oder der Daten etwas "krumm" ist. Oft sind verbundene Zelle die Ursache allen Übels ...  Stelle doch einfach einmal eine (anonymisierte) Mustermappe hier ein, dann sehen wir weiter.

[GeorgieGeorge]

Im Prinzip bräuchte ich einen VBA Code der mir Zeile 3 und 7 weglöscht. Es geht um Excel Tabellen von mehr als 13.000 Zeilen

[DL]

Im Prinzip bräuchte ich einen VBA Code der mir Zeile 3 und 7 weglöscht.

Im Prinzip kannst du das auch mit dem Makro-Recorder aufzeichnen.

[GeorgieGeorge]

Im Prinzip hilft mir deine Antwort nicht weiter . ich kann nicht nach leer tabellen filtern und löschen , da ich somit zeilen lösche die ich brauche !

[DL]

Ich habe keine Ahnung was du mit "leer tabellen" meinst und den Filter hast du ja sowieso ausgeschlossen. Und erst willst Zeile 3 und Zeile 7 löschen und nun doch nicht?

Code: [Auswählen]

Sub Zeile3_und_Zeile7_loeschen()
    Rows("7:7").Delete Shift:=xlUp
    Rows("3:3").Delete Shift:=xlUp
End Sub


[GeorgieGeorge]

In der Datei die ich beigefügt habe steht in der Spalte C der Status einer Bestellung. Diese Unterscheiden sich in noch nicht versandt / in Bearbeitung oder aber die Zelle ist leer. Wenn die Zelle leer ist steht in Spalte D entweder die Stationen die die Bestellung durchläuft oder die Zelle ist leer, wie in Zeile 3 und 7. Ich habe keinen Einfluss auf diese Datensätze , deswegen brauch Ich einen VBA Code, welcher die ganze Tabelle durchläuft und überprüft ob in  und diese Zeilen löscht wo kein Status und keine Station vorhanden ist.

danke im voraus

[DL]

Autofilter ist nicht die Lösung.

Code: [Auswählen]

Sub Leere_Zeilen_loeschen()
    ActiveSheet.Range("$A$1:$D$8").AutoFilter Field:=3, Criteria1:="="
    ActiveSheet.Range("$A$1:$D$8").AutoFilter Field:=4, Criteria1:="="
    Range("A3:A7").EntireRow.Delete
End Sub

[GeorgieGeorge]

Vielen lieben Dank

[GeorgieGeorge]

Ist es möglich das er die AutoFilter Zeilen automatisch löscht ? In deinem Sub löscht er ja explizit Zeile 3 und 7 . Es kann aber auch sein das ich mal ne Datenmenge bekomme wo das andere Zeilen sind

Danke im Voraus

MFG

[DL]

Hallo

Der Filter löscht nicht sondern dies löscht:

Code: [Auswählen]

Range("A3:A7").EntireRow.DeleteDu musst den Bereich anpassen.

[GeorgieGeorge]

Ok Danke.