Ich habe eine automatischen Ablauf via Makro geschrieben, welcher sehr gut alle gewünschten Schritte nach und nach abarbeitet. Ein Problem hab ich jetzt allerdings, nach der "Text in Spalten" Funktion kommt die Abfrage "Hier gibt es schon Daten. Möchte Sie diese ersetzen?". Diese Meldung muss man leider mit Ja oder Abbrechen beantworten und lässt sich nicht einfach im Code ignorieren. Mich wundert sowieso weshalb diese Meldung kommt, hatte das nicht immer ... Somahl die Zellen, vorher ja ausführlich gecleart werden und eigentlich keine Daten enthalten sein dürften. Wie kann ich in dem Makro diese Meldung umgehen / vermeiden?
Hier der Code:
Sub Grafik()
Worksheets("Grafik").Activate
Range("AA1:CZ3000").Select
Selection.ClearContents
Worksheets("Masterliste").Activate
ActiveSheet.Range("$A$9:$T$3000").AutoFilter Field:=7, Criteria1:="81"
ActiveSheet.Range("$A$9:$T$3000").AutoFilter Field:=9, Criteria1:="ERLEDIGT"
Range("B10:B3000").Select
Selection.Copy
Worksheets("Grafik").Activate
Range("AA1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.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
Worksheets("Masterliste").Activate
End Sub
|