Office: (Office 2016) aktuelle Uhrzeit einmalig eintragen das nicht erneuert wird beim erneuten berechnen

Hallo hat jemand eine Idee wie ich die Formel ändern muss?
Wenn in Zelle BF4 ein Wert eingetragen wird soll in Zelle BG4 die aktuelle Uhrzeit eingetragen werden die sich nicht mehr ändern darf. (das soll sich auf alle Zellen in dem Blat BG4 bis BG84 beziehen)
ich benutze folgende Formel
=WENN(BF4<>"";JETZT()+ZEIT(0;0;0);"")
dies funktioniert auch, nur das bei neuberechnen immer die Uhrzeit abgeändert wird
wenn einmal eine Zeit in Zelle BG4 steht darf diese nicht mehr abgeändert werden, bei neu Berechnung.

 

per VBA
http://hajo-excel.de/gepackt/vba/datum_bei_aenderung.zip

 

Erst einmal ganz herzlichen Dank. Werde das einmal testen und ggf noch einmal melden

 

Hi,

versuche es mal mit dieser Formel: =WENN(BF4="";"";WENN(BG4="";JETZT();BG4))

Beachte: du musst unter den Excel-Optionen -> Formeln -> Iterative Berechnung aktivieren.

---

 

Hallo Karinb,

sehe ich es falsch das Jetzt(), jeden Tag aktualisiert wird und das Datum nicht fest eingetragen wird, wie gefordert.

Gruß Hajo

 

Hi Hajo,

ja das siehst du falsch: sobald die Uhrzeit einmal eingetragen wurde bleibt sie, denn die Formel besagt, dass JETZT() nur dann ausgeführt wird, wenn BF4 leer ist. Da aber nun BF4 belegt ist, kommt JETZT() nicht mehr zur Ausführung.

---

 

Hallo Hajo, dass funktioniert perfekt. Als Anfäner habe ich jedoch noch zwei Fragen. Ich würde gerne aus deiner Datei das VBA aus Tablle 5 nutzen wollen. Ich habe eine Datei mit 30 Arbeitsblättern. Dieses soll dann in jedem Arbeitsblatt funktionieren.
1. Wo müsste ich das einfügen, damit das in allen Tabellenblättern Tag00 bis Tag31 dieser Datei funktioniert?
als neues Modul im VBA?
in jede Tabelle im VBA?
oder in diese Arbeitsmappe im VBA?
wie wird das eingefügt, wenn bereits ein anderes MAkro dort hinterlegt ist. Beispiel sihe meine Datei

 

Hi,

was willst du uns mit Beitrag #7 sagen, in dem du unser beider Beiträge ohne Kommentar deinerseits zitierst?

---

 

starte den VBA Editor (Alt+F11), Bild sollte zweigeteilt sein ansonsten Strg+R, Doppelklick auf Deine Datei, Doppelklick auf DieseArbeitsmappe, Code ins rechte Fenster kopieren, VBA Editor schließen.
Das Makro wird automatisch gestartet.
Dies gilt für alle Ereignisse unter DieseArvbeitsmappe.
Der Code wirkt in der gesamten Datei.

Kopiere den Code vor Deinen Code.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Gruß Hajo

 

Ich habe die beiden Aktionen zusammen gefügt. Jedoch wird die Uhrzeit dann nicht eingefügt. Habe ich da beim Kopieren/zusammenfügen einen Fehler gemacht? Jedes einzelne für sich funktioniert jedoch.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Sh.Name Like "Tag*" Then
Dim result
Dim sName As String
If Not Intersect(Sh.Range("BD1:BF1"), Target) Is Nothing Then
Application.EnableEvents = False
If Sh.Range("BD1") <> "" Then
With Worksheets("Akkreditierung")
result = Application.Match(Target.Value, Intersect(.UsedRange, .Columns(4)), 0)
If Not IsError(result) Then
sName = .Range("A" & result).Text
result = Application.Match(sName, Intersect(Sh.UsedRange, Sh.Columns(2)), 0)
If Not IsError(result) Then

If Sh.Range("BF" & result) = "" Then
Sh.Range("BF" & result) = Target.Text
MsgBox "Akkreditierng für " & sName & " in " & Sh.Name & " eingetragen."
Else

If Sh.Range("BF" & result) = Target.Text Then
If vbYes = MsgBox("Nummer bereits eingetragen - Weiter?", vbCritical & vbYesNo, "Warnung") Then
Sh.Range("BF" & result) = Target.Text
Else
Application.EnableEvents = True
Exit Sub
End If
Else
MsgBox "Anderer Wert in Zeile '" & result & "' vorhanden", vbInformation
End If

End If

Else
MsgBox sName & " nicht in " & Sh.Name & " gefunden"
End If
Else
MsgBox "Name nicht in Akkreditierung gefunden"
End If
End With
End If
Application.EnableEvents = True
End If

End If
Ende:
Dim RaBereich As Range ' Variable fü überwachten Bereich
Dim RaZelle As Range ' Variable für Zelle die zur Zeit bearbeitet wird
Set RaBereich = Range("BF4:BF84") ' Bereich der Wirksamkeit
'ActiveSheet.Unprotect "Passwort"
' prüfen ob veränderte Zelle im überwachten Bereich
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.ScreenUpdating = False ' Bildschirm abschalten
Application.EnableEvents = False ' Reaktion auf Eingabe abschalten
For Each RaZelle In RaBereich ' Schleife über alle veränderten Zellen im überwachten Bereich
If RaZelle.Offset(0, 1) = "" _
And RaZelle <> "" Then
RaZelle.Offset(0, 1) = Time ' Datum eintragen
' Zahlenformat
RaZelle.Offset(0, 1).NumberFormat = "hh:mm"
End If
Next RaZelle
'ActiveSheet.protect "Passwort"
Application.ScreenUpdating = True ' Bildschirm einschalten
Application.EnableEvents = True ' Reaktion auf Eingabe eindschalten
End If
Set RaBereich = Nothing ' Variable leeren
End Sub

 

Weshalb betreibst du einen solch großen Aufwand für etwas, das man mit der Formel viel einfacher lösen kann? Da dich diese Lösung aber offensichtlich nicht interessiert, bin ich dann raus.

---

 

Ich bin raus.
Siehe hier
Coyriht

Die Formellösung habe ich vor 2 Tagen erstellt und es wurde das aktuele Datum eingetragen.
Als ich Heute eine Zelle verändert habe wurde das Datum geändert.

<a href="Homeseite - Hajo's Excelseiten" target="_blank" title="Hajo&#039;s Excelseiten">Gruß Hajo</a>

 

Dann hast du wohl etwas falsch gemacht - möglicherweise den Zellinhalt gelöscht und in dieselbe Zelle erneut etwas eingetragen? Teste mal meine Mappe - ist übrigens (wie angefragt) Uhrzeit und nicht Datum, obwohl dies dasselb Prinzip ist.

---