Gruppe
Allgemein
Bereich
Bearbeiten
Thema
Makro mit Excape-Taste ohne Fehlermeldung beenden
Problem
Ein Makro soll mit der Escape-Taste abgebrochen werden können. Danach soll eine Bestätigungsmeldung erfolgen.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub MakroUnterbrechen()
Dim lRow As Long
On Error GoTo ErrorHandler
Application.EnableCancelKey = xlErrorHandler
For lRow = 1 To Rows.Count
Cells(lRow, 1).Value = lRow
Next lRow
End
ErrorHandler:
MsgBox "Alles klar, mache Schluß!"
Columns(1).ClearContents
End Sub