title image


Smiley Re: Makro abbrechen
hiho



denke mal nicht



aber sicherheitshalber

ohne Kompi dafür mit Schaltfläche



(ist zwar wie mit Kanonen auf Spatzen schiesen :-))









Dim StopMe As Boolean

Private Const COMMANDBAR_NAME As String = "Worksheet Menu Bar"

Private Sub pCB()

    Dim myCommandBar As CommandBar

    Dim myCommandBarButton As CommandBarButton

    Call pDelB(True)

    Set myCommandBar = Application.CommandBars(COMMANDBAR_NAME)

    Set myCommandBarButton = myCommandBar.Controls.Add(Type:=msoControlButton, _

    Before:=myCommandBar.Controls.Count + 1, Temporary:=True)

    With myCommandBarButton

        .Caption = "Stop the Makro"

        .FaceId = 285 'ändere das

        .OnAction = "stop_the_makro"

        .Style = msoButtonIconAndCaption

        .TooltipText = "Berechnung starten"

        .Tag = "Kal"

    End With

    Set myCommandBar = Nothing

    Set myCommandBarButton = Nothing

End Sub

Public Sub Dein_Makro()



Dim Wörter As Long

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

Call pCB

Call pDelB

StopMe = False

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



For Wörter = 1 To 100000 Step 1

ActiveCell.FormulaR1C1 = "1"

    'das ist für dich relevant

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

    DoEvents



    If StopMe Then Exit Sub

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

Next

 Call pDelB(, False)

End Sub



Private Sub stop_the_makro()

StopMe = True

 Call pDelB(, False)

End Sub



Private Sub pDelB(Optional ByVal bolDelete As Boolean = False, _

    Optional ByVal bolHide As Boolean = True)

    Dim myCommandBarButton As CommandBarButton

    Set myCommandBarButton = Application.CommandBars(COMMANDBAR_NAME) _

    .FindControl(Tag:="Kal")

    If Not myCommandBarButton Is Nothing Then

        With myCommandBarButton

        If bolDelete Then .Delete Else .Visible = bolHide

        End With

        Set myCommandBarButton = Nothing

    End If

End Sub











kannste das ja mal testen
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: