Variabler Autofilter
09.02.2017 09:57:24
Mike
nachdem ich das Problem mit Autofilter lösen konnte, (den man immer zweimal anstoßen musste), erstmal danke an Harry. Die Idee war prima.
Ich probiere jetzt schon eine Weile den Autofilter variabel zu deklarieren. (Nennt man das so?)
Hier mein Code:
Private Sub CommandButton1_Click()
Sheets(Sheets("Auswertung").Range("N10").Value).Select
Dim Kriterium1 As Long, Kriterium2 As Long, Kriterium3
Selection.AutoFilter
With Sheets("Auswertung")
Kriterium1 = DateSerial(Year(.Cells(11, 30)), 1, 1)
Kriterium2 = DateSerial(Year(Kriterium1), 12, 31)
Kriterium3 = Sheets("Auswertung").Cells(20, 32)
End With
ActiveSheet.Range("$A$1:$H$40000").AutoFilter Field:=3, Criteria1:= _
">=" & Kriterium1, Operator:=xlAnd, Criteria2:="$A$1:$H$40000").AutoFilter Field:=6, Criteria1:=Kriterium3
'End With
'Spalte F:F mit Dateiendung Breite ändern
Columns("F:F").ColumnWidth = 7.5
End Sub
Lieben Gruß
und schonmal vielen Dank!
Mike
Anzeige