Datum

Titel

18.04.2024 21:09:11

4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren

18.04.2024 20:45:35

Worksheet_Activate für alle Sheets

18.04.2024 19:30:20

VBA - Tabelle mit Mannschaftsergebnissen sortieren

18.04.2024 18:04:29

Formel fehler Wert#

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

316to320

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Zeilen automatisch ausblenden lassen

Forumthread: Zeilen automatisch ausblenden lassen
5 Beiträge zu diesem Forumthread
Anzeige
306 Threads zu ähnlichen Themen
Top 100 Forumthreads

29.09.2003 13:04:21

Egon M.

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!

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeilen automatisch ausblenden lassen

29.09.2003 13:26:31

xXx
AW: Zeilen automatisch ausblenden lassen

29.09.2003 14:17:25

Egon M.
AW: Zeilen automatisch ausblenden lassen

29.09.2003 13:30:14

Panicman
AW: Zeilen automatisch ausblenden lassen

29.09.2003 14:20:17

Egon M.
Danke für die Rückmeldung ! o.T.

29.09.2003 14:24:17

Panicman

AW: Zeilen automatisch ausblenden lassen

29.09.2003 13:26:31

xXx

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!

AW: Zeilen automatisch ausblenden lassen

29.09.2003 14:17:25

Egon M.

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.

AW: Zeilen automatisch ausblenden lassen

29.09.2003 13:30:14

Panicman

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

AW: Zeilen automatisch ausblenden lassen

29.09.2003 14:20:17

Egon M.

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.

Danke für die Rückmeldung ! o.T.

29.09.2003 14:24:17

Panicman