AW: Autofilter per Makro setzen
14.06.2006 12:09:04
JayLen
Hallo Wilhelm
Mein Code sieht jetzt so aus:
Sub Autofilter()
Dim AktiveZeile2 As Integer
Dim Ende As Integer
Dim Datum As String
AktiveZeile2 = ActiveCell.Row
Ende = Application.Worksheets("Umsätze").Range("A65536").End(xlUp).Row
With Worksheets("Umsätze")
If .AutoFilterMode Then
Rows("4:4").Select
Selection.Autofilter
Range("A4", Cells(Ende, 33)).Select
Selection.Autofilter
Else
Range("A4", Cells(Ende, 33)).Select
Selection.Autofilter
End If
End With
Cells(AktiveZeile2, 3).Select
Datum = Cells(AktiveZeile2, 3)
Selection.Autofilter Field:=3, Criteria1:=Datum, Operator:=xlAnd
Range("A7").Select
End Sub
Findest du da noch irgendwo einen Fehler. Ich fall bald vom glauben ab.
Danke JayLen