Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Syntax zum Ansprechen eines CmdButtons | Herbers Excel-Forum


Betrifft: Syntax zum Ansprechen eines CmdButtons von: Jörg-HH
Geschrieben am: 12.12.2009 12:55:28

Hallo zusammen

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

  

Betrifft: AW: Syntax: OLEObjects("CommandButton1"). von: hary
Geschrieben am: 12.12.2009 13:07:44

Hallo Jörg
Wenn Button auf der Tab. dann sprichst Du ihn so an.

Worksheets("Tabelle1").OLEObjects("CommandButton1").Object.Caption = "hallo"

hilft's
gruss hary


  

Betrifft: ja, klappt - danke, Hary! oT von: Jörg-HH
Geschrieben am: 12.12.2009 13:38:03




Beiträge aus den Excel-Beispielen zum Thema "Syntax zum Ansprechen eines CmdButtons"