Clever-Excel-Forum

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

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

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