|
Hallo zusammen,
ich komme irgendwie nicht weiter und bräuchte daher dringend Hilfe.
Ich habe eine Datei, die gruppiert werden soll. In der zweiten Spalte stehen die Werte 0-4, die angeben, welches Hierarchielevel es ist. Nun sollen die Daten in Abhängigkeit davon eingeklappt werden. Bisher bin ich soweit mit meinem Code gekommen, komme aber nicht weiter..
Wäre über jede Hilfe dankbar!
Option Explicit
Sub GruppiereAutomatisch()
Const SpalteUrsprung As Long = 2 'die Hierachie-Ebene ensteht in Spalte B
Const ErsteZeile As Long = 2 'Hierachie-Eintragungen ab Zeile 2
Dim LetzteZeile As Long
Dim rMaster As Range
Dim rSlave As Range
Dim i As Integer, j As Integer, arr() As Variant
With ActiveSheet
'**********************
'alle Gruppen aufheben
On Error Resume Next
For i = 1 To 8
.Cells.Rows.Ungroup
Next i
On Error GoTo 0
'**********************
LetzteZeile = .Cells(.Rows.Count, SpalteUrsprung).End(xlUp).Row
'jede Zelle als "Master" durchlaufen
For i = 0 To 4
ReDim arr(0)
For Each rSlave In .Range(.Cells(ErsteZeile, SpalteUrsprung), .Cells(LetzteZeile + 1, SpalteUrsprung))
If rSlave.Value = i Then
j = j + 1
'MsgBox (rSlave.Row)
ReDim Preserve arr(j - 1)
arr(j - 1) = rSlave.Row
'.Range(.Cells(rSlave.Row, SpalteUrsprung), .Cells(rSlave.Row - 1, SpalteUrsprung)).Rows.Group
End If
Next rSlave
j = 0
Next i
End With
End Sub
|