Makro auf allen Blättern starten

[Timo B]

Guten Tag,

ich habe eine Arbeitsmappe mit 5 identischen Seiten. Auf der ersten Seite habe ich folgende Makro, die mir die aktuelle Systemzeit anzeigen soll:

Sub Zeitmakro()
ThisWorkbook.Worksheets("Überwachung Eingabe Blatt 1").Range("T217") = Format(Now, "hh:mm:ss")
ET = Now + TimeValue("00:00:10")
Application.OnTime ET, "Zeitmakro"
End Sub


Diese Makro funktioniert auch wunderbar, und wird beim Start der Arbeitsmappe direkt ausgeführt. Nun habe ich für die anderen 4 Seiten dieselbe Makro angelegt... sieht dann bei Seite 2 so aus:

Sub ZeitmakroBlatt2()
ThisWorkbook.Worksheets("Überwachung Eingabe Blatt 2").Range("T217") = Format(Now, "hh:mm:ss")
ET = Now + TimeValue("00:00:10")
Application.OnTime ET, "ZeitmakroBlatt2"
End Sub


Diese wird aber leider beim Start nicht automatisch gestartet. Wo liegt der Fehler?

[Kuwer]

Hallo Timo,

Diese wird aber leider beim Start nicht automatisch gestartet. Wo liegt der Fehler?

ich vermute mal, dass nur das erste Makro im Workbook_Open-Makro gestartet wird. Die 4 weiteren müssten dort ebenfalls eingetragen werden.

Gruß Uwe

[RPP63]

Moin!
1. Ich habe in meiner Taskleiste die Systemuhr, dafür brauche ich kein Excel ausbremsendes Makro.
2. Nimm in DieseArbeitsmappe folgendes Ereignis und kopiere den Prozedurrumpf dort hinein:

Code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)

Beachte, dass die vorgegebene Variable Sh das jeweils aktive Blatt repräsentiert!
Also nicht:
ThisWorkbook.Worksheets("Überwachung Eingabe Blatt 1").Range("T217") = Format(Now, "hh:mm:ss")
sondern:
Sh.Range("T217") = Format(Now, "hh:mm:ss")

Gruß Ralf

[Timo B]

Scheinbar liegt dort tatsächlich der Fehler.

Dort steht:

Private Sub Workbook_Open()
    Zeitmakro
End Sub

ich bin leider nun schon etwas überfordert. Wie nehme ich dort die restlichen 4 Makros drin auf?

[Timo B]

Hallo Timo,


ich vermute mal, dass nur das erste Makro im Workbook_Open-Makro gestartet wird. Die 4 weiteren müssten dort ebenfalls eingetragen werden.

Gruß Uwe

Wie nehme ich die anderen 4 Makros darin auf?

[Kuwer]

ich bin leider nun schon etwas überfordert. Wie nehme ich dort die restlichen 4 Makros drin auf?

Private Sub Workbook_Open()
   Zeitmakro
   ZeitmakroBlatt2
End Sub

Gruß Uwe

[RPP63]

*NochmalEinmischend*
Steht die "Uhr" in jedem Blatt in der gleichen Zelle?
Dann solltest Du meinen Tipp beherzigen.
(Wenn es Ausnahmen gibt, auch ;))
Dann per Select Case Auswahl der Sheets.

Wenn Du nicht klar kommst, lade die Datei hoch.

Gruß Ralf