Zeitstempel in Excel 2016

[Monkee]

Hallo Experten,
habe folgendes Makro im Internet gefunden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C1")) Is Nothing Then
    If IsEmpty(Target) = False Then _
        Target.Offset(0, 1).Value = Format(Now, "dd.mm.yyyy")
       
End If
End Sub

In C1 steht die Formel = A1
Wenn ich jetzt in A1 einen anderen Wert eingebe müsste sich doch D1 ein Datum eintragen......oder
Wenn ich C1 per Hand ändere wird in D1 das heutige Datum eingetragen.
Ich brauche das um später das Datum mit einer anderen Zelle(Dateiname) zu verbinden und als neue Datei zu speichern.
Wo ist da mein Denkfehlerß
Gruß Monkee

[Crazy Tom]

Hallo

das Change-Ereignis reagiert in dem Code NUR auf manuelle Änderung in Zelle C1
entweder du nimmst in dem Fall das Calculate-Ereignis oder fragst Zelle A1 ab

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
   If IsEmpty(Target) = False Then _
       Target.Offset(0, 3).Value = Format(Now, "dd.mm.yyyy")
     
End If
End Sub

MfG Tom

[Monkee]

das Change-Ereignis reagiert in dem Code NUR auf manuelle Änderung in Zelle C1
entweder du nimmst in dem Fall das Calculate-Ereignis oder fragst Zelle A1 ab

Und wie sieht das dann aus, auf A1 kann ich nicht gehen da das eine Rechnungsnummer wird, die beim drucken erhöht wird
Gruß Monkee

[WillWissen]

Hi,

wie wär's, wenn du mal genaue Angaben machen würdest, wo was eingetragen und wo was berechnet werden soll. Und zwar so, wie es dann in deiner Originaltabelle tatsächlich aussehen soll. Alles andere ist doch sonst ein heiteres Rätselraten.

[Monkee]

Alles andere ist doch sonst ein heiteres Rätselraten.

Melde mich später wieder, bin im Krankenhaus
Gruß Monkee

[schauan]

Hallo Monkee,

klar kannst Du auf A1 reagieren. Du hast ja am Anfang geschrieben, dass Du in A1 Deine Eingabe machst.
Eingetragen wird dann im letzten codebeispiel 3 Spalten weiter rechts, also in D1. Das ist die Stelle mit dem Target(0, 3)

Wenn beim Drucken in der Zelle was verändert wird, dann geschieht das wohl mit einem Makro. In dem Makro kannst Du mit
Application.EnableEvents = False (oder True)
steuern, ob Excel noch Ereignismakros wie das Change ausführen soll oder nicht.

[Fennek]

Hier eine Variante ohne intersect:

Private sub worksheet_change(byval target)
Application.enableevents = false
Target.offset(0,1).value = date
Application.enableevents = true
End sub

[WillWissen]

Hi Fennek

wollte mal dein Makro ausprobieren - hier mein Ergebnis:

[
Bild bitte so als Datei hochladen: Klick mich!
]

[Fennek]

Hallo Willwissen,

Der Code muss im Bereich der Worksheet-events eingegeben werden, der Name der sub wird automatisch erstellt. Deshalb ist im Bespiel das "Target as range" in der ersten Zeile verkürzt.

Wenn die Zeilen "sub" und "end sub" automatisch generiert werden, sollte es klappen.

[Rabe]

Hi Günter,

wollte mal dein Makro ausprobieren - hier mein Ergebnis:

Da fehlt die Variablendeklaration von target:

Option Explicit

Private Sub worksheet_change(ByVal target As Range)
  Application.EnableEvents = False
  target.Offset(0, 1).Value = Date
  Application.EnableEvents = True
  
End Sub