Gruppe
Dialog
Bereich
CommandButton
Thema
Schaltflächen auf Schaltflächenklick tauschen
Problem
Über die untere Schaltfläche sollen die beiden oberen Schaltflächen getauscht werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Sub MessageA()
MsgBox "Aufruf von Button A"
End Sub
Sub messageB()
MsgBox "Aufruf von Button B"
End Sub
Sub ChangeButton()
With ActiveSheet
.Buttons(1).Visible = Not .Buttons(1).Visible
.Buttons(2).Visible = Not .Buttons(2).Visible
End With
End Sub