Userform nur in einen Blatt öffnen
02.06.2022 21:29:22
Andreas
Er Öffnet meine Userform mit Doppelklick in Spalte C . Das Funktioniert.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Dim x&, strClick_Eins$
If Target.Column = 3 Then
If ActiveCell.Address = strClick_Eins Then
Cancel = True
'hier code für mach was schönes beim 2.Click in die selbe Zelle-derzeit unbenutzt
Application.CutCopyMode = False
Unload UserForm100
Application.CutCopyMode = False
ActiveCell.Select
UserForm100.Show vbModeless
strClick_Eins = ""
Unload UserForm100
ActiveCell.Select
UserForm100.Show vbModeless
Exit Sub
End If
If UserForm100.Visible Then
strClick_Eins = ActiveCell.Address
UserForm100.Hide 'Userform ausblenden
Else
Application.CutCopyMode = False
ActiveCell.Select
UserForm100.Show vbModeless 'Userform anzeigen
Unload UserForm100
ActiveCell.Select
UserForm100.Show vbModeless
End If
Cancel = True
End If
End Sub
Dazu hatte ich den selben Code direkt ins Tabellenblatt geschrieben, statt wie bisher in die Arbeitsmappe.
Eine Änderung in
Private Sub Worksheet_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean) brachte aber keinen Erfolg.
Oder habe ich da einen Denkfehler?
Private Sub Worksheet_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel _
As Boolean)
Dim x&, strClick_Eins$