Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Datum bei Bedingung
#1
Hallo zusammen,

klitzekleines Problem.
Ich habe zwar das datum =heute() mit Bedingung aber wie kann ich verhindern das wenn ich die Tabelle am nächsten Tag öffne das sich dann wieder das datum ändert denn das Datum soll ja bestehen bleiben zu dem jeweiligen ereigis
.xlsx   datum_test.xlsx (Größe: 8,85 KB / Downloads: 4)

muss ich da noch mit einer zusätzlichen bedingung arbeiten oder wie könnte man das lösen
Antworten Top
#2
Moin,

schau dich mal hier https://www.clever-excel-forum.de/Thread...eglichkeit und hier https://www.clever-excel-forum.de/Thread...e-stempeln um.
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
[-] Folgende(r) 1 Nutzer sagt Danke an WillWissen für diesen Beitrag:
  • thrustssc
Antworten Top
#3
Hab da jetzt ne Lösung gefunden für die die es auch interessiert

Private Sub Worksheet_Change(ByVal Target As Range)


    If Intersect(Target, Range("i3:i100000")) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
    If Target = "" Then
        Target.Offset(0, -5).ClearContents    ' gibt an wieviel spalten vom Bereich nach links das datum eingetragen werden soll
        Else:
        Target.Offset(0, -5) = CDate(Format(Now, "dd.mm.yyyy"))  ' Datumsformat
    End If
End Sub
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste