Doppelklick öffnet Userform

Bewerten Sie hier bitte das Excel-Portal

Auftragsprogrammierung: Nehmen Sie hier Kontakt auf

Informationen und Beispiele zum Thema CheckBox
Screenshot zu CheckBox	CheckBox-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Userform
Screenshot zu Userform	Userform-Seite mit Beispielarbeitsmappe aufrufen

Informationen und Beispiele zum Thema Label
Screenshot zu Label	Label-Seite mit Beispielarbeitsmappe aufrufen

Doppelklick öffnet Userform

Doppelklick öffnet Userform von Thomas vom 10.09.2019 08:44:39

AW: Doppelklick öffnet Userform - von Torsten am 10.09.2019 08:49:47

AW: Doppelklick öffnet Userform - von Werner am 10.09.2019 08:50:20

AW: Doppelklick öffnet Userform - von Oberschlumpf am 10.09.2019 08:52:25

AW: Doppelklick öffnet Userform - von Thomas am 10.09.2019 11:08:51

Gerne u. Danke für die Rückmeldung. o.w.T. - von Werner am 10.09.2019 21:09:10

Betrifft: Doppelklick öffnet Userform von: Thomas
Geschrieben am: 10.09.2019 08:44:39

Guten Tag,

ich würde gerne, wenn ich in Zelle A79 klicke eine Userform öffnen... was auch funktioniert.

Jetzt würde ich aber gerne, wenn ich in Zelle z.B. A80 klicke eine andere Userform öffnen... wie muss ich den Code jetzt erweitern ??

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     
         If Intersect(Target, Range("A79")) Is Nothing Then Exit Sub
         UserForm4.Show
     
     End Sub

Betrifft: AW: Doppelklick öffnet Userform von: 1712162.html
Geschrieben am: 10.09.2019 08:49:47

Hallo,

z.B. schreib den gleichen Code nochmal unter diesen. Halt mit Range A80 und der anderen Userform. Wenn es noch mehr werden, koennte man dass auch ueber ein Select Case loesen.

Gruss Torsten

Betrifft: AW: Doppelklick öffnet Userform von: 1712163.html
Geschrieben am: 10.09.2019 08:50:20

Hallo Thomas,

so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Select Case Target.Address(0, 0)
    Case "A79"
        Cancel = True
        Userform1.Show
    Case "A80"
        Cancel = True
        Userform2.Show
    Case Else
End Select
End Sub

Gruß Werner

Betrifft: AW: Doppelklick öffnet Userform von: 1712164.html
Geschrieben am: 10.09.2019 08:52:25

Hi Thomas,

versuch es mal so:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  
      If Target.Address = "$A$79" Then Userform4.Show
      If Target.Address = "$A$80" Then AndereForm.Show
  
  End Sub

Wie du siehst, hab ich deinen Code komplett geändert. Es sollte reichen, die Adresse der doppelt angeklickten Zelle abzufragen.

Wenn nämlich Target.Address <> A79 UND <> A80, dann passiert...gar nix weiter.

Hilfts?

Ciao
Thorsten

Betrifft: AW: Doppelklick öffnet Userform von: 1712206.html
Geschrieben am: 10.09.2019 11:08:51

Hilft wunderbar... funktioniert.

Danke schön

Betrifft: Gerne u. Danke für die Rückmeldung. o.w.T. von: 1712361.html
Geschrieben am: 10.09.2019 21:09:10