VBA Zeilen ausblenden /aufgrund bedingter Formatierung

Einspruch.
<br />Eine Tabelle hat einen eigenen Filter und den sollte man auch so benutzen wie es gedacht ist.
<br />Bei dem Code unten spielt es keine Rolle in welcher Zeile die Tabelle ist, noch wie viele Zeilen diese hat und auch nicht wo die Spalte "Status_Schueler" ist.
<br />Andreas.
<br />Sub Ausblenden()
Dim Table As ListObject
Dim StatusCol As ListColumn
Set Table = Worksheets("Schülerliste").ListObjects("EingabeListe")
Set StatusCol = Table.ListColumns("Status_Schueler")
Table.Range.AutoFilter StatusCol.Index, "aktiv"
End Sub

Sub AlleAnzeigen()
Dim Table As ListObject
Set Table = Worksheets("Schülerliste").ListObjects("EingabeListe")
Table.AutoFilter.ShowAllData
End Sub

<br />

Hallo claus,
<br />ich habe ich habe noch eine weitere Bitte.
<br />Im Arbeitsblatt "AuswertungSchueler" gibt es einen Button PDF rechts unten.
<br />Damit speichere ich die Seite in einen Ordner
<br />Ich möchte aber nur den Bereich, der sichtbar ist speichern, weil der auch später gedruckt wird.
<br />Bis Zeile A33 und Spalte R (R33)
<br />Kannst Du mir sagen, wie ich das in den Code noch einbaue
<br />Danke und viele Grüße
<br />Andreas
<br />

Hallo Andreas,
<br />dann zeichne mal ein Makro auf, während du die Spalte J nach "aktiv" filterst. Was gibt der VBA-Editor aus?
<br />Oder stelle die Mappe mal zur Verfügung.
<br />Claus
<br />

Danke Andreas,
<br />die Tabelle ist nicht für mich und die Person für die sie ist, hat keinerlei Excelkenntnisse, somit möchte ich
<br />die Anwendung so "benutzerfreundlich", wie möglich machen.
<br />VG
<br />Andreas
<br />

Hallo Claus,
<br />da bekomme ich diese Fehlermeldung
<br />Viele Grüße
<br />Andreas
<br />


<br />