Microsoft Excel

Herbers Excel/VBA-Archiv

Range: Komplette Zeilen ausblenden

Betrifft: Range: Komplette Zeilen ausblenden von: Robert
Geschrieben am: 30.07.2014 10:32:19

Hallo zusammen,

Ich steh grade irgendwie aufm Schlauch.

Ich möchte in folgender Range ("$A$1:$A$215,$A$218:$A$224,$A$445:$A$1048576") jeweils die gesamte Zeile ausblenden. Funktioniert aber nicht, er spuckt bei oVisible.Entirerow.hidden = true einen Fehler aus :(

Output.UsedRange.AdvancedFilter xlFilterInPlace, unique:=True
    Set oVisible = Output.Range("A:A").SpecialCells(xlCellTypeVisible)
    Output.ShowAllData
    oVisible.EntireRow.Hidden = True
    Set oHidden = Output.Range("A:A").SpecialCells(xlCellTypeVisible)
    oHidden.EntireRow.Delete
    oVisible.EntireRow.Hidden = False
wie komme ich hier weiter?

  

Betrifft: spuckt Fehler aus von: Rudi Maintaire
Geschrieben am: 30.07.2014 10:44:46

Hallo,
welchen?

Sollte eigentlich klappen.

Gruß
Rudi


  

Betrifft: AW: spuckt Fehler aus von: Robert
Geschrieben am: 30.07.2014 11:00:32

Hallo Rudi,

1004 - Die Hidden Eigenschaft des Range Objekts kann nicht festgelegt werden

Ich hab das ganze jetzt provisorisch mit einer Loop über alle Zeilen gelöst.
Ist natürlich bei großen Dateien nicht so prickelnd, die Version mit dem VisibleCells würde mir besser gefallen.

Solle klappen, soweit bin ich auch :D
Eine zusammenhängende Range nimmt er ohne zu murren, sobald es mehrere Bereiche werden kommt der Fehler...

Komm zu mir auf den Schlauch, ist bequem hier :)

Viele Grüße
Robert


  

Betrifft: AW: spuckt Fehler aus von: Rudi Maintaire
Geschrieben am: 30.07.2014 11:16:02

Hallo,
ich kann auch unzusammenhängende Zeilen ausblenden.

Gruß
Rudi


 

Beiträge aus den Excel-Beispielen zum Thema "Range: Komplette Zeilen ausblenden"