02.03.2018, 12:04
Hallo zusammen,
ich habe bereits viele Beiträge durchforstet, die richtige Lösung konnte ich leider noch nicht finden. Ich hoffe, hier kann mir jemand weiter helfen.
Folgender Sachverhalt:
Ich habe eine Tabelle (z.B. A1 bis B2), bei der in jeder Zelle ein Kontrollkästchen eingefügt ist. Die Kontrollkästchen sind verknüpft mit den Zellen D1 bis E2 (WAHR / FALSCH). In Zelle C1 wird mir das aktuelle Datum mit der Funktion "=heute()" angezeigt. Mein Ziel ist es, bei aktivieren eines Kontrollkästchens das aktuelle Datum in die entsprechende Zelle zu schreiben. Dieses Datum soll erst wieder aktualisiert / überschrieben werden, sobald ich das Kontrollkästchen erneut aktiviere. Das klappt dann mit der Funktion "=heute()" ja nicht mehr, da sich das Datum laufend aktualisiert. Also habe ich mir aus einem Forum folgenden Code gemopst:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$C$1" Then Exit Sub
Range("$C$2").Value = Date
End Sub
Somit wird mir in Zelle C2 das Datum ausgeworfen. Dieses rufe ich beispielsweise in Zelle A1 mit folgender Funktion ab: "=WENN(D1=WAHR;C2;"")"
Leider aktualisiert sich das Datum trotzdem.
Zur Verdeutlichung füge ich euch die Excel-Datei bei.
Beispiel.xlsm (Größe: 17,46 KB / Downloads: 3)
Da ich ein absoluter Excel Anfänger bin, hoffe ich hier auf eure Hilfe
Viele Grüße und Danke im Voraus
ich habe bereits viele Beiträge durchforstet, die richtige Lösung konnte ich leider noch nicht finden. Ich hoffe, hier kann mir jemand weiter helfen.
Folgender Sachverhalt:
Ich habe eine Tabelle (z.B. A1 bis B2), bei der in jeder Zelle ein Kontrollkästchen eingefügt ist. Die Kontrollkästchen sind verknüpft mit den Zellen D1 bis E2 (WAHR / FALSCH). In Zelle C1 wird mir das aktuelle Datum mit der Funktion "=heute()" angezeigt. Mein Ziel ist es, bei aktivieren eines Kontrollkästchens das aktuelle Datum in die entsprechende Zelle zu schreiben. Dieses Datum soll erst wieder aktualisiert / überschrieben werden, sobald ich das Kontrollkästchen erneut aktiviere. Das klappt dann mit der Funktion "=heute()" ja nicht mehr, da sich das Datum laufend aktualisiert. Also habe ich mir aus einem Forum folgenden Code gemopst:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address <> "$C$1" Then Exit Sub
Range("$C$2").Value = Date
End Sub
Somit wird mir in Zelle C2 das Datum ausgeworfen. Dieses rufe ich beispielsweise in Zelle A1 mit folgender Funktion ab: "=WENN(D1=WAHR;C2;"")"
Leider aktualisiert sich das Datum trotzdem.
Zur Verdeutlichung füge ich euch die Excel-Datei bei.
Beispiel.xlsm (Größe: 17,46 KB / Downloads: 3)
Da ich ein absoluter Excel Anfänger bin, hoffe ich hier auf eure Hilfe
Viele Grüße und Danke im Voraus