Syntax zum Ansprechen eines CmdButtons

Option Explicit
Dim i As Variant
Const KONFIGSEITE = "config"
Const Sprachumschaltg = "B1"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim wsConfig As Worksheet     'Konfigurationsseite
Dim wsTarget As Worksheet     'Sheet, auf dem sich geänderte Zelle (Target) befindet
Set wsConfig = Target.Worksheet.Parent.Worksheets(KONFIGSEITE)
Set wsTarget = Target.Worksheet
'SPRACHUMSCHALTUNG
If wsTarget.Name & "!" & Target.Address = wsConfig.Range("B2").Value Then 'wenn Sprachumschaltg
Call fkt_SPRACHUMSCHALTUNG(Target, wsConfig, wsTarget)
End If
usw...

Private Function fkt_SPRACHUMSCHALTUNG(ByRef Target As Range, ByRef wsConfig As Worksheet,  _
ByRef wsTarget As Worksheet)
With Target.Worksheet
If wsTarget.Range(wsConfig.Range("B2").Value).Value = wsTarget.Range("sprSprache") Then
wsTarget.Controls.cmdDruckFormularBereich.Caption = wsTarget.Range("sprFormDruck").Value
End If
usw...