Worksheet_BeforeDoubleClick
21.01.2008 14:43:00
Werner
ich möcht per Doppelklick in eine bestimmte Zelle eine UserForm öffnen.
Das klapt auch in der einen Zelle, z.B. A1 mit dem ersten Teil des Codes.
Nun möchte ich aber, wenn ich z.B. in M4 doppelklicke eine andere UserForm aufgeht, so wie ich es unten im 2. Teil geschrieben habe geht es nicht.
Wer kann mir dabei helfen?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim RaMaschine As Range
Set RaMaschine = Range("A1")
If Intersect(Target, RaMaschine) Is Nothing Then Exit Sub
Application.EnableEvents = False
frmMaschine.Show
Application.EnableEvents = True
Set RaMaschine = Nothing
Dim RaGerüstetAuf As Range
Set RaGerüstetAuf = Range("M4")
If Intersect(Target, RaGerüstetAuf) Is Nothing Then Exit Sub
Application.EnableEvents = False
frmGerüstetAuf.Show
Application.EnableEvents = True
Set RaGerüstetAuf = Nothing
End Sub
Gruß Werner
Anzeige