Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

doppeltes Klick-Ereignis

Betrifft: doppeltes Klick-Ereignis von: Dennis
Geschrieben am: 14.12.2007 17:28:40

Hallo zusammen,

ich habe grad ein etwas seltsames Problem.
Wenn ich auf ein TextBox mit der rechten Maustaste klicke soll sich ein Input-Fenster öffnen.
Mit diesem Code-funktioniert das auch:

Private Sub txt_Test_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As  _
Single, ByVal y As Single)
    If Button = 2 Then _
        intervall = InputBox("Intervall angeben", "Intervall", intervall)
End Sub



Nur seltsamerweise wird diese Prozedur immer 2mal aufgerufen, obwohl ich nur 1mal draufklicke.
Also nachdem ich das Input-Fenster mit "OK", "Abbrechen" oder "Enter" bestätige erscheint es gleich nochmal .

Was sehr merkwürdig ist, ich habe den gleichen Code in einem anderen UserForm verwendet und dort funktioniert es einwandfrei.

Vielleicht hat ja jemand ne Idee woran das liegen könnte

Danke....

Gruss Dennis

  

Betrifft: AW: doppeltes Klick-Ereignis von: Holger
Geschrieben am: 14.12.2007 18:41:26

Das Problem kenne ich und konnte es nicht lösen. Klappt es wirklich bei einer anderen UserForm? Ich habe seinerzeit festgestellt, dass nur bei MouseDown und rechter Maustaste dieser Fehler auftritt. Bei MouseUp oder anderen Maustasten funktioniert es richtig, aber bei dieser Kombination nach meiner Erfahrung immer falsch.


  

Betrifft: AW: doppeltes Klick-Ereignis von: Dennis
Geschrieben am: 14.12.2007 19:07:40

Hi Holger,

bei dem anderen textBox funktioniert es allerdings nur weil ich die Locked-Eigenschaft auf False gesetzt habe.
Setz ich es auf True erscheint es ebenfalls doppelt.....


  

Betrifft: AW: doppeltes Klick-Ereignis von: Holger
Geschrieben am: 14.12.2007 18:47:43

Das Problem kenne ich und habe es nicht lösen können. Nach meiner Erfahrung tritt es bei der Kombination MouseDown und rechter Maustaste immer auf, deshalb wundert es mich, dass es bei einer anderen UserForm geklappt haben soll. Mit anderen Mausereignissen und -tasten funktioniert es.


  

Betrifft: AW: doppeltes Klick-Ereignis von: Leo
Geschrieben am: 14.12.2007 19:03:41

Hi,

nimm doch einfach das Mouse_Up-Ereignis.

mfg Leo


  

Betrifft: Danke klappt! von: Dennis
Geschrieben am: 14.12.2007 19:09:36

Hi Leo,

super danke für den Tipp funktioniert nun einwandfrei.

Danke schön