Hallo nochmal,
Mir ist grad eingefallen, es geht sogar noch viel einfacher!
Verzichte auf sämtlichen bisher von mir hinzugefügten Code oder irgendwelche Checkboxen und verwende einfach das Selection-Change Ereignis.
Der folgende Code gehört in das Modul Tabelle1 und gut ist.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("R17:AK600")) Is Nothing And Intersect(Target, Range("A:A")) Is Nothing _
And Target.Interior.ColorIndex = xlNone Then
If Target.Cells(1).Value = Chr(163) Then
Target.Cells(1).Value = "R"
Else
Target.Cells(1).Value = Chr(163)
End If
If Not Intersect(Target, Range("R:U")) Is Nothing Then
Target.EntireRow.Hidden = Target.Cells(1).Value = "R"
End If
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Worksheet_SelectionChange Target
Cancel = True
End Sub
Ab jetzt kannst du einfach eine Zelle anwählen oder doppelt darein klicken und der Haken wird gesetzt oder entfernt. Ganz einfach. Und du hast auch keine Probleme wenn du dich dann doch mal verklickt hast, die ausgeblendete Zeile manuell wieder einzublenden und den Haken zu entfernen.
Ein Beispiel: https://workupload.com/file/YdGHQ2yV6Ja
Gruß Mr. K.
|