Thema Datum  Von Nutzer Rating
Antwort
06.03.2023 14:34:26 Andreas Mathys
NotSolved
06.03.2023 15:37:12 Flotter Feger
NotSolved
Rot Excel VBA Metronom
 06.03.2023 16:23:55 Gast68271
NotSolved
06.03.2023 17:05:04 Flotter Feger
NotSolved
06.03.2023 17:12:26 Gast75492
NotSolved
06.03.2023 17:54:58 Flotter Feger
Solved

Ansicht des Beitrags:
Von:
Gast68271		 Datum:
06.03.2023 16:23:55		 Views:
236		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA Metronom

Danke das klappt. Weiss ev jemand wie ich das laufende Metronom nun über einen Button stoppen könnte?

 

Sub metronom()
    
    Dim a As Integer
    Dim amax As Integer
    Dim i As Integer
    Dim x As Integer
    a = 1
    amax = 8
    x = 1
    
    Do Until i = 30 'Anzahl durchläufe

            If a = 1 Then
                Cells(1, amax).Interior.ColorIndex = xlNone
                Cells(1, a).Interior.ColorIndex = 6
            Else
                Cells(1, a - 1).Interior.ColorIndex = xlNone
                Cells(1, a).Interior.ColorIndex = 6
            End If
            
            a = a + 1
            If a > amax Then
             a = 1
            End If


        Sleep 500  'Sleep (Time in Mili Seconds)
        i = i + 1
     Loop

End Sub

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
06.03.2023 14:34:26 Andreas Mathys
NotSolved
06.03.2023 15:37:12 Flotter Feger
NotSolved
Rot Excel VBA Metronom
 06.03.2023 16:23:55 Gast68271
NotSolved
06.03.2023 17:05:04 Flotter Feger
NotSolved
06.03.2023 17:12:26 Gast75492
NotSolved
06.03.2023 17:54:58 Flotter Feger
Solved