SendKeys "{ESC}“ hat keine Wirkung in Excel 2016 Makro

Ich habe festgestellt, dass die grün gestrichelte umkreisende Linie nach
Strg. C bzw. X und Strg V eine Dauererscheinung in Excel 2016 ist - beeinträchtigt den Betrieb nicht, irritier nur manchmal.

----------------------------------------------------------------------------------------------------------------------------------------------------

Doch tut es und zwar seit das Feature "keep the copy" im May 2017 eingeführt wurde. Google mal...

Aber wie so oft: Niemals SELECT, SELECTION in Makros verwenden, es it langsam und fehleranfällig. Immer die Objekte direkt referenzieren.

Andreas.

Sub Workbook_Open()

With Sheets("Finanz")

.Range("p25").Value = .Range("o25").Value

.Range("P4").ClearContents

End With

Worksheets("Devisen").QueryTables(1).Refresh BackgroundQuery:=True

End Sub

Hi Claus,



vielen Dank für die schnelle Antwort. Dein Vorschlag hat im „Normalbetrieb“ geklappt. Es handelt sich hier aber um ein Autoopen-Makro, und ausgerechnet beim Öffnen der Datei funktioniert es nicht, d.h. nach "[p2.p5].PasteSpecial Paste:=xlPasteValues"
„umkreist“ die grün gestrichelte Linie [p2.p5]. Erst bei manuellem ESC hört es auf.



Sonst funktioniert alles OK. Passiert bei mir in Win10/Excel 2016, aber auf einem anderen PC nicht in Vista/Excel 2003.



Sub Workbook_Open()

Sheets("Finanz").Activate

[o2.o5].Copy

[p2.p5].PasteSpecial Paste:=xlPasteValues

Application.CutCopyMode = False

[p4].Select

[p4].ClearContents

Worksheets("Devisen").QueryTables(1).Refresh BackgroundQuery:=True

End Sub



Ich habe festgestellt, dass die grün gestrichelte umkreisende Linie nach
Strg. C bzw. X und Strg V eine Dauererscheinung in Excel 2016 ist - beeinträchtigt den Betrieb nicht, irritier nur manchmal.



Wieso hat SendKeys "{ESC}" in Excel 2016 keine Wirkung, aber z.B. "{a}" schon.



Beste Grüsse

Hallo Claus und Anreas,

vielen Dank für die Hinweise. Andreas Hinweis "keep the copy" bestätigt mein "Problem/Beanstandung"....

If you want the Marquee to disappear, you can use the ENTER key to perform the paste operation, or after the paste, you can press the ESC key to cancel the copy.

Kann man dies nicht in den Einstellungen nicht abstellen?

Range("p25").Value = .Range("o25").Value habe ich übernommen; trotz Application.CutCopyMode = False erscheint das Marquee
beim Öffnen der Datei und Auslösen des Workbook_Open()-Makros, aber nicht wenn das Makro in bereits geöffneter Datei
ausgeführt wird.

Wieso funktioniert SendKeys "{ESC}" nicht?

SendKeys "{ENTER}" fügt einen Zeilenumbruch im Makro-Code ein!

Beste Grüsse

Hallo,

probiere es mit

Application.CutCopyMode=False

Claus

Hallo,

das direkte Zuweisen der Werte wie von Andreas beschrieben ist wesentlich effektiver als Copy & Paste.

Aber trotzdem funktioniert bei mir dieser Code und entfernt den Laufrahmen:

Sub Workbook_Open()

With Sheets("Finanz")

   .[o2:o5].Copy

   .[p2:p5].PasteSpecial Paste:=xlPasteValues

   Application.CutCopyMode = False

   .[p4].ClearContents

End With

Worksheets("Devisen").QueryTables(1).Refresh BackgroundQuery:=True

End Sub

Claus