Office: (Office 2010) Gefiltertes Ergebnis löschen VBA Makro

Hallo Zusammen,

Ich hab eine Datei, wo die Zeile 1 und 2 Frei sind und der Überschrift sich im 3. Zeile befindet.

Schritt 1: Ich bräuchte ein Makro, wo die 3. Zeile gefiltert wird, von Spalte A die "2" also doppelt gewählt wird und von Spalte AT "leere" gewählt wird. Dann soll das Ergebnis komplett gelöscht werden.

Schritt 2: Das selbe dann nochmal wieder mit der Spalte A die "2" und mit der Spalte BC "leer".

Liebe Grüße

 

Hallo semih094 (oder wie heißt du richtig?),

probier mal das:

Sub Makro2()

Dim LetzteZeileDaten, LetzteSpalteDaten

LetzteZeileDaten = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LetzteZeileDaten = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

Rows("3:3").Select
Selection.AutoFilter
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=4, Criteria1:="2"
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=46, Criteria1:="="
Range(Cells(4, 1), Cells(LetzteZeileDaten, 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=11

ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=4, Criteria1:="2"
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=55, Criteria1:="="
Range(Cells(4, 1), Cells(LetzteZeileDaten, 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=4
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteZeileDaten).AutoFilter Field:=55
End Sub

Ist nicht schön, sollte aber laufen.

Gruß,
Lutz

 

Halloo, Danke für die schnelle Antwort. Ich krieg aber nen Fehler. "Fehler beim Kompilieren: Erwartet:Listentrennzeichen oder )"

LG
Semih

 

Hallo Semih,

oh Schreck

Hab gepfuscht wie die Sau. Da war nicht nur ein Fehler drin.
Probier mal das:

Sub Makro2()

Dim LetzteZeileDaten, LetzteSpalteDaten

LetzteZeileDaten = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
LetzteSpalteDaten = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column

Rows("3:3").Select
Selection.AutoFilter
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=4, Criteria1:="2"
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=46, Criteria1:="="
Range(Cells(4, 1), Cells(LetzteZeileDaten, 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=11

ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=4, Criteria1:="2"
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=55, Criteria1:="="
Range(Cells(4, 1), Cells(LetzteZeileDaten, 1)).EntireRow.Select
Selection.Delete Shift:=xlUp
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=4
ActiveSheet.Range(cells(3,1), cells(LetzteZeileDaten ,LetzteSpalteDaten)).AutoFilter Field:=55
End Sub

Gruß,
Lutz

 

Es werden leider alle Zeilen im Datei gelöscht

 

Hallo Semih,

hab's geprüft und es funktioniert.

Lass das Makro mal mit F8 Schritt-für-Schritt durchlaufen. Vielleicht siehst Du wann es alles löscht.

Gruß,
Lutz

 

Vielen Dank, es klappt :)