Office: (Office 2013) Doppelklick Ereignis

christian30031982 · 16. November 2015

Hallo zusammen,

ich habe dieses Doppelklickereignis geschrieben:

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address
Case "$A$1"
UF_NeuerKunde.Show
Case "$A$2:$A$letzteZeile"
UF_KundeAendern.Show
MsgBox "Andrere Zeilen"
Case Else
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich möchte gerne, dass wenn ich auf A1 DoubleClick die UF_NeuerKunde kommt und wenn ich von A2 bis AletzteZeile DoubleClick die UF_KundeAendern kommt.

Vielen Dank für eure Hilfe.

:)

xlph · 17. November 2015

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Intersect(Target, Cells(1, 1)) Is Nothing Then
Cancel = True
UF_NeuerKunde.Show
ElseIf Not Intersect(Target, Range(Cells(2, 1), Cells(Me.Rows.Count, 1).End(xlUp))) Is Nothing Then
Cancel = False
UF_KundeAendern.Show
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aloys78 · 17. November 2015

Hallo,

mein Vorschlag:
Code:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim LoL As Long
LoL = Cells(Rows.Count, "A").End(xlUp).Row
If Intersect(Target, Range("A1:A" & LoL)) Is Nothing Then Exit Sub
Cancel = True
Select Case Target.Address
Case "$A$1" 'DoppelClick auf A1
UF_NeuerKunde.Show
MsgBox "A1"
Case Else 'DoppelClick auf Zelle im Bereich A2:A(letzte Datenzeile)
UF_KundeAendern.Show
End Select
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

christian30031982 · 17. November 2015

Danke an euch beiden.

Es funktioniert beides.

Ich lasse jetzt den Würfel entscheiden :-)

Office: (Office 2013) Doppelklick Ereignis

Doppelklick Ereignis

Doppelklick Ereignis

Doppelklick Ereignis

Doppelklick Ereignis - Similar Threads - Doppelklick Ereignis

Doppelklick in Tabelle auf Smartphone

VBA Textbox macht was sie will

Text Formatverlust nach Doppelklick

Formular mit bestimmten Datensatz durch Doppelklick öffnen

Makro durch Doppelklick auf Zelle starten

zwei Klicks bei Anmeldung

zweites doppelklick ereignis hinzufügen