Gruppe
Allgemein
Problem
Ein Makro soll mit der Escape-Taste abgebrochen werden können. Danach soll eine Bestätigungsmeldung erfolgen.
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