Thema: Makro mit Excape-Taste ohne Fehlermeldung beenden

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

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Bearbeiten