Uhrzeit in Tabelle

Sub Zeitmakro() 'das funktioniert ThisWorkbook.Worksheets("Tabelle1").Range("R1") = Format(Time, "hh:mm:ss") ET = Now + TimeValue("00:00:01") ' wie bekomme ich hier + eine Stunde hin. ' also R3 = R1 + eine stunde ThisWorkbook.Worksheets("Tabelle1").Range("R3") = Format(Time, "hh:mm:ss") ETÄgy = Now + TimeValue("00:00:01") Application.OnTime ET, "Zeitmakro" Application.OnTime ETÄgy, "Zeitmakro" End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Guten Abend alle zusammen,
leider habe ich doch noch ein Problem mit den Uhrzeiten.
Anbei die Beispielmappe:

Die Datei https://www.herber.de/bbs/user/74020.xls wurde aus Datenschutzgründen gelöscht

Auf der Tabelle "Karte" funktioniert es mit den Uhrzeiten, aber sobald ich eine andere Tabelle öffne dann leider nicht mehr. Kommt immer Fehlermeldung und der Code wird Gelb markiert.
Wie kann ich den Code umschreiben, dass die Uhrzeiten nicht in der Tabelle "Karte" kommen, sondern in die entsprechende Tabelle.
( ThisWorkbook.Worksheets("Karte").Range("R3") = Format(Time, "hh:mm:ss") )
( ThisWorkbook.Worksheets("Karte").Range("R3") = [R1] + TimeSerial(1, 0, 0) )

Hier der Code in DieseArbeitsmappe
Option Explicit

Private Sub Workbook_Open()
Zeitmakro
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
Application.OnTime earliesttime:=ET, Procedure:="Zeitmakro", Schedule:=False
End Sub

der Makro Code:
Option Explicit
Public ET As Variant
Sub Zeitmakro()
'akutelle Zeit
ThisWorkbook.Worksheets("Karte").Range("R1") = Format(Time, "hh:mm:ss")
'Südamerika
ThisWorkbook.Worksheets("Karte").Range("R4") = Format(Time, "hh:mm:ss")
ET = Now + TimeValue("00:00:01")
'Ägypten
ThisWorkbook.Worksheets("Karte").Range("R3") = Format(Time, "hh:mm:ss")
ThisWorkbook.Worksheets("Karte").Range("R3") = [R1] + TimeSerial(1, 0, 0)
'Südafrika
ThisWorkbook.Worksheets("Karte").Range("R5") = Format(Time, "hh:mm:ss")
ThisWorkbook.Worksheets("Karte").Range("R5") = [R1] + TimeSerial(1, 0, 0)
'China
ThisWorkbook.Worksheets("Karte").Range("R7") = Format(Time, "hh:mm:ss")
ThisWorkbook.Worksheets("Karte").Range("R7") = [R1] + TimeSerial(7, 0, 0)
'Indien
ThisWorkbook.Worksheets("Karte").Range("R8") = Format(Time, "hh:mm:ss")
ThisWorkbook.Worksheets("Karte").Range("R8") = [R1] + TimeSerial(4, 30, 0)
Application.OnTime ET, "Zeitmakro"
End Sub
Lieben Gruß
Amina

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread