Filter
09.09.2003 11:29:14
mr.shaolin
Ich bräuchte bitte Hilfe bei einem Autofilter?
Ich habe eingentlich 2 Abragen (ich weiß nicht, ob das Operator:=xlOr, )richtig ist?!?!:
Sub Auto()
Dim iZeile As Long
With Sheets("Filiale")
.Select
Selection.AutoFilter Field:=6, Criteria1:="<500", Operator:=xlAnd
Selection.AutoFilter Field:=4, Criteria1:="VW", Operator:=xlOr, _
Criteria2:="=PKW"
For iZeile = 2 To .Range("A65536").End(xlUp).Row
If .Cells(iZeile, 8) = 0 Then
On Error Resume Next
End If
If .Cells(iZeile, 4) = "VW" Then
.PrintOut Copies:=1, Collate:=True
Exit For
End If
Next iZeile
.Range("H1").Select
End With
End Sub
Es geht nur um diesen Filter:
Selection.AutoFilter Field:=4, Criteria1:="VW", Operator:=xlOr, _
Criteria2:="=PKW"
Es soll Nur gedruckt werden, wenn mind. einmal "VW" vorkommt,
sonst nicht. (es reicht nicht, wenn nur "PKW" vorkommt).
Wie kann ich das Makro abändern?
Danke
mr.shaolin
Anzeige