Filter-Makro anfertigen
reinhardt
ich muß noch hunderte Male in einer Tabelle in Spalte C immer den Filter für jeweils Januar, Februar, März... bis Dezember setzen, um einen errechneten Wert in eine Liste zu schreiben.
Mit dem u.a. Makro wollte ich diesen Vorgang einmal für die 12 Monate aufnehmen und jeweils einen Abschnitt mit der MSG-Box stoppen, um den Wert abzuschreiben.
Nun weiß ich leider nicht, wie ich den Bereich
Criteria2:=Array(1, "1/28/2010") so umschreiben muß, damit das einfach pauschal für die Monate funktioniert.
Kann mir bitte jemand helfen?
Gruß
Reinhardt Springer
Sub Datum1()
ActiveSheet.Range("$A$13:$AE$6165").AutoFilter Field:=3, Operator:= _
xlFilterValues, Criteria2:=Array(1, "1/28/2010")
MsgBox ("")
ActiveSheet.Range("$A$13:$AE$6165").AutoFilter Field:=3, Operator:= _
xlFilterValues, Criteria2:=Array(1, "2/23/2010")
End Sub