Unveränderliches Datum und das in Excel???? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

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

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Autor

Nachricht

MB1304
Newbie
Newbie

Anmeldedatum: 15.11.2007
Beiträge: 18

Verfasst am: 23.11.2007, 12:51

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 23.11.2007, 13:24

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

_________________

Viele Grüße vom Schatzi
------------------------
Ich bin nur noch sporadisch erreichbar!
Bitte hofft nicht auf eine schnelle Beantwortung einer Rückfrage meinerseits!
Jeder andere Helfer darf Rückfragen gerne übernehmen und hilft sicher gerne weiter!

MB1304
Newbie
Newbie

Anmeldedatum: 15.11.2007
Beiträge: 18

Verfasst am: 23.11.2007, 14:36

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.

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 23.11.2007, 15:15

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

MB1304
Newbie
Newbie

Anmeldedatum: 15.11.2007
Beiträge: 18

Verfasst am: 28.11.2007, 08:41

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!!!

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 28.11.2007, 10:59

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

MB1304
Newbie
Newbie

Anmeldedatum: 15.11.2007
Beiträge: 18

Verfasst am: 28.11.2007, 14:44

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

Test_Checklist.xls

Beschreibung:

Download

Dateiname:

Test_Checklist.xls

Dateigröße:

22.5 KB

Heruntergeladen:

15 mal

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5749

Verfasst am: 28.11.2007, 14:59

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))

MB1304
Newbie
Newbie

Anmeldedatum: 15.11.2007
Beiträge: 18

Verfasst am: 28.11.2007, 15:53

Was soll ich sagen...

Dankeschön!!! Mr. Green

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Excel Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	7 Stelliges Datum formatieren	Wendigo2002	Microsoft Excel Hilfe	2	07.01.2009, 18:54
	excel formel mit und/oder	3höckerkamel	Microsoft Excel Hilfe	1	07.01.2009, 15:43
	Excel öffnet sehr langsam	falko	Microsoft Excel Hilfe	0	07.01.2009, 10:29
	excel WENN	3höckerkamel	Microsoft Excel Hilfe	3	06.01.2009, 18:25
	Excel 2003 eine Zelle keine Berechnung	Schiffhexler	Microsoft Excel Hilfe	5	06.01.2009, 14:02

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de