Hallo zusammen,

ich bin ein absoluter Anfänger auf dem Gebiet Excel VBA und benötige für eine Trackingliste Ihre/Eure Unterstützung.
Ich bin eigentlich eher im Werkstattbereich tätig und hoffe deshalb, das mir einer von Euch bei dem Thema kurz unter die Arme greifen kann.
Vermutlich ist es für Euch eine sehr einfache Sache, aber ich beise mir schon seit drei Stunden die Zähne aus :(

Es ist eine relativ einfach aufgebaute Liste mit mehreren Spalten. Pro Fahrzeug, eine Zeile mit mehreren Spalten.

Ich möchte nun oben zwei Schaltflächen integrieren, die ich auch schon eingebaut habe.
Schaltfläche 1: fertige Fahrzeuge ausblenden
Schaltfläche 2: alle Fahrzeuge anzeigen

Wenn ich später auf Schaltfläche 1 klicke, möchte ich, dass das Makro überprüft, ob in der Spalte AI der Text "ja" steht. Falls dem so ist, soll die jeweilige Zeile ausgeblendet werden. 

Die Tabelle beginnt ab Zeile 8 und wird nach unten täglich erweitert. 
Ich möchte also, sobald ich die Schaltfläche 1 klicke, dass alle Zeilen, welche in Ihrer Spalte AI den Text "ja" haben, ausgeblendet werden und dass alle Zeilen wieder eingeblendet werden, sobald ich die Schaltfläche 2 betätige. Wie ich die Schaltflächen einem bestimmten Makro zuweise, habe ich bereits herausgefunden.

Bisher habe ich mir folgenden Code aus unterschiedlichsten YouTube Tutorials zusammengebaut, der aber leider nicht funktioniert.....

Deshalb mit Bitte um Eure Unterstützung!

Viele Dank vorab.

Beste Grüße
Michael Probst

Sub ZeileAusblenden()
   
    
    With Tabelle1
        lngZeileMax = .Range("A" & .Rows.Count).End(xlUp).Row
        For lngZeile = 8 To lngZeileMax
        
        If .Range("AI" & lngZeile).e.Value = "ja" Then
        .Rows(lngZeile).Hidden = True
        
        End If
        
        Next lngZeile
    
End With
End Sub

        
Sub AlleEinblenden()

    Tabelle1.Rows.Hidden = False
    
End Sub