Hallo Till,
ich habe deinen Code mal etwas ueberarbeitet und die ueberfluessigen Activate und Select rausgeschmissen. Ausserdem habe ich, um dein Problem zu loesen, die Zeilen
Application.DisplayAlerts = False
und
Application.DisplayAlerts = True
Diese schalten diese Abfragen aus und wieder an. Allerdings ist die Beantwortung dann immer "OK". Niemals "Abbrechen".
Hier der gesamte Code:
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
Gruss Torsten
|