Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1236to1240
1236to1240
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Doppeklick verschiedene Aktionen ausführen

Forumthread: Doppeklick verschiedene Aktionen ausführen

Doppeklick verschiedene Aktionen ausführen
Markus
Hallo zusammen
Wie muss man den Code ergänzen, so das bei einem Doppelklick auf eine Zelle in Spalte E ein grosses "E" eingetragen wird.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A3:A1048576, I3:I1048576, J3:J1048576, L3:L1048576], Target) Is Nothing Then
If Target.Value = Date Then
Target.Value = x1None
Else
Target.Value = Date
End If
Cancel = True
End If
End Sub
Gruss Markus
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
und x1None hat wirklich funktioniert ?
20.11.2011 21:10:52
Matthias
Hallo
also entweder XlNone nicht X1None oder ClearContents
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect([A3:A1048576, I3:I1048576, J3:J1048576, L3:L1048576], Target) Is Nothing Then
If Target.Value = Date Then
Target.ClearContents
Else
Target.Value = Date
End If
Cancel = True
End If
If Not Intersect(Columns(5), Target) Is Nothing Then
Target = "E"
Cancel = True
End If
End Sub
Gruß Matthias
Anzeige
AW: und x1None hat wirklich funktioniert ?
20.11.2011 21:27:49
Markus
Hallo Matthias
Vielen Dank für Deine Hilfe, genau so habe ich es mir vorgestellt :-)
Habe nochmals den von mir eingefügten Code getestet ... Funkrioniert, trotz "Target.Value = x1None" ?
Gruss Markus

Beliebteste Forumthreads (12 Monate)

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