Listen nach Spalteninhalt gruppieren

Hallo,
Ich habe das Problem, dass ich eine Tabelle habe in welcher eine Stückliste mit einer Auflösung über verschiedene Stufen ist. In einer Spalte steht auch die Stücklistentiefe. Nun würde ich gern die einzelnen Unterstücklisten gruppieren um die Überscihtlichkeit zu erhöhen.
Hier mal ein Beispiel:
Stücklistentiefe I Stücklistenpositionsnummer I Materialbezeichnung I ...
0 0 Material
.1 1 Material a
.1 2 Material b
..2 1 Material c
..2 2 Material d
.1 3 Material e
Das ganze ist in einer Tabelle mit 500 Zeilen. Die Formatierung der Spalte A ist wie im Beispiel. Auf Grund der Menge der Daten gern mit VBA. Per Hand ist es möglich nur dauert es ewig und auch die Excel Funktion Teilergebniss ist nicht hilfreich.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ralf,
ich denke ich habe die Aufgabe verstanden, dann ist es kein Problem.
Das untere Makro in ein Modulblatt kopieren und laufen lassen.
Bedingung: - 1 Hilfsspalte, bei mir ist es Spalte F, Du kannst jede andere nehmen.
İn diese Const Znweisung musst du deine Hilfsspalte angeben: - Const HilfSpa = "F2"
Was ich in der Hilfsspalte brauche ist den Text der Unterlisten wie: Fahrwerk, Innenausstattung
Ich habe gesehen das dieser Text ja auch in der Bauteibeschreibung vorkommt.
Ein Makro kann aber nicht wissen ob das der Unter-Listen Name ist, oder Material Name.
Wenn ich eine Liste mit diesen Namen bekomme kann ich die Spalte C komplett ausfüllen.
Diese Hilfsspalte kann nachher gelöscht werden. Probier es bitte einmal aus.
mdg Piet

Option Explicit      '6.6.2016  Piet für Herber Forum
Const HilfSpa = "F2"  'Hilfs-Spalte
Const AutoAnf = "E2"  'Auto-Spalte
'Hifsspalte C erzeugen, Werte aus E kopieren
Sub Hilfsspalte_erzeugen()
Dim AutoEnd As String, UList As String
Dim Auto As Object, NList As String, n As Integer
AutoEnd = Range("E50000").End(xlUp).Address
UList = Range(HilfSpa).Value
NList = Range(HilfSpa).Offset(1, 0)
For Each Auto In Range(AutoAnf, AutoEnd)
If Auto.Value = Empty Then Exit For
'Name der Unter-Liste + next UL-Name
'bei next UL-Liste Namen übernehmen
If Auto.Value = NList Then
n = n + 1  'next UL Name, n+1
UList = Range(HilfSpa).Offset(n, 0)
NList = Range(HilfSpa).Offset(n + 1, 0)
Else  'Spalte C U->Liste ausfüşşen
Auto.Offset(0, -2) = UList
End If
Next Auto
End Sub

Beliebteste Forumthreads (12 Monate)

Listen nach Spalteninhalt gruppieren

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Listen nach Spalteninhalt gruppieren

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread