mein alter Beitrag ist leider etwas ins Nirvana gerutscht. Daher hier noch ein Versuch.
Alter Beitrag inkl. eines Lösungsansatzes von Daniel:
https://www.herber.de/cgi-bin/callthread.pl?index=1658193
Fragestellung:
Hallo zusammen,
ich habe aktuell ein Problem in der Umsetzung bzgl. der Sortierung einer Tabelle.
Ich habe mich bereits durch mehrere Beiträge gelesen, jedoch habe nichts gefunden was ich mit _
meinen rudimentären VBA Kenntnissen auf meine Bedürfnisse hätte anpassen können. :-)
Ich importiere eine Liste aus unserer Warenwirtschaft und möchte diese für Besprechungen ein _
wenig aufbereiten.
Die Daten werden über das Rahmenprojekt vorsortiert, sodass alle Zeilen sortiert vorliegen.
Bei der exportierten Liste möchte ich nun, ähnlich der Funktion Teilergebnis, alle Zeilen, die _
in Spalte A einen identischen Wert haben gruppieren.
Wenn das entsprechende Projekt besprochen wird möchte ich gerne mit dem
+ / - Button die Gruppierung erweitern um die Details sehen zu können.
Das Ergebnis aus der Funktion "Teilergebnis" finde ich zu unübersichtlich, da die zusätzliche _
Zeile eingefügt wird.
Die normale Funktion Gruppieren finde ich deutlich besser, bei 150 Projekten die jede Woche _
besprochen werden müssen ist das per Handarbeit allerdings nicht leistbar.
Schön wäre dann noch wenn die erste Zeile der Gruppe in Fettschrift dargestellt könnte.
Ich habe mal ein ganz einfaches Beispiel angefügt.
Der Lösungsansatz ist genau wie ich mir das vorgestellt habe. Leider gibt es da jedoch noch Probleme mit dem korrekten Gruppieren.Lösungsansatz:
Hi
Sub test()
Dim Bereich As Range
With ActiveSheet.UsedRange
With .Columns(.Columns.Count + 1)
With .Resize(.Rows.Count - 1).Offset(1, 0)
.FormulaR1C1 = "=IF(R[-1]C1=RC1,1,false)"
Intersect(.Parent.UsedRange, .SpecialCells(xlCellTypeFormulas, 4).EntireRow) _
.Font.Bold = True
For Each Bereich In .SpecialCells(xlCellTypeFormulas, 1).Areas
Bereich.EntireRow.Group
Next
.ClearContents
End With
End With
End With
End Sub
Gruß Daniel
Zitat aus dem alten Beitrag:Hi Daniel!
Vielen lieben Dank für die echt schnelle Hilfe!!! :-)
Ich habe mit meinen aktuellen Kenntnissen mal versucht den Code zu verstehen. Leider ü _
berschreitet das aktuell meinen Horizont.
Wäre es mögich eine Erklärung zu diesem Bereich zu bekommen:
With .Columns(.Columns.Count + 1)
With .Resize(.Rows.Count - 1).Offset(1, 0)
.FormulaR1C1 = "=IF(R[-1]C1=RC1,1,false)"
Intersect(.Parent.UsedRange, .SpecialCells(xlCellTypeFormulas, 4).EntireRow) _
.Font.Bold = True
For Each Bereich In .SpecialCells(xlCellTypeFormulas, 1).Areas
Bereich.EntireRow.Group
Next
.ClearContents
Im ersten Feldversuch habe ich festgestellt, dass Zeilen mit unterschiedlichem Zellinhalt _
dennoch gruppiert wurden.
Es muss nach dem Merkmal "Rahmenprojekt", also nach dem Inhalt in Spalte B gruppiert werden.
Vielleicht liegt es daran. Aufgrund des mangelhaften Hintergrundwissens bekomme
ich die Anpassung des Codes leider nicht selbst bewerkstelligt.
Kannst du da nochmal unterstützen?
Gruß
Benny
Könnt ihr mich da nochmal unterstützen?
Gruß
Benny