Zeilen automatisch ausblenden lassen

Bild

Betrifft: Zeilen automatisch ausblenden lassen
von: Egon M.
Geschrieben am: 29.09.2003 13:04:21

Hallo ich habe ein Problem,
ich möchte in einer Tabelle mit Datensätzen die Zeilen 12-20,22-30...usw. bis 1992-2000 ausblenden lassen (durch Makro), so daß nur noch jede 10. Zeile sichtbar ist und ich so nicht 2000 sondern nur noch 200 Datensätze für die Anzeige in einem Diagramm habe.
Falls mir da jemand weiterhelfen kann währe das klasse!

Bild


Betrifft: AW: Zeilen automatisch ausblenden lassen
von: xXx
Geschrieben am: 29.09.2003 13:26:31

Hallo,
in ein Modul:

Sub ausblenden()
  Dim z As Long
  For z = 12 To 1992 Step 10
  Range(Rows(z), Rows(z + 8)).Hidden = True
  Next z
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de

P.S. Das Forum lebt auch von den Rückmeldungen der Frager an die Antworter!


Bild


Betrifft: AW: Zeilen automatisch ausblenden lassen
von: Egon M.
Geschrieben am: 29.09.2003 14:17:25

Hallo xXx,

es hat funktioniert! Ich habe nur noch ein:

For y = 2 To 10
Rows(y).EntireRow.Hidden = True
Next y

eingefügt (für die Zeilen von 2-10) und es war genau das was ich wollte.
Danke
Egon M.


Bild


Betrifft: AW: Zeilen automatisch ausblenden lassen
von: Panicman
Geschrieben am: 29.09.2003 13:30:14

Hallo Egon,

versuchs mal hiermit: ( in Modul kopieren)


Sub Jede_10_Zeile_Ausblenden()
Dim I As Double
For I = 20 To 2000 Step 10
    Rows("" & I + 1 & ":" & I + 9 & "").Select
    Selection.Rows.Group
Next
ActiveSheet.Outline.ShowLevels RowLevels:=1
ActiveWindow.DisplayOutline = False
Range("A1").Select
End Sub


Gruß
Holger


Bild


Betrifft: AW: Zeilen automatisch ausblenden lassen
von: Egon M.
Geschrieben am: 29.09.2003 14:20:17

Hallo Panicman,

danke für die hilfe, da das Macro von xXx aber ein wenig schneller geht habe ich seins genommen.
Was jetzt nicht bedeuten sollte das ich mich nicht über Deine schnelle Hilfe gefreut habe.

Danke
Egon M.


Bild


Betrifft: Danke für die Rückmeldung ! o.T.
von: Panicman
Geschrieben am: 29.09.2003 14:24:17




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Zeilen automatisch ausblenden lassen"