Leere Zellen mit Formeln ausblenden

[sawosch]

Hallo :)

Ich möchte per Makro alle Zellen ausblenden die keinen Wert erhalten und mache das mit folgender Formel:

Code:

Dim Zelle As Range
Dim ws As Worksheet
Set ws = Application.ThisWorkbook.ActiveSheet
For Each Zelle In ws.Range("c27:c44").Cells
If Zelle = "" Then
ws.Rows(Zelle.Row).Hidden = True
End If
Next

Nun habe ich in den Zellen allerdings Formeln die mit "Wennfehler" nicht angezeigt werden so lange sie keine Werte aufweisen.
Gibt es eine Möglichkeit diese "leeren" Zellen ohne Ergebnisse auszublenden?

[Kuwer]

Hallo,

Gibt es eine Möglichkeit diese "leeren" Zellen ohne Ergebnisse auszublenden?

Sollte mit Deinem Code gehen.

Gruß Uwe

[MisterBurns]

Simple Lösung: Autofilter. Lässt sich auch toll mit dem Makrorekorder aufzeichnen.

[sawosch]

Hallo,


Sollte mit Deinem Code gehen.

Gruß Uwe

Hallo Uwe

Macht sie leider nicht da die Zellen Formeln enthalten. Erst wenn ich die Formel in der Zelle lösche wird sie ausgeblendet.

Gruss
Sandro

[steve1da]

Hola,

wie lautet denn deine Formel?

Gruß,
steve1da

[Kuwer]

Hallo Sandro,

zeige bitte so eine verhindernde Formel.

Gruß Uwe

[sawosch]

Simple Lösung: Autofilter. Lässt sich auch toll mit dem Makrorekorder aufzeichnen.

Hallo MisterBurns

Simple aber genial :)

mit dem Code funktioniert es:

Code:

ActiveSheet.Range("$c$27:$c$60").AutoFilter Field:=1, Criteria1:="<>"

---

Hallo Sandro,

zeige bitte so eine verhindernde Formel.

Gruß Uwe

Hoi Uwe

Vielen Dank für die Hilfe. Konnte das Problem lösen. Der Vollständigkeitshalber hier die verhindernde Formel in einer der Zellen:

Code:

=WENNFEHLER(INDEX(Tabelle3!S:S;AGGREGAT(15;6;ZEILE(Tabelle3!$B:$B)/(Tabelle3!$B:$B=$C$18);ZEILE(Tabelle3!A2)));"")