Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1296to1300
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
Inhaltsverzeichnis

Doubleclick

Doubleclick
07.02.2013 14:10:20
Serge
Hallo Leute
wie kann ich erreichen dass der DoubleClick ausgeführt wird?
Private Sub Worksheet_Activate()
Range("i14").Select
DoubleClick' so geht es nicht
Application.DoubleClick' so geht acu nicht
End Sub

Danke Serge

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Doubleclick
07.02.2013 14:22:56
Klaus
Hi,
F2 macht das gleiche wie doppelclick!
Private Sub Worksheet_Activate()
Range("i14").Select
SendKeys ("{F2}")
End Sub
Allerdings kommt mir das sehr spanisch vor. Was willst du denn erreichen? Ein Makro im Bearbeitungsmodus einer Zelle zu beenden ist so oder so keine gute Idee.
Grüße,
Klaus M.vdT.

Klappt nicht ganz!
07.02.2013 16:41:39
Serge
Hallo Klaus
es klappt nicht so wie ich mir es vorstelle!
Schau mal meine abgespeckte Datei an : https://www.herber.de/bbs/user/83814.xls
Vielleicht kannst Du mir so helfen!
Gruss Serge

Anzeige
Ich habe es anders gelöst!
07.02.2013 18:26:50
Serge
Hallo Klaus ich habe es so gelöst:
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rng As Range
Set rng = Range("B5:U23")
If Not Intersect(Target, rng) Is Nothing Then
rng.Interior.ColorIndex = xlNone
Cells(Target.Row, 2).Resize(, rng.Columns.Count).Interior.ColorIndex = 33
Cancel = True
End If
End Sub
Private Sub Worksheet_Activate()
Set rng = Range("B5:U23")
rng.Interior.ColorIndex = xlNone
Range("B14:U14").Select
Selection.Interior.ColorIndex = 33
Range("i14").Select
End Sub
Danke
Serge

Anzeige
AW: Doubleclick
07.02.2013 14:26:52
Peter
Hallo Serge,
versuche es so:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address  "$I$14" Then Exit Sub
MsgBox "die Zelle I14 wurde doppel-geklickt."
End Sub
Gruß Peter

AW: Doubleclick
07.02.2013 16:44:28
Serge
Danke Peter
aber ich glaube ich habe mich nicht klar ausgedrückt!
Schau mal in der Datei nach :https://www.herber.de/bbs/user/83814.xls
Vielleicht gibt es dir ein Anstoiss zu meinem Wunsch.
Danke Serge

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige