Hallo zusammen,

ich möchte gerne in einem Tabellenbaltt, dass beim Start der Datei in diesen Blatt in der Spalte K immer der Filter Auf "TC" automatisch auf 2TC" gesetzt wird und dieses auch nicht vom User geändert werden kann. Chat GPT hat mier hierzu die folgende Anweisung gegeben.

Passt aber nicht.

Vielen Dank vorab für Eure Unterstützung. Vielleicht ist mein Anliegen ja auch gar nicht umsetzbar.

Private Sub Workbook_Open()
    Call LockFilterToTC
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
    If Sh.Name = "Invest-Plan" Then
        Call LockFilterToTC
    End If
End Sub

Sub LockFilterToTC()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Invest-Plan")
    
    Application.EnableEvents = False
    Application.ScreenUpdating = False
    
    ' Bestimme die letzte gefüllte Zeile in Spalte A
    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
    
    ' Überprüfen, ob die Zeilenanzahl angemessen ist
    If lastRow >= 8 Then
        ' Zuerst alle Zeilen im angegebenen Bereich einblenden
        On Error Resume Next
        ws.Rows("8:" & lastRow).EntireRow.Hidden = False
        On Error GoTo 0
        
        ' Zeilen ohne "TC" in Spalte K ausblenden
        Dim cell As Range
        For Each cell In ws.Range("K8:K" & lastRow)
            If cell.Value <> "TC" Then
                cell.EntireRow.Hidden = True
            End If
        Next cell
    End If
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub