Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Makro mit Excape-Taste ohne Fehlermeldung beenden

Gruppe

Bearbeiten

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