Hallo,
ich habe folgenden code zum Ausblenden von Zellen mit einer Formel.
Wenn ich dann "runterziehe" sind die ausgeblendeten Zeilen alledings mitbetroffen.
Tatsächlich weggefilterte Zeilen werden nicht durch runterziehen betroffen.
Was mus ich ändern, damit hier im Code gefiltert wird, anstatt ausgeblendet?
Sub Textinhalt_ausblenden()
Dim zeile As Integer
For zeile = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(zeile, 1).HasFormula = False Then Rows(zeile).EntireRow.Hidden = True 'Spalte A = 1 usw.
Next zeile
End Sub
Vielen Dank!!
|