Finde richtige Stelle für CutCopyMode nicht!!
13.04.2017 11:12:44
Benni
ich habe mal ein Problem, was ich nach diverser Recherche nicht lösen konnte.
Letztlich möchte ich Daten zwischen den Tabellenreitern zweier Dateien transportieren und keine Daten im Zwischenspeicher behalten.
Hört sich easy an und soll lt. zigfacher Ausführeungen von
Application.CutCopyMode = False
Application.DisplayAlerts = False
Aufgefallen ist mir, dass mir der Editor auch nur die Konstanten xlCut und xlCopy anbietet, jedoch nicht die Parameter True und False.
Keine Ahnung was ich noch machen soll aber ich will in meinem VBA.Code natürlich nicht dauern Abfragen bestätigen müssen.
Außerdem ist es sicherlich nicht so der besten Stil einfach mal alle Display-Meldungen zu unterdrücken. Kann ja auch mal was wichtiges sein. Klappt aber selbst wenn ich wollte nicht.
Zur Not könnte man per VBA die 'Nein'-Taste drücken, doch deren VBA-Umsetzung kann/kenn ich noch nicht.
Mein Code sieht dann in etwa so aus
' Aktuelle Exportdaten abspeichern
Set rngExportKopie = getCopyRange(wsDatenExportNeu)
rngExportKopie.Copy
With wsDatenNeu.Range("A1")
.PasteSpecial xlPasteValues
.PasteSpecial xlPasteFormats
End With
Application.CutCopyMode = False
Wenn ich an dieser Stelle Application.CutCopyMode auf false setze, kommt die Meldung trotzdem.
Was kann ich noch tun?
Danke schon mal für die Hilfe.
VG Benni