Autofilter criteria wiederherstellen
08.12.2002 21:57:28
Dietmar E
Mit dem VBA kann Ich Autofiltereinstellungen wiederherstellen, die ich früher in ein anderes Tabellenblatt ausgelesen habe.
Sub ZelleAlsFiltercriteria()
Columns("A").AutoFilter _
Field:=Range("a2").Value, _
Criteria1:=Range("Tabelle3!a2").Value
Sheets("Tabelle3").Select
Range("A2").Select
Rows(ActiveCell.Row).Delete
Sheets("Tabelle1").Select
End Sub
Es stellt mir nur die Criteria1 für Spalte A wieder her.
Wie muss ich vorgehen um Spalte B C usw. wiederherzustellen.
Die Werte stehen alle in Zeile 2 der Tabelle3.