Hi Caffy,
mach mal ne Datensicherung Deiner Tabelle.
Und um Deinen zu filternden Bereich dynamisch zu gestalten ersetze mal folgende Zeile
Set rngFilterRange = ActiveSheet.Range("A12:H425")
mit dieser hier:
With ActiveSheet
Set rngFilterRange = .Range(.Cells(.Rows.Count, 1).End(xlUp), .Cells(12, .Columns.Count).End(xlToLeft))
End With
Dieser Code ermittelt nun die letzte beschriebene Zelle in Zeile A und die letzte beschriebene Spalte in Zeile 12.
Eckpunkte; das untere Eck links + das obere Eck rechts Deiner Matrix.
Feedback erwünscht; dann gehts weiter.
gruß
Marco
|