Office: in einer Tabelle eine zweite aufklappen

Hallo,

ich habe schon die Suche benutzt, aber bisher nix passendes gefunden.

ich möchte zwei Tabellen (aus Access) in einer Excel-Arbeitsmappe so zusammenfutteln, dass man in der Grundansicht "Tabelle1" die Haupttabelle sieht und über ein "+" eine weitere Detailtabelle mit weiteren Zeilen und Spalten aufklappen kann.

Die beiden Tabellen stehen jeweils über eine Nummer in Beziehung.

Beispiel:

Grundtabelle:

|Nr|Info1|IndexAnfang|IndexEnde
+|100|A|1|4
+|200|D|1|5
+|300|H|1|10

wenn ich auf das "+" vor 200 drücke, dann soll sich die Detailtabelle aufklappen, in der auch Eintragungen erfolgen sollen.

Grundtabelle mit aufgeklappter Detailtabelle:

|Nr|Info1|IndexAnfang|IndexEnde
+|100|A|1|4
+|200|D|1|5
L
NR|INDEX|Info2|Info3|IndexKorrektur
200|1|...|...|_|
200|2|...|...|_|
200|3|...|...|_|
200|4|...|...|_|
200|5|...|...|_|
+|300|H|1|10

Wie kann man sowas leicht umsetzen?
Wäre echt nett, wenn mir da jemand helfen könnte.

Viele Grüße,
Mat

 

Ich möchte quasi analog wie in Access - wo man Unterdatenblätter zu einer Tabelle einfügen kann - in Excel zu einer Tabelle eine "Untertabelle" hinzufügen und diese über das "+" ein- und ausblenden können. Die Verknüpfung erfolgt eindeutig über die Nummer.

 

Hallo!

Schau mal im Menü Daten nach "Gliederung und Gruppierung".
(Vorher die einzuklappenden Zeilen markieren.)

 

okay danke, das geht in die richtige Richttung mit Gliederung, aber das Markieren bei 50.000 Zeilen würde einfach zu lange dauern.

Nehmen wir mal an, ich habe die Tabelle für Excel so aufbereitet, dass die Grund- und Detailtabelle schon in einer Tabelle zusammenstehen.

Kann man Excel sagen, dass er die Tabellen automatisch nach Nummern zusammenklappt und mit einem "+" versieht? Problem ist, dass in jeder Detailtabelle die Zeilenanzahl variiert.

 

Hallo!

Wenn deine Nummern ab A2 abwärts untereinanderstehen (geordnet und lückenlos), dann müsste dieser Code laufen:

Code:

Sub test()
Dim Zeile As Long, Anfang As Long, Ende As Long
Zeile = 2
Do
    Do Until Cells(Zeile, 1) = Cells(Zeile - 1, 1)
        Zeile = Zeile + 1
    Loop
    Anfang = Zeile
    Do Until Cells(Zeile, 1) <> Cells(Zeile - 1, 1)
        Zeile = Zeile + 1
    Loop
    Ende = Zeile - 1
    Rows(Anfang & ":" & Ende).Group
Loop Until Cells(Zeile, 1) = ""
End Sub

 

SUPER! :roll:

und jetzt noch eine Sache, ich möchte das die alle schon zusammengeklappt sind. Geht das?


Edit:
Okay, hat sich erledigt.... Danke nochmal!

 

öhm vielleicht doch noch eine kleine Sache:

Ich will gerne zwei mal aufklappen können. Im Prinzip ist eine weitere Nummer hinzu gekommen:

Es sollte irgendwie so aussehen:

unaufgeklappt:

Nr1|Nr2|Info1|IndexAnfang|IndexEnde
++001|100|A|1|4
++002|200|D|1|5
++003|300|X|1|10

zweifach aufgeklappt:

Nr1|Nr2|Info1|IndexAnfang|IndexEnde
++001|100|A|1|4
+002|200|D|1|5
L
+002|200|D|1|5
+002|300|D|1|5
+002|400|D|1|5
L
002|400|D|1|5
002|400|D|2|5
002|400|D|3|5
002|400|D|4|5
002|400|D|5|5
++003|300|X|1|10

Kann ich das mit dem Aufklappen auch für die ersten zwei Spalten und dessen Nummern machen?

Danke nochmal!

Das "+" kann aber nicht direkt vor der Nr. stehen, die ich aufklappen möche :roll:

LG,
Mat


Edit:

Die große Grundtabelle sieht irgendwie so aus:

Nr1|Nr2|Info1|IndexAnfang|IndexEnde
001|100|A|1|4
001|200|A|1|6
001|300|A|1|7
001|400|A|1|4
002|500|D|1|5
002|600|D|1|5
002|700|D|1|5
002|800|D|1|5
003|900|X|1|10
003|1000|X|1|8
003|1100|X|1|7
003|1200|X|1|8

 

Hallo!

Dann häng doch den gleichen Code nochmal für Spalte 2 an:

Code:

Sub test()
Dim Zeile As Long, Anfang As Long, Ende As Long
Zeile = 2
Do
    Do Until Cells(Zeile, 1) = Cells(Zeile - 1, 1)
        Zeile = Zeile + 1
    Loop
    Anfang = Zeile
    Do Until Cells(Zeile, 1) <> Cells(Zeile - 1, 1)
        Zeile = Zeile + 1
    Loop
    Ende = Zeile - 1
    Rows(Anfang & ":" & Ende).Group
Loop Until Cells(Zeile, 1) = ""
Zeile = 2
Do
    Do Until Cells(Zeile, 2) = Cells(Zeile - 1, 2)
        Zeile = Zeile + 1
    Loop
    Anfang = Zeile
    Do Until Cells(Zeile, 2) <> Cells(Zeile - 1, 2)
        Zeile = Zeile + 1
    Loop
    Ende = Zeile - 1
    Rows(Anfang & ":" & Ende).Group
Loop Until Cells(Zeile, 2) = ""
End Sub

 

Vielen Dank... klappt super! Aber das "+" bekomme ich nicht direkt neben die aufzuklappende Zeile, sondern es steht immer eine Zeile drunter?

 

Hallo!

Ja, das ist bei mir auch so!
Keine Ahnung, was sich Bill Gates dabei gedacht hat...