AutofilterZeile fixieren
20.11.2004 16:54:58
Peter
da ich bis jetzt immer Hilfe bekommen habe, eine neue Frage.
Wie kann man in der Zeile 5 den Autofilter in allen Blättern fixieren?
Hintergrund ist, daß der AF beim Ausführen von Makros plötzlich in einem anderem Bereich ist.
und die 2. Frage, wie muß die Syntax heißen, wenn Criteria1:=KWRS kleiner oder gleich sein soll
Gruß
Peter
Sub Auswertung21()
' Auswertung2 Makro
' Makro am 19.11.2004 von PD aufgezeichnet
Sheets("Auswertung").Select
Range("C4").Select
Sheets("Werk 21").Select
Range("e2").Select
Selection.AutoFilter Field:=1, Criteria1:=KWRS
Range("E2").Select
Selection.Copy
Sheets("Auswertung").Select
Range("f5").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Range("e2").Select
HIER KOMMT MEISTENS DER FEHLER
Selection.AutoFilter Field:=1, Criteria1:=KW1
Range("E2").Select
Selection.Copy
Sheets("Auswertung").Select
Range("f6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW2
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f7").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW3
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f8").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW4
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f9").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW5
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f10").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW6
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f11").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW7
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW8
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f13").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1, Criteria1:=KW9
Application.CutCopyMode = False
Selection.Copy
Sheets("Auswertung").Select
Range("f14").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Werk 21").Select
Selection.AutoFilter Field:=1
Sheets("Auswertung").Select
End Sub
Anzeige