|
Option Explicit
Dim iButtonNumber As Integer
Private Sub CommandButton1_Click()
'In Variable ie Zahl 1 schreiben, wird für das Makro "Button" benötigt, damit durch das _
Makro variabel der richtige Button angesprochen werden kann
iButtonNumber = 1
'Makro "Button" starten
Call Button
End Sub
Private Sub CommandButton2_Click()
'In Variable ie Zahl 2 schreiben, wird für das Makro "Button" benötigt, damit durch das _
Makro variabel der richtige Button angesprochen werden kann
iButtonNumber = 2
'Makro "Button" starten
Call Button
End Sub
Private Sub CommandButton3_Click()
'In Variable ie Zahl 3 schreiben, wird für das Makro "Button" benötigt, damit durch das _
Makro variabel der richtige Button angesprochen werden kann
iButtonNumber = 3
'Makro "Button" starten
Call Button
End Sub
Private Sub Button()
With ActiveSheet.OLEObjects("CommandButton" & iButtonNumber).Object
'Wenn die Schaltfläche die Farbe "grün" hat, dann...
If .BackColor = &HC000& Then
'...Schaltflächenfarbe in rot ändern...
.BackColor = &HFF&
'...den Schaltflächentext in "rot" ändern...
.Caption = "rot"
'...eine Meldung am Bildschirm ausgeben (kann gelöscht werden, nur für das Beispiel)
MsgBox "CommandButton" & iButtonNumber & " hat die Farbe rot angenommen.", _
vbInformation, "Farbe" & "CommandButton" & iButtonNumber & "..."
'ansonsten, also wenn die Schaltflächenfarbe rot ist...
Else
'...Schaltflächenfarbe in grün ändern...
.BackColor = &HC000&
'...den Schaltflächentext in "grün" ändern...
.Caption = "grün"
'...eine Meldung am Bildschirm ausgeben (kann gelöscht werden,nur für das Beispiel)
MsgBox "CommandButton" & iButtonNumber & " hat die Farbe grün angenommen.", _
vbInformation, "Farbe" & "CommandButton" & iButtonNumber & "..."
End If
End With
End Sub
|