Autofilter
29.05.2002 18:50:22
Klaus
Ich hab es so schon einmal probiert, aber die Variable "Anfang" wird nicht in den Filter übernommen.
Sub Statistiken()
Dim Anfang As String
Worksheets("Eingabetabelle").Activate
Anfang = Range("G69")
Ende = Range("H69")
Worksheets("Buchungen").Activate
Range("A1:M500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">Anfang", Operator:=xlAnd _
, Criteria2:="