Hallo,

ich möchte eine LOP via Powerpoint pflegen.
Dazu möchte ich einen CommandButton einfügen, der bei jedem Klick die Farbe und Beschriftung ändert:
Standard: Farbe Rot "Punkt Offen"
1. Klick: Farbe Gelb "In Arbeit"
2. Klick: Farbe Grün "Erledigt"
3. Klick: Zurück zum Anfang

Ich würde das mit einer Zählschleife aufbauen:

Option Explicit
Dim count As Long
 
Private Sub Form_Load()
  count = 0
End Sub
Private Sub CommandButton1_Click()
count = count + 1
If count = 3 Then
CommandButton1.BackColor = vbRed
count = 0
If count = 2 Then
CommandButton1.BackColor = vbYellow
If count = 1 Then
CommandButton1.BackColor = vbGreen
End If
End Sub

1. Frage: Habt ihr Tipps für mich, was noch nicht richtig ist?
2. Frage: Ist es möglich, dass der CommandButton auch außerhalb des Präsentationsmodus funktioniert?

Vielen Dank für eure Hilfe!!