Filtern, Macro aufgezeichnet, beim ausführen keine Aktion

[clag]

Hi,

ja so geht es erheblich flüssiger und neue/andere Kriterien werden auch übernommen und richtig angezeigt,
dann kann man wohl auf das rücksetzen verzichten und unter dem Thema "Ballast" ablegen
was könnte man dann noch alles aus dem Code entfernen?

Eine Frage noch,
wo bzw wie wird für den Kriterienbereich die Spaltenanzahl festgelegt/ermittelt falls noch Spalten dazu kommen ?


ein schönn relaxten Abend noch

[Charly]

Hallo Clag!

wo bzw wie wird für den Kriterienbereich die Spaltenanzahl festgelegt/ermittelt falls noch Spalten dazu kommen ?

Das Makro ermittelt die letzte Spalte und die letzte Zeile des benutzten Bereiches selbst. Kommen rechts also Spalten dazu geht das automatisch. Bedingung ist nur, dass in diesem Bereich nichtsgeschrieben wird, was nicht zum Datenbereich und Kriterienbereich gehört. Die Codezeilen für den Datenbereich sind:

Code: Alles auswählen

'Hinweis: Rechts und unterhalb der Tabelle darf kein weiterer nicht dazugehöriger Wert stehen, sonst muss der Bereich festvergeben werden zB. für Spalte K der Wert 10
EndSpalte = Cursor.getRangeAddress().EndColumn
EndZeile = Cursor.getRangeAddress().Endrow
Bereich = Blatt.getCellRangeByPosition(0,10,Endspalte,Endzeile)

und für den Kriterienbereich:

Code: Alles auswählen

For I = 0 To Endspalte

Gruß
Charly