left Mouse Click Ereignis- wenn
30.09.2023 20:00:25
Andreas
Villeicht gibt es die Möglichkeit, beim Code unten folgendes anzupassen:
Wenn im aktiven "Sheet Bearbeiten" die Userform100 und Userform10 sichtbar, dann soll bei einem "einfach links Klick" mit der Maus in der Zelle "C" das Userform10 mit folgenden Code neu gestartet werden.
Unload UserForm10
With UserForm10
''Start Multipage
UserForm10.MultiPage3.Value = UserForm10.MultiPage3.Pages.count - 10
UserForm10.Show vbModeless
End With
Annsonsten macht der Code unten genau das was er soll:
Doppelklick in aktives Sheet bei Zelle "C" öffnet die Userform100 und danach die Userform10, die MultiPage enthält, und farbige CommandButtons, die nun auch ihre Farbe anpassen, wenn sich Zellwerte ändern ohne die Haupt-Userform 100 immer Schließen und öffnen zu müssen. Diese bleibt meistens geöffnet.
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim X&, strClick_Eins$
If Sh.Name = "Bearbeiten" Then
If Target.Column = 3 Then
''Übergabe der aktiven Zeile in "Tabelle Auswertung" P2 für Automatik
Sheets("Auswertung").Range("P2").Resize(1, 12).Value = _
Cells(ActiveCell.Row, 1).Resize(1, 12).Value
End If
If UserForm100.Visible Then
strClick_Eins = ActiveCell.Address
Unload UserForm10
With UserForm10 ''Start Multipage
UserForm10.MultiPage3.Value = UserForm10.MultiPage3.Pages.count - 10
UserForm10.Show vbModeless
End With
UserForm10.Show vbModeless
Else
Application.CutCopyMode = False
ActiveCell.Select
UserForm100.Show vbModeless
UserForm10.Show vbModeless
Unload UserForm10
ActiveCell.Select
UserForm10.Show vbModeless
End If
End If
End Sub
Gruß Andreas