HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Forumbeitrag
Excel-Version des Fragestellers:
365 privat
Erfahrungslevel des Fragestellers:
VBA nur mit Recorder
Oppawinni
12.04.2024 13:04:25
AW: Uhrzeit einfügen
ach da gibt es wohl schon einen Folge-Thread, aber vielleicht willst du das auch mal so probieren:
Du schreibst in ein allgemeines Modul
Option Explicit


Dim gTimeSet As Date
Dim gOldSwitch As Double

Public Function myDependendTime(switch As Double) As Date

If gOldSwitch <> switch Then
gOldSwitch = switch
If switch = 1 Then
gTimeSet = Time
End If
End If

myDependendTime = gTimeSet

End Function


und setzt dann in eine Zelle die Formel
=myDependendTime(BA3)
dann bekommt die entsprechende Zelle immer dann die aktuelle Zeit, wenn BA3 auf den Wert 1 wechselt.
Du kannst die Funktion aber sinnvoll nur bezogen auf EINE bestimmte Zelle verwenden.
also nicht irgendwo noch =myDependendTime(BA4) oder ähnliches, weil ja immer gegen die gleichen globalen Variablen geprüft wird.
Keine Ahnung ob dir die (böse) Krücke helfen könnte.
Als Antwort auf diesen Beitrag
Holger
11.04.2024 12:30:15
AW: Uhrzeit einfügen
Hallo MCA

Vielen Dank für deine Hilfe, mit der Uhrzeit klappt das jetzt.
Aber, wenn man in N8 etwas eingibst, damit in BA3 eine 1 drin steht, dann startet sich das Blatt sofort neu.
Kann ich mir nicht erklären, dachte viellicht etwas wegen Blattschutz, aber auch nicht.

https://www.herber.de/bbs/user/168646.xlsm
pw: meins

Gruß
Folgenachrichten
Antwort auf Beitrag erstellen

Beispieldatei hochladen