ich hatte am 05.04.2013 bereits das Problem eingestellt und Hubert war so freundlich darauf zu antworten, leider konnte ich wegen Krankheit keine Ergebnisse posten.
Leider besteht das Problem noch immer.
Ich habe von Klaus unten aufgeführtes Makro bekommen, nun kam mein Chef noch auf die Idee, dass man die Auswahlkriterien gleich vorbelegt. Dies habe ich auch versucht zu machen (bin auch über die Makroaufzeichnung gegangen, Aber bei 12 Tabellenblättern jeweils das Blatt auswählen, das Makro drüberlaufen lassen und dann das nächste Makro zu starten ist keine schöne Methode)
Ich soll für die Spalte D ein Auswahlkriterium und für die Spalte F drei Auswahlkriterien einfügen.
Die Zeilen die ich anstelle Field 1 eingefügt habe sind :
Field:=4, _
Criteria1:="=xxxxx", _
Operator:=xlAnd
Field:=6, Criteria1:=("xxxxx", "yyyyy", "zzzzz"), Operator:=xlFilterValues
Hubert hat mir den Tip gegeben, dass ich die Range A1 ändern sollte, dies habe ich versucht auf A1:F1000 aber er macht mir trotzdem nichts, bzw. bringt den Fehler 400
Wie kann ich nun für Spalte D und F jeweils die Auswahlkritierien einbauen.
Da ich mich erst in die Makros reinfuchse und noch wenig Ahnung habe, arbeite ich momentan viel mit der Makroaufzeichnung und schau mir dann an, was das Ding so macht... Also habe ich leider wenig Ahnung von VBA.
Danke schon mal im Voraus
Original Makro :
Sub Filter1()
Dim iWks As Integer
For iWks = 1 To Worksheets.Count
Call DoResetAutofilter(Worksheets(iWks), 1, 1, 1)
Worksheets(iWks).Range("A1").AutoFilter _
Field:=1, _
Criteria1:="*", _
Operator:=xlAnd
Next iWks
End Sub
Sub DoResetAutofilter(wksMySheet As Worksheet, iColFirst As Integer, iColLast As Integer, _
lRowFirst As Long)
'* in case a user used another autofiler, this makro resets the autofilter to where needed.
Dim lRowLast As Long
With wksMySheet
lRowLast = .Cells(.Rows.Count, iColFirst).End(xlUp).Row
If .AutoFilterMode Then .Cells.AutoFilter 'Turns OFF Autofilter, if any
'Selection.AutoFilter
.Range(.Cells(lRowFirst, iColFirst), .Cells(lRowLast, iColLast)).AutoFilter
'Turns ON _Autofilter on given range
'ActiveSheet.Range("$A$1:$F$151").AutoFilter Field:=1
End With
End Sub