Gruppe
Dialog
Problem
Über die untere Schaltfläche sollen die beiden oberen Schaltflächen getauscht werden.
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