Thema Datum  Von Nutzer Rating
Antwort
Rot Autofilter setzen
 04.11.2024 13:59:42 Jo
NotSolved
04.11.2024 19:25:22 Gast72366
NotSolved
04.11.2024 19:41:26 Gast92503
NotSolved

Ansicht des Beitrags:
Von:
Jo		 Datum:
04.11.2024 13:59:42		 Views:
76		 Rating:
     
Antwort:
  Ja
Thema:
Autofilter setzen

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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Autofilter setzen
 04.11.2024 13:59:42 Jo
NotSolved
04.11.2024 19:25:22 Gast72366
NotSolved
04.11.2024 19:41:26 Gast92503
NotSolved