Hallo zusammen,
ich bräuchte mal eure Hilfe:
Ich habe eine Datei, in der in Spalte B ein Indikator steht, um welche Detailebene sich die Daten handeln, also bspw. ob die Spalte eine Produktfamilie, -gruppe oder ein konkretes Material betrifft. Die Angabe in Spalte B ist einfach mit "0", "1", etc. (bis "4") gemacht.
Nun würde ich gerne eine Gruppierung automatisch zufügen, d.h. das Makro soll mir eine Gruppierung von der ersten 0 bis zur zweiten 0 erstellen. Aber eben auch Untergruppierungen für 1 etc...
Ich habe hier z.B. schon diese Lösung gefunden, allerdings funktioniert das ja nur bei meiner untersten Detailebene, weil die Zeilen ja sonst nicht direkt untereinanderstehen..:
Dim rngZelle4 As Range
Dim strStart4 As String
Set rngZelle4 = Columns("B").Find("4", lookat:=xlWhole)
If Not rngZelle4 Is Nothing Then
strStart4 = rngZelle4.Address
Do
If rngZelle4.Row > 1 Then Range(Cells(rngZelle4.Row, 1), Cells(rngZelle4.Row, 15)).Interior.Color = RGB(255, 255, 255)
Set rngZelle4 = Columns("B").FindNext(rngZelle4)
Loop While Not rngZelle4 Is Nothing And rngZelle4.Address <> strStart4
End If
Set rngZelle4 = Nothing
Vielen Dank vorab für eure Hilfe!
|