Gruppieren
31.10.2014 13:59:24
Stef26
bräuchte mal Unterstützung von euch...
Ich lad mir aus SAP immer wieder SAP Stücklisten aus.
Dies sind Mehrstufig und enorm groß.
Um einen besseren Überblick in Excel zu erreichen würde ich diese gerne Gruppieren.
In der Spalte A steht die Stufe:
Beispiel (soll nur als Hinweis für die Struktur gedacht sein)
Stufe Teil
1 Kaufteil
2 Gerät
3 Blechtei 1
4 Blech
4 Niet
4 Schraube
3 Blechteil 2
4 Blech
4 Niet
4 Schraube
2 Bedienungsanweisung
2 Netzstecker
3 Netzteil
3 Anschlussleitung
1 Rechnung
Hab auch so was ähnliches schon im Netz gefunden, allerdings sind meine VBA Kenntnisse nicht ausreichend um das für meine Zwecke umzuschreiben...
Hier den Code den ich gefunden habe...
Sub Gruppieren()
Dim Zelle As Range, wks As Worksheet
Dim Stufe As String
Set wks = ActiveSheet
With wks
For Each Zelle In .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
If Zelle.Value = 1 Then
Zelle.Rows.Group
End If
Next
End With
End Sub
Hier wird allerdings nur die Stufe 1 Gruppiert. Ich möchte alle (bis zu 9 Stufen)Gruppieren lassen, damit ich die Struktur besser überblicken kann.
Liebe Grüße
Stefan