Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1072to1076
1072to1076
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gruppieren

Gruppieren
15.05.2009 10:31:54
utsch

Hai,
als Anlage eine Datei. Ich möchte automatisch gruppieren, wie im Titel 1 als Beispiel. Möchte dies auch automatisch in den anderen Titel machen lassen. Geht das in irgendeiner Form. Meine Ursprungstabelle ist nämlich sehr viel größer und sehr mühsam wenn man jeden Untertietl und Titel gruppieren muss. Die Autogliederung hab ich schon probiert. Funktioniert in dem Fall leider nicht oder mach ich was falsch.
Dank Euch im Vorraus
Utsch
https://www.herber.de/bbs/user/61846.xls

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Gruppieren
15.05.2009 13:33:29
Daniel
Hi
probier mal dashier:

Sub Gruppieren()
Dim i As Long
Dim E1Zeile As Long
Dim E2Zeile As Long
Dim E1 As Boolean
Dim E2 As Boolean
Const spPos = 2
On Error Resume Next
Do
Cells.EntireRow.Ungroup
Loop While Err = 0
On Error GoTo 0
For i = 10 To Cells(Rows.Count, 1).End(xlUp).Row
Select Case Cells(i, spPos).Value
Case ""
Case Else
Select Case Len(Cells(i, spPos)) - Len(Replace(Cells(i, spPos), ".", ""))
Case 0
If E1 Then
Range(Rows(E2Zeile), Rows(i - 1)).EntireRow.Group
E2 = False
Range(Rows(E1Zeile), Rows(i - 1)).EntireRow.Group
End If
E1Zeile = i + 1
E1 = True
Case 1
If E2 Then
Range(Rows(E2Zeile), Rows(i - 1)).EntireRow.Group
End If
E2Zeile = i + 1
E2 = True
Case Else
End Select
End Select
Next
End Sub


das erkennungsmerkmal fürs Gruppieren ist die Anzahl der Punkte in Spalte 2, dh. diese muss sauber gepflegt sein (Pos "1.1." wäre z.B falsch, es müsste heissen "1.1" damit es richtig erkannt wird.
Gruß, Daniel

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige