Möchte gerne eine Userform einfügen, die man mit klick auf einem
gewissen Zellenbereich dann eingeblendet wird.
Die erste funktioniert einwandfrei.
Nur die 2te läßt sich nicht starten, es gibt auch keine Fehlermeldung
Anbei der Makro Code in der entsprechenden Tabelle
If Intersect(Range("AQ13:AQ192"), Target) Is Nothing Then Exit Sub
Set grngCell = Target
UserForm1.Show
If Intersect(Range("BC26:BC192"), Target) Is Nothing Then Exit Sub
Set grngCell = Target
UserForm2.Show
End Sub
Hier der Macro Code von der Userform,
Option Explicit
Private Sub Label1_Click()
End Sub
Private Sub Label3_Click()
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
ActiveSheet.Unprotect Password:="test" '