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
Es ist evtl. sogar möglich, dass mehr als 40000 Einträge vorhanden sein können, es kann aber auch sein, dass nur 50 da sind. HAbt ihr eine Idee wie ich das variabel gestalten könnte?Lieben Gruß
und schonmal vielen Dank!
Mike