Datum in Zelle schreiben, wenn Zellwert ändert

Question

Hallo Forum,

ich habe hier eine umfangreiche Nummernverwaltung in Excel, die von mehreren Personen bearbeitet wird. Folgendes möchte ich per VBA lösen:
Wenn in Spalte B ein anderer Wert als 0 eingetragen wird, soll automatisch in Spalte P das Datum dieses Eintrags geschrieben werden.

Wie müsste dieser Code aussehen?

Vielen Dank für Eure Hilfe

Answer 1

Hallo Helmut,

wird nicht besser, die Fehlermeldung bleibt.
Zudem kommt beim Löschen die Meldung "Fehler beim Kompilieren: Erwartet: Ausdruck"

Gruss
Paul

Answer 2

Hallo,

und so?

Sub Workbook_BeforeClose()
For i = 1 to Range("A65536").End(xlUp)
IF Range( „B“ & i).Value <> 0 and Range( „P“ & i).Value = 0 Then Range( „P“ & i).Value = Date
IF Range( „B“ & i).Value = 0 and Range( „P“ & i).Value <> 0 Then Range( „P“ & i).Value = 0
Next i
End Sub

da zweite IF in den beiden Zeilen ist zuviel

Gruß

Helmut

Answer 3

Hallo Helmut,

nach wie vor die gleiche Fehlermeldung; zwar werden die beiden Zeilen nun nicht mehr rot, aber die Fehlermeldung bleibt......

Vielen Dank aber trotzdem für Deine Bemühungen!

Gruss
Paul