AW: Schaltflächen beschriften
20.02.2004 11:03:34
Alex K.
Hallo Ralf,
zuerst mal ein eingenes Modul anlegen und dort den Code reinschreiben. Ist besser, da der Code ja für mehr als ein Tabellenblatt gelten soll. Also im VBA Editor über Menü "Einfügen -> Modul" das Modul1 anlegen. Dort kopierst du dann den folgenden Code:
Public Sub SetControlCaption()
Dim sh As Worksheet
On Error Resume Next
For Each sh In ActiveWorkbook.Worksheets
'dieser Code geht davon aus, dass in JEDEM Tabellenblatt in A2 der Text steht
sh.Shapes("Schaltfläche 59").DrawingObject.Caption = "Tipp " & sh.Range("A2").Value & _
" drucken (1 mal)"
'alternativ der Code, wenn der Text von A2 aus einem BESTIMMTEN Blatt genommen werden soll
'sh.Shapes("Schaltfläche 59").DrawingObject.Caption = "Tipp " & _
' Worksheets("GP 1").Range("A2").Value & " drucken (1 mal)"
'die Schaltfläche 59 wurde nicht gefunden, deshalb einfach weiter
If Err.Number <> 0 Then
Err.Clear
End If
'dieser Code geht davon aus, dass in JEDEM Tabellenblatt in A2 der Text steht
sh.Shapes("Schaltfläche 61").DrawingObject.Caption = "Tipp " & sh.Range("A2").Value & _
" drucken (4 mal)"
If Err.Number <> 0 Then
Err.Clear
End If
Next sh
End Sub
Bitte beachte die Voraussetzungen:
1) "Schaltfläche 59" und "Schaltfläche 61" müssen vorhanden sein.
2) Auf JEDEM Tabellenblatt muss in A2 ein Text für die Schaltfläche stehen
Falls es nicht klappt, dann bitte lade die Datei mal hoch. Ansonsten suchen wir uns zu Tode. Meine Erfahrung zeigt, dass es oft Kleinigkeiten sind, welche ich sofort finde, wenn ich die Datei vorliegen habe.
Danke