test
19.08.2021 10:10:31
Holly
ich ich habe aktuell ein Problem mit einem Makro.
Das Makro erkennt alle gleichen Einträge in einer Spalte und erstellt dann für jede Filterung einen Ausdruck (per Schleife).
Das klappt bis dahin sehr gut.
Allerdings reichen meine Fähigkeiten nicht aus, um eine weitere Spalte/Filterung mit einzubeziehen, z.B: Spalte E.
Fiktives Beispiel:
Eine Grundtabelle mit Auftragsanlagen.
In Spalte D gibt es 8 verschiedene Sachbearbeiter. Das Makro filtert diese 8 Bearbeiter nacheinander und erstellt 8 Ausdrucke.
Das leistet das Makro auch aktuell.
Nun erstellt jeder Bearbeiter Aufträge für zwei verschiedene Kunden. Es sollen also 16 Ausdrucke erfolgen, also je Bearbeiter und Kunden separat,
also eine zusätzliche Filterung auf den Kunden (Spalte E).
Codeschnipsel für einen Filter und Ausdruck:
Sub Jeden_SB_drucken()
Dim arrSB
Dim SB
'--- Liste der SBs erstellen und in Array-Variable Speichern
Range("D:D").AdvancedFilter xlFilterCopy, , Range("iv1").Cells, True
Range("iv1").Delete shift:=xlUp
arrSB = Range("iv1").CurrentRegion
Range("iv1").EntireColumn.Delete
'--- Jeden SB filtern und drucken
For Each SB In arrSB
Range("A1").AutoFilter Field:=4, Criteria1:=SB
ActiveSheet.PrintOut
Next
ActiveSheet.ShowAllData
End Sub
Danke für Eure Hilfe.Liebe Grüße!