Hallo Werner (oder andere interessierte Helfer),
vielen Dank nochmal, es hat nach einigem hin- und her letztlich funktioniert, was aber eher daran lag, dass ich hier und da doch noch einigen Murks stehen hatte:-)
Jetzt wo es soweit funktioniert, frage ich mich, ob man den AutoFilter nicht auch flexibel nach Überschriften suchen lassen kann, anstatt feste Felder vorzugeben!?
Also anstatt:
ActiveSheet.Range("$A$20:$AN$446").AutoFilter Field:=3, Criteria1:=Array("1", "2", "3", "4"), Operator:=xlFilterValues
Soll er eine Überschrift suchen, dadadurch das Feld (3, 4, 5,...) bestimmen, und dann entsprechend filtern.
Wie würde der Code dafür lauten, oder macht man sowas eigentlich über Schleifen?
Gruß
HerrWeimann
|