Microsoft Excel

Herbers Excel/VBA-Archiv

Zeilen automatisch gruppieren

Betrifft: Zeilen automatisch gruppieren von: MSuerstedt
Geschrieben am: 08.11.2012 14:30:20

Hallo,

ich möchte in einer Datei mit ca 200000 Datensätzen (ca. 30 Spalten) nach den Namen und Vornamen automatisch gruppieren. In der Testdatei habe ich ein paar Daten eingefügt. https://www.herber.de/bbs/user/82528.xls

Ich könnte zwar alle 200000 DS ungefähr so,

Rows("Zeilex:zeiley").Select
Selection.Rows.Group
ActiveWindow.SmallScroll Down:=-60

per Hand gruppieren, scheint mir aber lästig.

Hat jemand eine Idee?

Gruß
Michael

  

Betrifft: AW: Zeilen automatisch gruppieren von: ChrisL
Geschrieben am: 08.11.2012 14:56:04

Hi Michael

Wenn ich Dich richtig verstanden habe:

Sub DeinMakro()
Dim i As Long

For i = 1 To Range("a65536").End(xlUp).Row
    If i = 1 Then
        Call DoGroup(i)
    Else
        If Cells(i, 1) <> Cells(i - 1, 1) Or Cells(i, 2) <> Cells(i - 1, 2) Then _
        Call DoGroup(i)
    End If
Next i
ActiveSheet.Outline.ShowLevels RowLevels:=1
End Sub

Private Sub DoGroup(i As Long)
Dim ii As Long

ii = i
Do While Cells(ii, 1) = Cells(i, 1) And Cells(ii, 2) = Cells(i, 2)
    ii = ii + 1
Loop
ii = ii - 1
If i <> ii Then
    i = i + 1
    Rows(i & ":" & ii).Rows.Group
End If
End Sub

Gruss
Chris


  

Betrifft: AW: Zeilen automatisch gruppieren von: MSuerstedt
Geschrieben am: 08.11.2012 15:17:04

Hallo Chris,

vielen Dank, das ist genau das was ich wollte. :-)

Gruß
Michael


 

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