Sub Grafik()
Application.DisplayAlerts = False
Worksheets("Grafik").Range("AA1:CZ3000").ClearContents
With Worksheets("Masterliste")
.Range("$A$9:$T$3000").AutoFilter Field:=7, Criteria1:="81"
.Range("$A$9:$T$3000").AutoFilter Field:=9, Criteria1:="ERLEDIGT"
.Range("B10:B3000").Copy
Worksheets("Grafik").Range("AA1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Worksheets("Grafik").Range("AA1").TextToColumns Destination:=Range("AB1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
.Activate
End With
Application.DisplayAlerts = True