2Sheets->Datenaustausch
25.07.2003 12:27:25
AJ
Jedoch wenn ich den Autofilter wieder verändere, so wird die Eingabe im 2ten Sheet auch verändert!
Folgender Code:
Selection.AutoFilter Field:=7, Criteria1:=" production "
Sheets("Sheet2").Select
Range("D8").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,Sheet1!G:G)"
Sheets("Sheet1").Select
Selection.AutoFilter Field:=2, Criteria1:="= ISDN ", Operator:=xlOr, _
Criteria2:="= isdn local loop "
Sheets("Sheet2").Select
Range("D9").Select
ActiveCell.FormulaR1C1 = "=SUBTOTAL(3,Sheet1!B:B)"
Sheets("Sheet1").Select
Selection.AutoFilter Field:=2
Wie kann ich des Makro so verändern, dass die erste Eingabe mit der ursprünglichen Zahl stehen bleibt???
THX, AJ