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

acimot · 9. September 2017

Nach Strg. C bzw. X und Strg V werden in Excel die Quellzellen von einem grünen gestrichelten Linie „umkreist“, die erste nach ESC verschwinden.

In einem Makro hat SendKeys "{ESC}“ keine Wirkung.

Jemand eine Idee? Im Voraus vielen Dank.

Andreas Killer

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("p2

5").Value = .Range("o2 :eek:

5").Value

.Range("P4").ClearContents

End With

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

End Sub

acimot

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

acimot

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("p2

5").Value = .Range("o2 :eek:

5").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

Claus Busch

Hallo,

probiere es mit

Application.CutCopyMode=False

Claus

Claus Busch

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

Hi,

willkommen im Windows Forum!

SendKeys "{ESC}“ hat keine Wirkung in Excel 2016 Makro - Similar Threads - SendKeys {ESC}“ Wirkung	Forum	Datum
Excel Makro Excel Makro: Hallo und guten Tag Ich habe bei support.microsoft.com ein Beispiel zum Löschen leerer Zeilen in einem Excel-Arbeitsblatt gefunden. Aus Diesem habe ich das folgende Makro gemacht. Sub Makro6 '...	Microsoft Office	20. November 2020
Excel Makro Excel Makro: Ich möchte nur die Zellen in "C" löschen die in "B" rot unterlegt sind. Die Spalte "D" soll nicht berücksichtigt werden. Wie kann ich das im Makro integrieren? Sub Bereinigen Dim LRow As Long...	Microsoft Office	3. März 2020
Excel Makro Excel Makro: Hallo zusammen, ich würde gern in eine Excel Datei ein Makro einfügen, welches eine komplette Zeile in ein anderes Blatt verschiebt, sobald in einer Spalte das Wort "Erledigt" vorkommt. In dem...	Microsoft Office	11. Dezember 2019
Excel Makro Excel Makro: Guten Tag liebe Comminity, ich erstelle gerade eine Excel-Datei und benutze zum Einfügen Makros. Ich habe welche zum Einfügen und zum Löschen. Ich möchte gerne da wenn man etwas mit einem Makro...	Microsoft Office	10. April 2018
Excel Makro Excel Makro: Ich habe in meiner Excel Liste ein Makro erstellt welches auf Druck auf den button eine neue Zeile erstellt und gleichzeitig den Blattschutz aufrecht erhält. Dieses Makro funktioniert eigentlich...	Microsoft Office	26. September 2017
excel 2016 Schaltfläche mit Makro funktioniert nicht excel 2016 Schaltfläche mit Makro funktioniert nicht: Nach Konvertierung von Excel 2003 nach 2016. Schaltflächen rufen Makros auf und führen zu Laufzeitfehler 13. Wenn ich die Makros direkt ausführe oder mit Strg+Zeichen starte funktionieren sie...	Microsoft Office	25. April 2017
Excel Makro Excel Makro: Ich habe eine Excel Tabelle. Die Tabelle hat Werte in den Spalten A-T. Täglich lese ich neue Daten in die Anwendung für die Spalten A-H und sortiere dann die Tabelle nach Spalte B. Nach dem...	Microsoft Office	7. Januar 2017

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