Click-Ereignis in Zelle - Digital-Inn

10november09 · 24-11-2009

Hallo Zusammen,

gibt es eine Möglichkeit (Befehl) - wenn man in eine Zelle des Ranges - über: Set rngSrc = Intersect(Target, Range("G8:G999,I8:I999")) definiert - klickt, dann öffnet sich die Userform?
Wenn ja welchen - Danke.

10november09

bst · 24-11-2009

Hi,

es gibt kein Click-Ereignis. Nimm SelectionChange, BeforeRightClick oder BeforeDoubleClick.

Zum Öffnen der Userform mit dem Namen Userform12 nimm Userform12.Show

cu, Bernd

10november09 · 24-11-2009

Hallo Bernd,
super danke das klappt - jetzt öffnet die userform beim Doppelclick auf die Zelle.
Die Userform enthält einen Kalender und nun bekommen ich das ausgewählte datum nicht abgespeichert. Wollte zwei Möglichkeiten bieten - über doppelklick auf das datum und über ein Command "Speichern".

Private Sub calDatum_DblClick()
test
End Sub

Sub test()
???
End Sub

Private Sub cmdSave_Click()
ActiveCell.SaveData = True ???????
End Sub

Aber er schreibt es mir nicht in die Active Zelle ;(.

Könntest du dich meiner noch mal erbarmen?
10november09

bst · 24-11-2009

Hi,

welches Kalenderobjekt benutzt Du denn da?

Bzw., schicke vielleicht auch mal die Datei her.

cu, Bernd

10november09 · 25-11-2009

Hallo Bernd,

danke für die schnelle Antwort - hatte leider gestern noch einen ungeplanten Termin - also erst jetzt die Datei.

Mein Code-Versuche

sind im Tabellenblatt und der Userform abgelegt.
Ich möchte, dass in Spalte G, I, K, M jeweils zu unterschiedlichen Zeiten ein Datum eingetragen werden kann -aber eben nur ein Datum in bestimmer Form (dd.mm.jj). Vielleicht läßt sich das ja auch ohne userform lösen? Über Datengültigkeit habe ich nur die Möglichkeit gefunden auf einen Zeitraum zu begrenzen - entspricht nicht meinen Vorstellungen.

Ok genug Geschwafel - hier die datei.

10november09

bst · 25-11-2009

Morgen,

versuche das mal so.

HTH, Bernd
--
In das Klassenmodul der Tabelle:

Code:

 Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   Dim rngSrc As Range
   
   If Target.Count > 1 Then Exit Sub
   Set rngSrc = Intersect(Target, Range("G8:G999,I8:I999,K8:K999,M8:M999"))
   If Not rngSrc Is Nothing Then
      frmKalender.Show
      Cancel = True
   End If
End Sub

In das Klassenmodul der Userform:

Code:

Option Explicit

Private Sub cmdSave_Click()
   ActiveCell.Value = calDatum.Value
   Unload Me
End Sub

Private Sub cmdCancel_Click()
   Unload Me
End Sub

24-11-2009	#1
10november09 Registered User Mitwirkender Frischling Join Date: Sep 2009 Location: Le Posts: 21 Abgegebene Danke: 15 Erhielt 0 Danke für 0 Beiträge	Click-Ereignis in Zelle Hallo Zusammen, gibt es eine Möglichkeit (Befehl) - wenn man in eine Zelle des Ranges - über: Set rngSrc = Intersect(Target, Range("G8:G999,I8:I999")) definiert - klickt, dann öffnet sich die Userform? Wenn ja welchen - Danke. 10november09

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

24-11-2009	#2
bst Excel Moderator Senior Member (Board-Inventar) Join Date: Oct 2004 Location: Ilsfeld Posts: 2.610 Abgegebene Danke: 16 Erhielt 183 Danke für 180 Beiträge	Hi, es gibt kein Click-Ereignis. Nimm SelectionChange, BeforeRightClick oder BeforeDoubleClick. Zum Öffnen der Userform mit dem Namen Userform12 nimm Userform12.Show cu, Bernd

Sponsored Links

Sponsored Links