Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
700to704
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
700to704
700to704
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

"Offene Zellen"

"Offene Zellen"
29.11.2005 15:40:01
Stefan
Hi,
vielleicht kann mir jemand weiterhelfen.
Habe eine Listbox bei der man doppelklicken kann und
der entsprechende Wert dann in eine Zelle eingetragen wird.
Das Eintragen funktioniert, bloss bleibt die Zelle dann "offen", d.h. der Cursor in der Zelle blinkt. Habs nun mit anschliessendem SendKeys "{ESC}" probiert, (funktioniert ja manuell), aber die Zelle bleibt nach wie vor offen. Es scheint, als ob das Klick-Event nicht vollständig in der Listbox bleibt.
Ablauf:
1. Doppelklick in UserForm (mit Listbox)
2. Userform.Hide
3. ActiveCell.Value = ...
Gibts nen Weg die Zelle ruhig zu stellen?
Danke.
Stefan

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

Betreff
Datum
Anwender
Anzeige
AW: "Offene Zellen"
29.11.2005 15:46:08
u_
Hallo,
wie startest du die UF denn? Per Doppelklick in eine Zelle?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
UserForm1.Show
Cancel = True
End Sub

Gruß
Geist ist geil!
AW: "Offene Zellen"
29.11.2005 16:19:32
Stefan
Ja, starte die UF per Doppelklick in eine Zelle:
Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
Der Code liegt auch in der UF.
Auf der UF gibts auch einen Button "Select" der genau das Gleiche
wie der Listbox-Doppelklick macht, nur da funktioniert das
"ESC" und die Zelle ist samt Wert geschlossen.
Stefan
Anzeige
AW: "Offene Zellen"
29.11.2005 16:21:52
u_
Hallo,
wie ich schon geschrieben habe: Cancel = True

Private Sub App_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Excel.Range, Cancel As Boolean)
Userform1.show
Cancel=True
End Sub

Gruß
Geist ist geil!
AW: "Offene Zellen"
29.11.2005 16:31:27
Stefan
HEY! Funktioniert. Danke.
Für was steht Cancel?
Gruss
Stefan
AW: "Offene Zellen"
29.11.2005 17:09:12
u_
Hallo,
damit wird die direkte Zellbearbeitung abgebrochen.
Gruß
Geist ist geil!
AW: "Offene Zellen"
29.11.2005 15:47:52
Hajo_Zi
Hallo Stefan,
schreibe den Code zu Veränderungt der Zelle in die Userform.


300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige