VBA: Zeilen nach einer Bedingung im bestimmten Bereich ausblenden

[NobX]

Hallo liebe Excel Freunde im Forum,

leider komme ich nach langem "Basteln" nicht selbst auf die Lösung:

In der beigefügten Tabelle ist beschrieben, dass ich in einem Zellbereich, den ich mit dem Namen "Eingabe" benannt habe, mit einem Makro die ganzen Zeilen dann ausblenden möchte, wenn in der Zelle ab B6 bis zum Ende des fiktiven Bereiches (bei Zeile 50) kein Wert enthalten ist. Das Makro in der Tabelle läuft zwar ordentlich durch, tut aber nicht, das was es soll. Vielleicht hat jemand von Euch eine Idee, was ich ändern muss, um zu erreichen, dass die leeren Zeilen im Bereich "Eingabe" ausgeblendet werden und die übrigen sichtbar bleiben.

Grüße
NobX

[Kuwer]

Hallo,

Sub Bereich_Kuwer()
  Dim x As Long
  With Range("Eingabe").Columns(2)
    For x = 1 To .Cells.Count
      .Cells(x).EntireRow.Hidden = .Cells(x).Value = ""
    Next x
  End With
End Sub

Gruß Uwe

[RPP63]

Moin!
Ist ein Einzeiler:

Range("Eingabe").Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

oder als Switch-Makro:

With Range("Eingabe").Columns(2).SpecialCells(xlCellTypeBlanks).EntireRow
  .Hidden = Not .Hidden
End With

Gruß Ralf