Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1228to1232
1228to1232
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppleklick in Zelle

Forumthread: Doppleklick in Zelle

Doppleklick in Zelle
Bauer
Hallo Miteinander!
Ich weiss das Thema war hier schon mal angesiedelt, nur ahbe ich eine Frage dazu:
Wenn ich die unteren "X" durch eine Uhrzeit z.B. "08:00" ersetzen will kann ich den Doppelklick zwar ausführen und die Uhrezit wird auch angezeigt, aber bei einen erneuten Doppelklick sollte diese wieder gelöscht werdeb wue das "X" und das funktioniert nicht.
Wer weiss rat?
Vielen Dank im Voraus
Stefan

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, [H3:H6]) Is Nothing Then
If Target.Value = "X" Then
Target.Value = ""
Else
Target.Value = "X"
End If
Cancel = True
End If
End Sub

Anzeige

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

Betreff
Benutzer
Anzeige
AW: Doppleklick in Zelle
27.09.2011 11:48:25
Dirk
Hallo Bauer,
Probier mal so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, [H3:H6]) Is Nothing Then
If IsDate(CDate(Target.Value)) = True And CDate(Target.Value)  "00:00:00" Then
Target.Value = ""
Else
Target.Value = Time
End If
Cancel = True
End If
End Sub
Lass' hoeren, ob ok.
Gruss
Dirk aus Dubai
Anzeige
AW: Doppleklick in Zelle
27.09.2011 12:25:30
Bauer
Hallo Dirk!
Danke für Deine Antwort, es funktioniert nur wird mir hier die Aktuelle Uhrzeit eingetragen und nicht meine vordefinierte und geht das ganze auch ohne sekunden und ohne AM / PM Anzeige also dass ich z.B. nur 08:00 oder was 10:00 (je nach dem was ich vordefiniere) angezeigt wird?
Vielen Dank
Stefan
Anzeige
If Target.Value <> "" Then ...
27.09.2011 11:50:21
Matthias
Hallo
Vielleicht so:

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, [H3:H6]) Is Nothing Then
If Target.Value  "" Then
Target.Value = ""
Else
Target.Value = "08:00"
End If
Cancel = True
End If
End Sub
Gruß Matthias
Anzeige
AW: If Target.Value <> "" Then ...
27.09.2011 12:23:42
Bauer
Hallo Matthias!
Danke für Deine Antwort, es funktioniert nur geht das ganze auch ohne sekunden und ohne AM / PM Anzeige also dass ich z.B. nur 08:00 oder was 10:00 (je nach dem was ich vordefiniere) angezeigt wird?
Vielen Dank
Stefan
Zellformat
27.09.2011 12:30:25
Matthias
Hallo
Ich hab keine Sekunden angegeben, auch nicht AM/PM
Im Code steht nur "08:00"
Das liegt sicher an Deinem Zellformat!
Gruß Matthias
Anzeige
AW: Zellformat
27.09.2011 12:34:21
Dirk
Hallo!
Mach mal so:
Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Excel.Range, Cancel As Boolean)
If Not Intersect(Target, [H3:H6]) Is Nothing Then
If Target.Value  "" Then
Target.Value = ""
Else
Target.Value = "08:00"
Target.numberformat ="hh:mm"
End If
Cancel = True
End If
End Sub

Gruss
Dirk aus Dubai
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige