Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
792to796
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
792to796
792to796
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppelklick Formel ergänzen

Doppelklick Formel ergänzen
19.08.2006 17:28:11
Josef
Guten Tag zusammen,
kann mir bitte jemand bein ergänzen der untenstehenden Formel helfen?
Mein Problem: wie muß ich Date + Time formatieren, dass keine Sekunden angezeigt werden, aber die Stunden:Minuten in fett dargestellt werden?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
ActiveCell.Value = Date + Time
End If
Danke schon mal
Gruss Josef

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doppelklick Formel ergänzen
19.08.2006 17:38:44
Kurt
Hi,
falls du damit rechnen willst/musst, geht es gar nicht.
mfg Kurt
@Kurt! Wieso?
19.08.2006 17:42:54
Josef
Gruß Sepp

Irrung oT
19.08.2006 17:46:15
Kurt
k
AW: Doppelklick Formel ergänzen
19.08.2006 17:40:48
Josef
Hallo Josef!
Z.B. so.
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
  Cancel = True
  With ActiveCell
    .Value = Format(Now, "dd/mm/yy hh:mm")
    .Characters(10, 5).Font.Bold = True
  End With
End If
End Sub


Gruß Sepp

Anzeige
AW: Doppelklick Formel ergänzen
19.08.2006 18:27:14
Josef
Hallo Sepp,
Erst mal vielen Dank, für die schnelle Hilfe. Funktioniert natürlich wie immer, einwandfrei. Danke auch an alle anderen Helfer.
Gruss aus Köln und schönes Wochenende noch.
Josef
AW: Doppelklick Formel ergänzen
19.08.2006 17:44:23
K.Rola
Hallo,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 2 Then
Target.Value = Format(Now, "DD.MM.YYYY hh:mm")
Target.Characters(12, 5).Font.FontStyle = "Fett"
Cancel = True
End If
End Sub

Gruß K.Rola

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige