' ***********************
' * Modul:  Tabelle1  *
' ***********************
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$6" Then 
        If Target = 1 Then
            ActiveSheet.Shapes("Schaltfläche 1").OLEFormat.Object.Caption = "1. Beschriftung"
        ElseIf Target = 2 Then
            ActiveSheet.Shapes("Schaltfläche 1").OLEFormat.Object.Caption = "2. Beschriftung"
        Else
            ActiveSheet.Shapes("Schaltfläche 1").OLEFormat.Object.Caption = ""
        End If
    End if
End Sub

Datei schaltflaeche_formular_beschriften