Office: Unveränderliches Datum und das in Excel????

Hallo,

Ich möchte, dass wenn ein kontrollkästen "abgehakt" wird, der Wert "WAHR" in Die Zelle D9 geschrieben wird. Das funktioniert schon prima.
Leider will ich auch, dass wenn WAHR er in Zelle F9 das aktuelle Datum setzt und zwar nur einmal -> Unveränderlich.
Das ist wichtig weil diese Zelle zeigen soll, wann das Häkchen gesetzt wurde.
Toll wäre es natürlich, wenn man noch den Nutzernamen sehen würde, aber ein festes Datum würde mir schon ausreichen.

 

Hallo!

Rechtsklicke den Tabellenreiter des entsprechenden Blatts und wähle "Code anzeigen".
Kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Calculate()
If Range("D9") = True Then
Range("F9") = Date & " " & Application.UserName
Else: Range("F9") = ""
End If
End Sub

Wird das Kontrollkästchen angeklickt, dann erscheint das aktuelle Datum und der Benutzername der Excel-Version in F9. Wird es wieder ausgeklickt, verschwindet der Inhalt aus F9, usw.

Sollte das bei dir nicht funktionieren, dann schreibe in irgendeine Zelle außerhalb des sichtbaren Bereichs (z.B. Z999) die Formel
=1*D9

 

Richtig klasse Sache, aber was ist, wenn ich möchte, dass das Kontrollkästchen lediglich einmal gedrückt werden kann. Sinn des ganzen ist es,

Ggf. mit Info "Sind sie sich wirklich sicher, dass....blablabla? " und OK Feld oder etwas anderes in der Art.

 

Hallo!

Dann würde ich eine CheckBox aus der Steuerelemente-Toolbox-Symbolleiste nehmen und ihr diesen Code zuweisen:

Code:

Private Sub CheckBox1_Click()
Dim x As Byte
If CheckBox1.Value = True Then
x = MsgBox("Sind Sie sicher???", vbYesNo + vbQuestion, "Letzte Chance")
If x = 6 Then
CheckBox1.Value = True
CheckBox1.Object.Enabled = False
Range("F9") = Date & " " & Application.UserName
Else: CheckBox1.Value = False
End If
End If
End Sub

Dann kannst du auch auf eine Zellverknüpfung verzichten.

Wahrscheinlich brauchst du dann auch noch den Code, um alle CheckBoxen wieder zu entsperren:

Code:

Sub AlleEntsperren()
Dim cb As OLEObject
For Each cb In Sheets("Tabelle1").OLEObjects
If TypeOf cb.Object Is MSForms.CheckBox Then cb.Object.Enabled = True
Next cb
End Sub

 

Das hat super funktioniert. Ich muss jetzt zu der ersten Hilfestellung noch etwas wissen:

Wie sorge ich bei dieser Formel...

Private Sub Worksheet_Calculate()
If Range("D9") = True Then
Range("F9") = Date & " " & Application.UserName
Else: Range("F9") = ""
End If
End Sub


...dafür, dass er beispielsweise D9-D13 bzw. F9-F13 berücksichtigt?
Ich habe nämlich pro Zelle eines dieser Klickfelder.

Danke schon mal im vorraus!
PS: IHR SEID SUPER!!!

 

Verstehe ich nicht...
Wozu brauchst du denn jetzt noch den ersten Code?

 

Das was in D9 schon funktioniert will ich auch auf die restlichen Felder übertragen --> anbei mein Testobjekt ;-)

 

Hallo!

Dann erweitere den Code nach diesem Schema:

Code:

Private Sub Worksheet_Calculate()

If Range("C9") = True Then
If Range("E9") = "" Then Range("E9") = Date & " " & Application.UserName
Else: Range("E9") = ""
End If

If Range("C10") = True Then
If Range("E10") = "" Then Range("E10") = Date & " " & Application.UserName
Else: Range("E10") = ""
End If

If Range("C11") = True Then
If Range("E11") = "" Then Range("E11") = Date & " " & Application.UserName
Else: Range("E11") = ""
End If

'usw...

End Sub

Die Formel in E2 solltest du dann ändern in
=SUMMENPRODUKT(1*(C9:C13))

 

Was soll ich sagen...

Dankeschön!!! :mrgreen: