Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
808to812
808to812
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Aktuelle Uhrzeit in einer Zelle per Mausklick

Aktuelle Uhrzeit in einer Zelle per Mausklick
14.10.2006 00:44:43
Burgstaller
Hallo,
wer kann mir helfen. Ich möchte gerne unter Zuhilfenahme einer Funtionstaste
oder noch besser per Mausklick die aktuelle Uhrzeit in einer Zelle anzeigen lassen. Mit der Tastenkombination Strg+Umsch+: geht das, wie bekomme ich das gleiche Ergebnis hin in dem ich die Maustaste drücke.
Wer kann mir hier bitte weiterhelfen. Im voraus vielen Dank.

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aktuelle Uhrzeit in einer Zelle per Mausklick
14.10.2006 04:55:15
fcs
Hallo Burgstaller,
folgendes Makro im VBA-Editor unter der Tabelle einfügen in der die Uhrzeit bei Klick in die Zelle angezeigt werden soll. Zelladresse ggf. noch anpassen.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
Target.Value = Time
End If
End Sub

Gruss
Franz
AW: Aktuelle Uhrzeit in einer Zelle per Mausklick
14.10.2006 21:54:01
Burgstaller
Hallo Franz,
erst mal vielen Dank für die Mühe. Es funktioniert gut. Ich komme nur nicht
damit zurecht, wenn ich im VBA Editor unter Tabelle 1 in das Worksheet deine
Funktion einbaue, funktioniert immer nur für eine Zelle z.B."$C$12". ich möchte
die gleiche Funktion von C10-C40 haben aber das geht nicht. Ich habe schon ein
bisschen herum probiert, aber es klappt nicht. Hast du noch eine Idee.
Solltest du mal Hilfe im Bereich Drucker und Verbrauchmaterial haben, kann ich
dir bestimmt sehr gut weiter helfen.
Gruß, Didi Burgstaller
Anzeige
AW: Aktuelle Uhrzeit in einer Zelle per Mausklick
15.10.2006 12:38:35
fcs
Hallo Didi,
da muss die Überprüfung von Target angepasst werden, damit die Funktionalität für enen gößeren Zellbereich gegeben ist.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Column = 3 And Target.Row >= 10 And Target.Row <= 40 And Target.Cells.Count = 1 Then
Target.Value = Time
End If
End Sub

Gruß
Franz

316 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige