title image


Smiley Re: Makro abbrechen
hiho







'das hier ist bei DIR nicht notwendig ich brauche das für das sleep

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'das hier

Dim StopMe As Boolean

Public Sub zero() 'dein Makro

Dim i As Integer

'************

StopMe = False

'************

For i = 1 To 1000

    Sleep 1000

    DoEvents

    'das ist für dich relevant

    '*******************

    If StopMe Then Exit Sub

    '*******************

    Cells(i, 1) = i

Next

End Sub



Sub stop_the_makro()

'und diesem Makro eine Tastenkombi zuweisen

StopMe = True

End Sub

'oder natürlich kann auch mit EnableCancelKey gearbeitet werden wie xla es schon beschrieben hat!!










Feedback nicht vergessen ! Gutes gelingen wünscht Chris

I didn't write this; a very complex macro did.

0110110001101001011001010110001001100101001000000110011101110010111111001101111101100101001000000110001101101000011100100110100101110011

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: