Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Schaltflächen auf Schaltflächenklick tauschen

Gruppe

CommandButton

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