Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema " Zeilen automatisch ausblenden lassen"
Zeilenhöhe in cm festlegen Summe gefilterter Zeilen
Zeilenumbruch Leere Zeilen löschen
Spalten/Zeilen aus- und einblenden Zeilenumbruch in Formel erzwingen
Zeilen und Spalten über ein Drehfeld ein- und ausblenden Alle Kopf-/Fußzeilen-Festlegungen löschen
Fußzeilen beim Öffnen eintragen Zellinhalte zeilenweise sortieren