Office: Tabellenübergreifendes Makro

Hallo,

ich habe ein kleines Problem. Ich habe zwei Tabellenblätter auf denen jeweils sechs CommandButton angelegt sind. Über ein Drop-Down-Menü wähle ich die Programmsprache aus. Soweit so gut. Das ganze funktioniert auch einwandfrei... zumindest in den normalen Zellen.

Wenn ich nun versuche über VBA die Beschriftung der CommandButton zu ändern funktioniert dies lediglich in dem Tabellenblatt, in dem sich auch das Drop-Down-Menü befindet. Es soll sich aber auch die Beschriftung der CommandButton auf dem anderen Tabellenblatt ändern.

Ich hoffe das war jetzt halbwegs verständlich.

 

Hi Dr.Eck...

poste mal den Teil des Codes, der die Umbennung
für die erste Tabelle vornimmt. Optimal wäre, wenn
die Command- Buttons in jeder Tabelle
denselben Namen haben.

Gruß

 

Der Code für das Drop-Down-Menü lautet wie folgt:

Private Sub ComboBox1_Change()
CommandButton1.Caption = Worksheets("Angaben2").Range("C50")
CommandButton2.Caption = Worksheets("Angaben2").Range("C52")
CommandButton3.Caption = Worksheets("Angaben2").Range("C53")
CommandButton4.Caption = Worksheets("Angaben2").Range("C54")
CommandButton5.Caption = Worksheets("Angaben2").Range("C55")
CommandButton6.Caption = Worksheets("Angaben2").Range("C56")
End Sub

Hierzu muss ich sagen, dass die Beschriftung für die CommandButton aus Zellen herausgezogen werden.
Leider sind die Beschriftungen der sechs CommandButton in den unterschiedlichen Tabellenblättern nicht identisch.

 

Hi Dr.Eck...

anbei ein Beispiel für zwei Tabellen, müsstest Du
dann um die weiteren Zeilen ergänzen (also kopieren der
einzelnen Zeilen für jeden Button und ändern der Quellen
für die Captions)...

Code:

  Public Sub Test()
  
'   Tabelle1
    
    ThisWorkbook.Worksheets("Tabelle1").CommandButton1.Caption = _
    ThisWorkbook.Worksheets("Angaben1").Range("C50").Value
    
'   Tabelle2
    
    ThisWorkbook.Worksheets("Tabelle2").CommandButton1.Caption = _
    ThisWorkbook.Worksheets("Angaben2").Range("F50").Value
    
  End Sub

Gruß

 

Super, hat einwandfrei funktioniert. Habe aber den ganzen Befehl in eine Zeile geschrieben.
Mir fehlte einfach nur der Befehl ein bestimmtes Tabellenblatt anzusprechen.