ich würde mich freuen, wenn ihr mir helfen könntet.
Möchte ein Makro schreiben, das die von mir markierten Spalten nach 2 Kriterien filtert.
Konkret: auf meinem Excel-Blatt ("Aktuell"), das einen fortlaufenden Kalender darstellt, markiere ich Wochentage (Mo-Sa), also 6 Zellen von links nach rechts.
Der Autofilter soll nun reihum zunächst nach den Kriterien in der ersten ausgewählten Spalte filtern, das Ergebnis in eine Tabelle in einem anderen Tabellenblatt kopieren ("Dispo"), die nächste Spalte filtern, kopieren, und so weiter durchgehend bis zur letzten markierten, also 6. Spalte.
Meine Idee folgt untenstehend. Der bisher starre Bereich (z.B. P15:U15) soll dabei ersetzt werden, durch einen variablen Ausdruck, je nach gewählter Markierung.
Hab´s schon mit EntireColumn und Dim versucht, führt aber zu nichts.
Sub Dispo()
Range("B5:E18,G5:J18,L5:O18,B23:E36,G23:J36,L23:O36").Select
Range("L23").Activate
Selection.ClearContents
Range("B5").Select
Sheets("Aktuell").Select
Range("P15:Q15").Select
Selection.AutoFilter
ActiveSheet.Range("$P$15:$Q$34").AutoFilter Field:=1, Criteria1:="=D", _
Operator:=xlOr, Criteria2:="=K"
Range("B16:C40").Select
Selection.Copy
Sheets("Dispo Kunde").Select
ActiveSheet.Paste
Sheets("Aktuell").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("Q15:R15").Select
Selection.AutoFilter
ActiveSheet.Range("$Q$15:$R$34").AutoFilter Field:=1, Criteria1:="=D", _
Operator:=xlOr, Criteria2:="=K"
Range("B16:C40").Select
Selection.Copy
Sheets("Dispo Kunde").Select
Range("G5").Select
ActiveSheet.Paste
Sheets("Aktuell").Select
Application.CutCopyMode = False
...etc..
Selection.AutoFilter
Range("U15:V15").Select
Selection.AutoFilter
ActiveSheet.Range("$U$15:$V$34").AutoFilter Field:=1, Criteria1:="=D", _
Operator:=xlOr, Criteria2:="=K"
Range("B16:C40").Select
Selection.Copy
Sheets("Dispo Kunde").Select
Range("L23").Select
ActiveSheet.Paste
Sheets("Aktuell").Select
Application.CutCopyMode = False
Selection.AutoFilter
Range("B1").Select
Sheets("Dispo Kunde").Select
Range("A1").Select
End
Sub
Vielen Dank im voraus
Gruß Thomas