Hallo,
das ist schon halbwegs verständlich für mich. So der Crack bin ich in VBA noch nicht, weil ich das noch nie wirklich intensiv gemacht hab, aber so m.o.w. kapier ich schon, was Du meinst.
Was macht denn dieses ActiveSheet.UsedRange.SpecialCells(xlVisible)? Gibt mir das aus der UsedRange gerade die letzte sichtbare Zelle aus?
Das Ende des befüllten Bereichs hab ich aber vorher schon ermittelt, in einer Spalte, die definitiv nur da befüllt ist, wo Prüfungen vorgenommen wurden - wobei nicht sicher ist, dass das auch das Ende des Bereichs nach dem Filtern ist - aber ich glaube, das macht nichts, oder? Das Ende des Bereichs nach dem Filtern kann ja nur <= der letzten befüllten Zeile überhaupt sein.
Kann ich das statt mit Rows() auch mit Range() kombiniren? Mich interessieren nämlich nur die Spalten A bis Q.
=> Also, wenn die ermittelte letzte Zeile die 25 ist und es geht in Zeile 9 los, dann würde ich sagen >> ActiveSheet.UsedRange.Range("A9:Q25").Select <<
Würde das funktionieren?
|