intDiviCol ist die Spaltennummer des gewünschten Filterkriteriums, die ich vorher abgefragt habe. ColValues ist eine Collection mit vorher abgefragten Werten, auf die ich nacheinander filtere. (Der Code stammt aus einer Schleife.)
_______________________________
'Filter
ActiveSheet.UsedRange.AutoFilter
ActiveSheet.UsedRange.AutoFilter field:=intDiviCol, Criteria1:=colValues.Item(i)
'select row 2 downwards (omitting header row)
Rows("2:2").Select
Range(Selection, Selection.End(xlDown)).Select
'Copy
Application.CutCopyMode = False
Selection.SpecialCells(xlVisible).Cut
_______________________________
Bei der letzten Zeile steigt er mit der Fehlermeldung aus, das Ganze wäre bei "multiple selections" nicht möglich.
Wie gesagt, in einem anderen Sub läuft der Code und ich stehe deshalb vor einem Rätsel.
Was meinen die Experten?