Wie kann ich jede x-te Zeile einer Exceltabelle anzeigen lassen?

8 Antworten

Vom Beitragsersteller als hilfreich ausgezeichnet
Kometenstaub
23.06.2014, 14:32

Vielleicht hilft das hier weiter?

http://www.ms-office-forum.net/forum/showthread.php?t=154302
MoeS1973
23.06.2014, 14:51

Kick and rush kann man das in VBA machen. Nicht schön aber selten ;)

Sub Verstecken()
Dim letztezeile As Variant
letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
 Rows("2:20000").EntireRow.Hidden = True
 i = 61
 Do
 
 Rows(i).EntireRow.Hidden = False
 i = i + 60
 If i > letztezeile Then Exit Sub
 
 Loop

End Sub
Iamiam  24.06.2014, 00:08

DH!
Nur würde ich letztezeile As Integer klassifizieren und mit i = 1 oder 2 anfangen.
ShitzOvran
Nutzer, der sehr aktiv auf gutefrage ist
im Thema Microsoft Excel
23.06.2014, 14:42

quick und dirty in VBA. (Der Code ist nicht schön, aber sollte funktionieren)

Sub Makro1()

Dim letztezeile, von, bis, ende As Integer

letztezeile = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
Debug.Print letztezeile

ende = Round(letztezeile / 60, 0)

von = 1
bis = 59

For i = 1 To ende
    Rows(von & ":" & bis).Select
    Selection.EntireRow.Hidden = True
    
    von = von + 60
    bis = bis + 60
    
Next i

End Sub
augsburgchris
Nutzer, der sehr aktiv auf gutefrage ist
im Thema Microsoft Excel
23.06.2014, 16:26

Hilfsspalte anlegen:

=WENN(GANZZAHL(ZEILE(A1)/60)=ZEILE(A1)/60;1;"")

dann nach nicht 1 filtern und den Rest löschen.
Iamiam
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
23.06.2014, 23:58

in einem zweiten Blatt kannst Du damit eine Kurzliste erstellen, Formel in A1:

=index(Tabelle1!A:A;Zeile()*60)

Mit einem Summanden kannst Du die Anfangszeile verändern:

=index(Tabelle1!A:A;Zeile()*60-58)

beginnt mit der 2.Zeile, dann die 62., die 122., 182. usw.

Und wenn Du mit dieser Formel nicht in A1, sondern in C1 beginnst, erhältst Du links zwei Leerspalten für Kommentare.