Informationen und Beispiele zum Thema CheckBox | |
---|---|
![]() |
CheckBox-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema Userform | |
---|---|
![]() |
Userform-Seite mit Beispielarbeitsmappe aufrufen |
Informationen und Beispiele zum Thema Label | |
---|---|
![]() |
Label-Seite mit Beispielarbeitsmappe aufrufen |
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 SubGruß 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
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