On/Off Button für mehrere Tabellenblätter

hallihallo alle,
ich habe mir einen off/on button gebastelt mit dem ich den schreibschutz an oder ausschalte (der schreibschutzcode usw. fehlt noch aber egal). Jetzt habe ich diesen button auf jedem tabellenblatt. wie muss ich denn den code umschreiben damit ich den code nicht für jedes tabellenblatt kopieren muss? aktuell funktioniert dieser nur auf der ersten seite:

Sub ON_BUTTON()
Worksheets(1).Shapes("Button").Select
With Selection
.ShapeRange.IncrementLeft 30                                'Position / Hier anpassen!
.ShapeRange.TextFrame2.TextRange.Characters.Text = "ON"     'Button Text / Hier  _
anpassen!
.ShapeRange.Fill.ForeColor.RGB = RGB(0, 153, 0)             'Farbe / Hier anpassen!
End With
Worksheets(1).Shapes("Button").OnAction = "OFF_BUTTON"
Worksheets(1).Range("A1").Activate
End Sub

Grüße Marco

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub ON_BUTTON() Dim wks As Worksheet For Each wks In Worksheets With wks.Shapes("Button") .IncrementLeft 30 'Position / Hier anpassen! .TextFrame.Characters.Text = "ON" 'Button Text / Hier anpassen! .Fill.ForeColor.RGB = RGB(0, 153, 0) 'Farbe / Hier anpassen! .OnAction = "OFF_BUTTON" End With Next End Sub

Sub Datum() Dim wks As Worksheet For Each wks In Worksheets With wks.Shapes("Rechteck 4") .OLEFormat.Object.Text = Format(Date, "dddd, dd/mm.yyyy") 'Datum-Format / Hier _ anpassen! End With End Sub

es fehlt
Next wks
nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.
Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.
Ein Nachbau sieht meist anders aus als das Original. Darum sollte das Original verlinkt werden.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten anonymisieren bzw. pseudonymisieren.

Ich gebe keinen Dank für eine Rückmeldung, da ich durch solche Beiträge nicht meine Beitragszahl erhöhen muss.
Also ich schreibe keine Beiträge mit dem Betreff "Gerne u. Danke für die Rückmeldung. o.w.T."
Rückmeldung ist ja in der Heutigen Zeit nicht üblich und die wenigen die eine Rückmeldung geben,
mögen mir das verzeihen, das kein Danke für eine Rückmeldung kommt.
Beiträge von Werner, Luc, robert und folgende lese ich nicht.

Beliebteste Forumthreads (12 Monate)

On/Off Button für mehrere Tabellenblätter

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

On/Off Button für mehrere Tabellenblätter

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread