VBA Datum nicht aktualisieren
#1
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.

.xlsm   Beispiel.xlsm (Größe: 17,46 KB / Downloads: 3)
Da ich ein absoluter Excel Anfänger bin, hoffe ich hier auf eure Hilfe Angel

Viele Grüße und Danke im Voraus Blush
Top
#2
Hi,

das Makro kannst Du verbrennen, weil das nie aktiv wird, außer Du änderst etwas in einer der Zellen, und wenn es nicht C1 ist, dann endet es sofort wieder!
Date entspricht übrigens heute()
Außerdem kann ich nicht verstehen, was Du willst. Wo soll da ein Datum hingeschrieben werden?

Außerdem reicht als Formel das:


Code:
=wenn(D1;C2;"")
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Top
#3
Hallo Opa Edgar,

danke schonmal für die prompte Antwort und entschuldige, dass ich mich scheinbar so unpräzise ausgedrückt habe.
Das aktuelle Datum soll immer in die Zelle eingefügt werden, in der sich das Kontrollkästchen befindet. Nachdem es eingefügt wurde soll es aber nicht mehr aktualisiert werden, bis ich das Kästchen erneut deaktiviere und aktiviere.

Mit Makros kenne ich mich leider auch überhaupt nicht aus. Habe nur leider festgestellt, dass es ohne Makro nicht umsetzbar ist :s
Top
#4
Hi,

da muß hinter jedes Kästchen ein Makro. Ich habe mal für das erste Kästchen eins geschrieben.


.xlsm   Kästchen.xlsm (Größe: 20,04 KB / Downloads: 3)
Gruß

Edgar

Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
[-] Folgende(r) 1 Nutzer sagt Danke an BoskoBiati für diesen Beitrag:
  • AGad
Top
#5
Vielen Dank, Opa Edgar. Sollte jetzt klappen Blush
Top


Gehe zu:


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