Aktuelles Datum auf Knopdruck einfügen :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Aktuelles Datum auf Knopdruck einfügen

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

Autor

Nachricht

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 09.09.2008, 11:44

Hallo !

Ich benötige Hilfe für ein Makro oder so, mit dem ich per Knopfdruck auf einen Button in eine Zelle das heutige Datum einfügen kann.
Das eingefügte Datum soll sich nach speichern heute und öffnen am anderen Tag nicht mehr verändern, also nicht aktualisieren.

Vielen Dank schonmal im Voraus

Doogie

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 09.09.2008, 12:28

Hallo!

Dieser Code schreibt das aktuelle Datum in die aktive Zelle:

Sub test()
ActiveCell = Date
End Sub

_________________

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!

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 09.09.2008, 13:21

Geht das auch irgenwie mit einem Doppelklick auf die Zelle ?
Ansonsten muss ja die jeweilie Zelle aktiv sein vor dem Anklicken, oder ?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 09.09.2008, 13:25

Hallo!

Das geht auch per Doppelklick mit diesem code im Modul des Tabellenblatts:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Target = Date
Cancel = True
End Sub

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 09.09.2008, 13:28

Super, das funktioniert - aber wie begrenze ich diesen Funktion auf eine Zelle ?

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 09.09.2008, 13:34

Hallo!

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$A$1" Then
Target = Date
Cancel = True
End If
End Sub

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 09.09.2008, 13:40

Hallo Schatzi,

warum auch immer, das funktioniert nicht. Habe die Zellangabe entsprechend geändert (bei mir $B$8), aber nix geht.

Was mache ich da falsch ? ISt doch nur die If- Abfrage dazugekommen

Doogie
Newbie
Newbie

Anmeldedatum: 04.08.2008
Beiträge: 23

Verfasst am: 09.09.2008, 13:42

SORRY, jetzt geht es !!!

Ich habe die Datei einfach nochmal neu geöffnet und es läuft Smile

schatzi
Moderator

Anmeldedatum: 09.12.2006
Beiträge: 5725

Verfasst am: 09.09.2008, 13:44

Übrigens kannst du das aktuelle Datum auch mit dieser Tastenkombi einfügen: Strg + .

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
	Bei Änderung Datum automatisch einfügen	annewill1234	Microsoft Excel Hilfe	1	19.11.2008, 17:26
	Fotoalbum automatisch einfügen - Über...	Snazooh	Microsoft PowerPoint Hilfe	0	15.11.2008, 11:45
	Sehr komplexes Thema!! Verknüpfung d...	wowa	Microsoft Excel Hilfe	1	14.11.2008, 10:12
	Makro Einfügen/Paste Befehl immer in ...	Skatgott	Microsoft Excel Hilfe	1	12.11.2008, 16:17
	Bedingte Formatierung nach Datum	amstuzmarco	Microsoft Excel Hilfe	2	05.11.2008, 15:03

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