Excel Datum einfügen?

Hallo,

ich bin gerade am erstellen einer Checkliste. Diese besitzt auch Kontrollkästchen.
Wenn etwas erledigt ist und ich somit das Kontrollkästchen anklicke, soll das Datum automatisch in die Zelle rechts davon eingetragen wird.

Das Datum soll dann aber statisch gespeichert werden, also sich nicht aktualisieren, wenn ich das worksheet schließe und wieder öffne.

Kann mir dabei wer helfen?

Answer 1

[KevinHP]

Ich kenne nur die Variante, die Zelle nach Füllen des Datums auf den eindeutigen Wert festzulegen.

Wenn die Zelle als Ergebnis "=HEUTE()" beinhaltet und dadurch das Datum sichtbar wird, kann man mit F9 (vorher in die Zelle klicken, um sie zu bearbeiten) die automatische Funktion deaktivieren. Das geht natürlich nur, nachdem das Datum eingetragen wurde, also wahrscheinlich nicht die Lösung, die gewünscht ist.

Woher ich das weiß: eigene Erfahrung – Ich interessiere mich schon sehr lange für Computer

Comments

[areaDELme]

" STRG + : "

Answer 2

[areaDELme]

wüsste nicht wie man das ohne vba machen kann. -> ist aber ein 3-6 zeiler (google hilft: "excel onclick date")

p.s. "STRG + : " (strg + doppelpunkt-taste) erzeugt das aktuelle datum und schreibt es statisch in die zelle -> kein update wenn man die datei wann anders öffnet.

Answer 3

[Ninombre]

Es gibt zwei Varianten von Checkboxen: Formularsteuerelement oder ActiveX?

Comments

[Carlos1995]

Derzeit versuche ich als Formularsteuerelement

[Ninombre]

@Carlos1995

dann passt ja die Antwort von Suboptimierer

Answer 4

[TDF1981]

Ich kann dir diese mit Datum und Uhrzeit posten: Hoffe du kannst damit was anfangen

1. Excel - Entwicklertools - Steuerelement Einfügen - Active X Kontrollkästchen einfügen

2. Im Entwurfsmodus Doppelklick auf Kontrollkästchen

3. Zwischen "Private Sub CheckBox21_Click()" und "End Sub" fügst du folgendes ein:

Range("B2").Value = Now

Answer 5

[Suboptimierer]

1) Füge die Kontrollkästchen als Formularsteuerelemente ein.

2) Verlinke sie auf die Zelle in der sie dargestellt werden (links von der Datumszelle) über die Eigenschaften des Kontrollkästchens

3) Im VBA-Editor überschreibst du folgendes Ereignis der Arbeitsmappe:

Private Sub Workbook_Open() 
  Dim cb As CheckBox 
  For Each cb In Sheets(1).CheckBoxes 
    cb.OnAction = "DatumEintragen" 
  Next 
End Sub

4) Füge ein Modul ein mit der Prozedur DatumEintragen

Sub DatumEintragen()
  Dim cb As CheckBox
  Dim rRightCell As Range
  Set cb = Sheets(1).CheckBoxes(Application.Caller)
  Set rRightCell = Sheets(1).Range(cb.LinkedCell).Offset(0, 1) ' cb.BottomRightCell geht leider nicht
  If cb.Value = 1 Then _
    rRightCell.Value = Date
End Sub

Comments

[Suboptimierer]

Verbesserung: Statt mit der verlinkten Zelle zu arbeiten, ist es besser, mit TopLeftCell zu arbeiten:

Statt
Set rRightCell = Sheets(1).Range(cb.LinkedCell).Offset(0, 1)
besser
Set rRightCell = cb.TopLeftCell.Offset(0, 1)

[Suboptimierer]

(Alternativ zum Überschreiben des Workbook_Open Ereignisses kannst du auch das Makro "DatumEintragen" direkt dem Kontrollkästchen zuweisen [rechte Maustaste → Makro zuweisen...]. ^^)