Thema Datum  Von Nutzer Rating
Antwort
Rot Excel VBA Metronom
 06.03.2023 14:34:26 Andreas Mathys
NotSolved
06.03.2023 15:37:12 Flotter Feger
NotSolved
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:
Andreas Mathys		 Datum:
06.03.2023 14:34:26		 Views:
317		 Rating:
     
Antwort:
  Ja
Thema:
Excel VBA Metronom

Hallo Zusammen,

 

ich wollte in Excel VBA eine Art Mertronom programmieren. jeden Beat soll eine Zeile markiert werden  von A1 zu H1, Dies geht auch bis zu 60bpm, also bis zu einem Intervall von einer Sekunde. werden die Abstände kleiner also zB 120BPM (0.5 Sekunden) oder noch kleiner funktioniert das nicht, weil ich mit der Application. wait keine Werte kleiner einer Sekunde einstellen kann. Ev weiss hier jemand eine Lösung. 

Anbei mein Anfänger Code:

Sub test() Dim a As Integer Dim amax As Integer Dim i As Integer a = 1 amax = 8 For i = 1 To 9 '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 Application.Wait (Now + TimeValue("0:00:01")) Next i 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
Rot Excel VBA Metronom
 06.03.2023 14:34:26 Andreas Mathys
NotSolved
06.03.2023 15:37:12 Flotter Feger
NotSolved
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