Hallo,
keine Ahnung ob das in den anderen Foren schon gelöst wurde, oder ob dir die dortige Lösung gefällt. Unabhängig davon hier mal mein Vorschlag zu dem Thema.
Code für das Modul "Diese Arbeitsmappe". Dieser Code stellt im Fall einer Zerstörung die Struktur nach jedem Öffnen wieder neu her. Wenn du das nicht willst, kannst du auf diesen Code auch verzichten.
Private Sub Workbook_Open()
Dim lvl As Byte
Dim r As Long
On Error Resume Next
With Sheets("Tabelle1")
.Outline.SummaryRow = xlAbove
For r = 2 To .Cells(.Rows.Count, 1).End(xlUp).Row
If Val(.Cells(r, 1)) > 8 Then lvl = 8 Else lvl = .Cells(r, 1)
.Cells(r, 1).EntireRow.OutlineLevel = lvl
Next r
End With
End Sub
Code in dem entsprechenden Tabellenmodul wo sich die Ordnersstruktur befindet. z.B. das Modul "Tabelle1"
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Columns(1)) Is Nothing Then
If Val(Target.Value) > 8 Then lvl = 8 Else lvl = Target.Value
Target.EntireRow.OutlineLevel = lvl
End If
End Sub
Wenn du nun in Spalte A einen Wert einträgst, wird dieser Wert als Gruppierungsebene verwendet. Probiers aus.
Gruß Mr. K.
|