AW: Dumme Fehler meinerseits
05.01.2023 00:34:29
Yal
Hallo Tom,
-Die Mappen sollen nur unter dem Namen des Kriteriums, also Bereich aus Spalte A abgespeichert werden (z. B. "1"), da sie an die Bereiche versendet werden.
Ist das als xlsx Datei möglich?
-> Es geht. Es muss nur weniger Differenzierung in den Kriterien vorgenommen werden.
Anstatt:
'Liste der eindeutige Einträge sammeln
For Each ws In ThisWorkbook.Sheets
For R = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
Kriterien_Liste(ws.Cells(R, "A").Value & "_" & ws.Cells(R, "D").Value) = 1
Next
Next
Dann
'Liste der eindeutige Einträge sammeln
For Each ws In ThisWorkbook.Sheets
For R = 2 To ws.Cells(Rows.Count, 1).End(xlUp).Row
Kriterien_Liste(ws.Cells(R, "A").Value) = 1
Next
Next
Und genau dasselbe bei der Prüfung der Kriterien pro Zeile:
For Each ws In wbKopie.Worksheets
For R = ws.Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1 'beim Löschen immer von unten nach oben
If ws.Cells(R, "A").Value Krit Then ws.Rows(R).Delete 'nicht passenden Eintrage löschen
Next
Next
-Wie müsste das Makro geändert werden, wenn in der Originaldatei 1 oder 2 weitere Arbeitsblätter dazu kommen, die bei dem Splitten berücksichtigt werden müssten?
-> nichts. Das Makro berücksichtigt alles vorhandene Blätter, egal wieviel es sind. Die Blätter müssen nur dieselbe Struktur, also ähnliche Spalte A und D (aber jetzt nur noch D) haben.
VG
Yal