Hallo liebes Forum,

ich habe schon viel verucht, gegoogelt und rumprobiert - ich komme leider aber partout zu keiner Lösung...ich hoffe, dass ihr mir vielleicht weiterhelfen könnt.

Im Zuge meiner Arbeit lege ich derzeit ein riesen Monstrum von Tabelle an. Mit allen Projekten (abgeschlossen und aktiv) sowie allen dazugehörigen Daten. Da die Tabelle über 1000 Zeilen aufweist, versuche ich es, diese überall dort wo es möglich ist zu kürzen/vereinfachen.

Gerne würde ich z.B. sämtliche Projekte, welche bereits abgeschlossen wurden, mit einem Klick aus- und wieder einblenden können (z.B. über eine Schaltfläche oder einem Kontrollkästchen).

Um das umsetzen zu können, bin ich hingegangen und habe eine neue Spalte (AO) mit "Projekt inaktiv?" angelegt. Abgeschlossene Projekte wurden dann in der jeweiligen Zeile mit einem "x" versehen.

Meine Idee ist es jetzt, in VBA einen Befehl so zu schreiben, dass, falls in der Spalte AO eine Zeile ein "x" aufweist, dass diese Zeile dann komplett ausgeblendet wird. Bei einem weiteren drücken der Schaltfläche werden diese dann aber wieder eingeblendet.

Ich habe mittlerweile einige Sachen ausprobiert und manche haben sogar teilweise fast geklappt....allerdings muss man dazu sagen, dass ich VBA absoluter Neuling bin und ich mich noch schwer tue, Befehle zu schreiben und auf Fehler hinweg zu untersuche...

Ein Befehl lautet z.B. wie folgt, wobei dieser auch nur aus mehreren Versuchen irgendwie "zusammengefrikkelt" wurde.

Sub Aaaaussssblendentest()
Application.ScreenUpdating = False
For i = 1 To 1000
If Cells(i, 1).Value = "x" Then
    Selection.EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
Range("AO1").Select
End Sub

Über eine kurze Hilfe würde ich mich sehr freuen!!

Besten Dank!!!!

Marius