Office: Autofilter per VBA Hilfe!!!

Ich bin neue hier un habe ein Problem mit Autofilter. Ich habe eine Tabelle mit Spalten "Name", "Nummer", "Menge", "Netto", "Datum", "Ausgang". Ware komt jeden Tag, aber geht nur ein mal in der Wochche. Also, wenn icht Autofilter "Nichtleer" in Spalte-K "Datum" und "Leer" in Spalte-M "Ausgang" setze, kriege ich Ware welche bei mir am Lager da ist. Manuell (Daten>Filter>Autofilter) geht es, aber per VBA geht es garnicht. Mene Code ist folgende:

Range("K:K").AutoFilter
Range("K:K").AutoFilter Field:=1, Criteria1:=">0", Operator:=xlAnd, _
Visibledropdown:=False

Range("M:M").AutoFilter
Range("M:M").AutoFilter Field:=1, Criteria1:="", Operator:=xlAnd, _
Visibledropdown:=False

Er filtert nur eine Letzte spalte. Was mache ich falsch?

Danke

:)

 

Hallo,

wenn ich das richtig verstehe, sollen beide Bedingungen gleichzeitig erfüllt sein. Dann darfst Du nur einmal den Autofilter setzen und dann die beiden Bedingungen anführen.


Vielleicht so:

Range("K19:M19").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">0"
Selection.AutoFilter Field:=3, Criteria1:="", Operator:=xlAnd


Oder habe ich es falsch verstanden?

Gruß


Andreas

 

Hallo Roman,

Code:

Grüße
EarlFred

 

Na Ja, funzt immer noch nicht. Wenn ich 3 Spalten markiere K,L und M, dann Daten>Fiter>Autofilter - Spalte K auf "Nichtleer", Spalte L auf "Alle", Spalte M auf "Leer" - dann zeigt er mir richtig. Per VBA zeigt er mir gesamte Tabelle und dann Spalte K - "Benutzerdefiniert", Spalte L - "Alle", Spalte M - "Leer". Vieleicht soll ich Spezialfilter ansetzen? Aber wie?

 

DANKE Fred, es funzt!!!*biggrin.gif*

 

Vileicht kannst du mir weiter helfen. Ich möchte aus alle Sheets (Kunde1 bis Kunde 40) zu eine Sheet (Gesamt) kopieren. Mit Autofilter hat es dank dir wunderbar geklapt. Jetz einfüge ich für Jede Sheet gleiche Kode, dann bekomme ich ganz lange Kodeliste. Vileicht ist das möglich im VBA festlegen (z.B. QuellWB.Sheets Kunde1 bis Kunde40) oder aus alle automatisch ziehen.
Danke.

Hier gesamte Kode:

QuellWB.Sheets("Kunde1").Activate
LetzteZeile = Range("D65535").End(xlUp).Row
With Columns("A:M")
.AutoFilter Field:=11, Criteria1:=Crit1
.AutoFilter Field:=13, Criteria1:=Crit2, Operator:=xlAnd, Visibledropdown:=True
End With
Range("D2", "i" & LetzteZeile).SpecialCells(xlVisible).Copy
ActiveSheet.Activate
ActiveSheet.AutoFilterMode = False
ZielWB.Sheets("Gesamt").Activate
Range("A65535").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial (xlValues)
Range("A65535").End(xlUp).Offset(1, 0).Select

 

Hallo Roman,

ungetestet!
Code:

Grüße
EarlFred