Automatisches Ausblenden über Makro

[Lars1904]

Hallo,

ich bin was Makros und andere Programmierung betrifft absoluter Anfänger. Deswegen meine beiden Fragen ganz offen formuliert:

1) Gibt es über ein Makro die Möglichkeit alle Zeilen, in denen in der Spalte A ein #NV Fehler vorliegt, auszublenden?

2) Gibt es über ein Makro die Möglichkeit alle Zeilen, die in Spalte A leer sind, auszublenden?

Für andere Möglichkeiten bin ich ebenfalls offen.

Vielen Dank vorab!

[WillWissen]

Hi Lars,

probier's mal mit dem Autofilter.

[Lars1904]

Kannst du mir kurz erklären wie genau ich dort vorgehen muss?

Wäre echt spitze, danke!

[WillWissen]

HI,

Tabelle markieren, über Menü Daten den Filter setzen und nach drücken des Filterpfeils in Spalte A die Häkchen bei #NV und leer rausnehmen. Dann werden alle Zeilen, die mit den beiden Bedingungen vorhanden sind, ausgeblendet.

[Lars1904]

Danke! Vom Grundsatz her verstanden.

Ich habe jedoch das Problem, dass ich über 50 Tabellenblätter habe. Gibt es hierfür auch eine Möglichkeit dies automatische quasi per Knopfdruck für alle Tabellenblätter durchlaufen zu lassen?

[Käpt'n Blaubär]

Hallo,

Gibt es hierfür auch eine Möglichkeit dies automatische quasi per Knopfdruck für alle Tabellenblätter durchlaufen zu lassen?

ja, das geht mit VBA.
Allerdings hätte ich erst heute Abend die Zeit dazu, was zu basteln.

[Käpt'n Blaubär]

Hallo Lars,

Gibt es hierfür auch eine Möglichkeit dies automatische quasi per Knopfdruck für alle Tabellenblätter durchlaufen zu lassen?

Ich habe dann doch noch Nachfragen.

Soll der Durchlauf durch alle Blätter immer beim Öffnen der Datei oder wirklich, ... also nicht nur quasi ...
auf Knopfdruck erfolgen?

Was soll beim Durchlauf passieren? Gibt es beispielsweise einen Suchbegriff, der in den Blättern gefunden werden soll?
Vielleicht soll ja auch nur die Blattanzahl ermittelt werden. Was weiß denn ich?

Und dann wolltest Du ja ursprünglich auch noch irgendwas ausblenden, wenn ich mich recht erinnere, Hat sich das
zwischenzeitlich erledigt?

[WillWissen]

Hallo Peter,

dem TE geht es darum, dass er alle 50 Blätter auf Knopfdruck filtern kann, um Zeilen, in denen in Spalte A #NV steht oder die leer sind, auszublenden. Das Setzen des Filters und das Wegfiltern von #NV und (Leer) könnte ja eventuell aufgezeichnet werden; das Anwenden auf alle Arbeitsblätter müsste dann aber im Code ergänzt werden. Wie du weißt, passen VBA und ich (immer) noch nicht richtig zusammen.  :32:

[Kuwer]

Hallo Lars,

Sub FehlerUndLeereAusblenden()
  On Error Resume Next
  Application.Union(Columns(1).SpecialCells(xlCellTypeFormulas, 16), Columns(1).SpecialCells(xlCellTypeBlanks)).EntireRow.Hidden = True
  On Error GoTo 0
End Sub

Gruß Uwe

[Steffl]

Hallo Uwe,

super Lösung      

aber da der TE das über mehrere Tabellenblätter haben, habe ich mir erlaubt deinen Code zu ergänzen.

Code:

Sub FehlerUndLeereAusblenden()
 'von Kuwer
 Dim wksBlatt As Worksheet
 
 On Error Resume Next
 For Each wksBlatt In ThisWorkbook.Worksheets
   Application.Union(wksBlatt.Columns(1).SpecialCells(xlCellTypeFormulas, 16), wksBlatt.Columns(1).SpecialCells(xlCellTypeBlanks)).EntireRow.Hidden = True
 Next wksBlatt
 On Error GoTo 0
End Sub