Herbers Excel-Forum - das Archiv
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
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
Betrifft: AW: Doppelklick öffnet Userform
von: 1712164.html
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