Im Besipiel müsste
- anstatt Field 1 der Wert von F21 vom Sheet "Teil 1 bis 5"
- anstatt Field 2 der Wert von F22 vom Sheet "Teil 1 bis 5"
Vielen Dank!
Beispiel:
Range("F21").Select
Selection.Copy
Sheets("Geantwortet").Select
Selection.AutoFilter Field:=4, Criteria1:="=a) Field 1", _
Operator:=xlAnd
Sheets("Teil 1 bis 5").Select
Range("F22").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Geantwortet").Select
Selection.AutoFilter Field:=4, Criteria1:="=a) Field 1", _
Operator:=xlOr, Criteria2:="=b) Field 2"
Sheets("Teil 1 bis 5").Select
Range("A1").Select
Application.CutCopyMode = False
Sheets("Geantwortet").Select
Range("A3:a1500").Select
Selection.Copy
Sheets("Teil 1 bis 5").Select
Range("B39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Geantwortet").Select
Range("b3:b1500").Select
Selection.Copy
Sheets("Teil 1 bis 5").Select
Range("e39").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("A1").Select