Makro Autofilter mit 2 Kriterien

Computer: Software & Programmierung Visual Basic
#1

Hallo liebe Makro begeisterte,

ich schaffe es nicht den Autofilter ein 2.Kriterium anzufügen.
Makro mit nur einem Criteria1 „Festo“ läuft, gefilterte werden in ein neues Tabellenblatt „Verschleißteile“ eingefügt. Das Auskommentierte Criteria2 läuft nicht, sollte auch in das Tabellenblatt Verschleißteile.
Wie kann ich einen Autofilter mit 2 Criteria einsetzen?
Für euere Hilfe bin ich dankbar.

Gr. Hans

Sub Auswahl_Autofilter_auf_neues_Blatt()
Columns(„A:K“).Select 'Selectieren der Spalten
Selection.AutoFilter 'AutoFilter einschalten
Range(„J2“).Select 'Erstes Wertefeld selectieren
Selection.AutoFilter Field:=10, Criteria1:=„Festo“
’ _ Operator:=xlAnd, Criteria2:=„TEA“

Range(„A2“).CurrentRegion.SpecialCells _
(xlCellTypeVisible).EntireRow.Select
Selection.Copy
Sheets.Add.Name = „Verschleißteile“

ActiveSheet.Paste
End Sub

#2

Wie kann ich einen Autofilter mit 2 Criteria einsetzen?
Sub Auswahl_Autofilter_auf_neues_Blatt()
Columns(„A:K“).Select 'Selectieren der Spalten
Selection.AutoFilter 'AutoFilter einschalten
Range(„J2“).Select 'Erstes Wertefeld selectieren
Selection.AutoFilter Field:=10, Criteria1:=„Festo“
’ _ Operator:=xlAnd, Criteria2:=„TEA“

Range(„A2“).CurrentRegion.SpecialCells _
(xlCellTypeVisible).EntireRow.Select
Selection.Copy
Sheets.Add.Name = „Verschleißteile“

ActiveSheet.Paste
End Sub

Hallo Hans,

keine Sorge, kriegen wir schon hin :smile:

Ich war jetzt zu faul zum Testen, kann es sein daß da einfach nur ein Komma fehlt vor dem Operator?

Gruß
Reinhard

#3

Hallo Reinhard,

nun ist Wochenende habe Zeit für VBA. Makro läuft,es wird das Criteria1 in eine neues Tabellenblatt kopiert.
Beim Criteria2 funktioniert auch mit Komma nicht. Es wird nur noch das Tabellenblatt angelegt und kein Criteria rüberkopiert, nur 1. Zeile.
Criteria2 mit xland funktioniert noch nicht.
Beide Criteria befinden sich in der Spalte 10 und sollten gemeinsam in ein neues Tabellenblatt „Verschleißteile“ eingefügt werden.
Noch ein schönes Wochenende.
Vielen Dank für die Hilfe.
’ _ Operator:=xlAnd, Criteria2:=„TEA“

Hans

#4

nun ist Wochenende habe Zeit für VBA. Makro läuft,es wird das
Criteria1 in eine neues Tabellenblatt kopiert.
Beim Criteria2 funktioniert auch mit Komma nicht. Es wird nur
noch das Tabellenblatt angelegt und kein Criteria
rüberkopiert, nur 1. Zeile.
Criteria2 mit xland funktioniert noch nicht.
Beide Criteria befinden sich in der Spalte 10 und sollten
gemeinsam in ein neues Tabellenblatt „Verschleißteile“
eingefügt werden.

Hallo Hans,

bist du sicher daß du als Operator xlAnd brauchst?
Oder eher xlOr?

Und ja, in deinem Ausgangscode fehlte ein Komma vor dem Operator.

Gruß
Reinhard

#5

Hallo Reinhard,

es funktioniert, natürlich brauche ich den Operator Or.
Vielen Dank, schönes Wochenende und vielen Dank.

Hans