Syntax zum Ansprechen eines CmdButtons
Jörg-HH
möchte d Caption eines CmdBt ändern, wenn in einer Zelle was eingestellt wird. Dachte immer, CmdBt gehören zu den Controls, aber irgendwie geht das nicht.
Weiter oben steht:
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...
und dann
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...
Ich bekomme immer bemeckert "Meth od Datenobj nicht gefund" und Controls wird markiert. Was mache ich denn da falsch?Grüße - Jörg