Cancel=False Funktioniert nicht
11.01.2023 06:56:24
oraculix
Ich rufe meine Userform mit untenstehenden Coda auf.
Da die Userform mit Rechtsklick in einer Zelle aufgerufen wird, geht beim öffnen das Menü von Excel auf in der Userform.
Damit das Menü ausgeschaltet wird muss ich Cancel = True setzen.
Aber beim beenden der Userform kann ich dann im Tabellenblatt nicht mehr mit der rechten Maus klicken.
Habe schon versucht Cancel =False in den verschiedensten Varianten einzubauen nütz alles nichts.
Frage:
Wer weis wie man Cancel =False setzen soll damit ich in der tabelle nach beenden der Userform wieder mit Rechtsklick normal arbeiten kann?
'Userform Schauspieler öffnen per Rechtsklick
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim lLastRow&
With Schauspieler
Cancel = True
If Not Intersect(Target, Rows(1)) Is Nothing Then
.Show vbModeless
.ComboBox1.ListIndex = Target.Cells.Column - 1
End If
End With
Cancel = True
' Cancel = False' Hebt Cancel = True sofort wieder auf und das Menü erscheint dann in der Userform.
End Sub
Oraculix