Office: Durch klick auf Zelle, Zeilen einklappen, bei vielen Zellen

Moin!

Ich bin derzeit auf der Suche nach einer Lösung für mein kleines Problem.
Ich habe eine Tabelle dort habe ich mehrere Baugruppen, welche in separaten Zeilen dann die Bauteile enthalten.
Bei klick auf die Bauteile, sollen 7 Zeilen darunter ein/ausgeblendet werden, in denen sich Detailinformationen zum Bauteil befinden.

Nun habe ich das Problem das die Liste der Bauteile recht lang ist und der Code den ich dafür bisher verwende doch sehr viel wird dann.

Ich habe zum einen den Code hier in der Tabelle:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$G$22" Then Call Modul3.Einblenden1
If Target.Address = "$G$30" Then Call Modul3.Einblenden2
If Target.Address = "$G$38" Then Call Modul3.Einblenden3
End Sub

Und in dem passenden Modul diesen Code:

Sub Einblenden1()
Rows("23:29").Hidden = Not Rows("23:29").Hidden
End Sub

Sub Einblenden2()
Rows("31:37").Hidden = Not Rows("31:37").Hidden
End Sub

Sub Einblenden3()
Rows("39:45").Hidden = Not Rows("39:45").Hidden
End Sub

Nun würde ich den Code in der Tabelle gerne so umschreiben das er automatisch immer die Zelle zum anklicken 8 Zeilen nach unten setzt und dafür dann passend auch das richtige Makro angibt.

Oder aber eben nen gesamten Code der mir das ganze ermöglicht.

Leider kann man es nicht komplett durchziehen das er das bei jeder Zeile machen soll, denn es gibt zwischendurch auch leerzeilen bzw Zeilen wo die Baugruppen dann betitelt werden.

Aussehen tut das ganze in etwa so:

TN | Baugruppe | Abkürzung |
TN | Bauteil | Abkürzung | Maße | ....
TN | Bauteil | Abkürzung | Maße | ....
TN | Bauteil | Abkürzung | Maße | ....
TN | Bauteil | Abkürzung | Maße | ....
TN |
TN |
TN | Baugruppen kosten |
TN |
TN | Baugruppe | Abkürzung |
TN | Bauteil | Abkürzung | Maße | ....
TN | Bauteil | Abkürzung | Maße | ....
TN | Bauteil | Abkürzung | Maße | ....

So und durch klick auf "Bauteil" sollen dann darunter 7 Zeilen aufgeklappt werden wo Detailinfos stehen. Die 7 Zeilen habe ich oben im Beispiel nun nicht mit reingesetzt

:)

 

Hallo,

schau Dir mal die Möglichkeiten der Gliederung an.

Grüße
EarlFred

 

Das hatte ich am Anfang, da die "TN" nicht nur eine Spalte ist sondern schon recht lang ist, ist das Problem das man immer erst nach ganz links rüber gehen muss mit dem Mauszeiger und dann ggf. doch wieder den falschen öffnet, daher wollte ich es eigentlich umgehen die Gliederung zu nutzen.
Da durch klick auf den Bauteilnamen man immer den richtigen öffnet und nicht erst nach Links rüber gehen muss.

 

Hallo
Wie waers mit Doppelklick. Code in den Code der Tabelle. Sonst nix.
Code:

gruss hary

 

Hallo Name?,

dann nutz doch die Gliederung per VBA - dort heißt sie "Outline".

Mal eine ganz grobe Skizze - ohne Fehlerabfragen und dergleichen:
Code:

Dann hast Du beides vereint: Gliederung und Ereignissteuerung.

Grüße
EarlFred

 

Danke *Smilie, das ist nicht nur einfach sondern auch noch genial.

Einziges was nun stört ist, das wenn man irgendwo doppelt drauf klickt, das man dann falsche Zeilen einklappt und ausklappt.

Aber ansonsten ist es eine sehr gute und einfache Funtkion *Smilie.

 

Hallo,

wenn Du Kriterien benennen kannst, die die "richtige" Zeile von den "falschen" unterscheidet, frag dieses doch ab und reagier entsprechend darauf.

Grüße
EarlFred

 

Ich werde mir deins ( EarlFred ) gleich mal anschauen und testen, schonmal ein Danke vorweg *Smilie

 

So ich habe mir nun mal deinen Code angeschaut aber so recht verstehe ich nicht was ich damit machen muss.

Aber wenn ich den Code von Harry nehme, kann man den so anpassen das man z.B. in einer Spalte die Zeilen die zum anklicken da sind, mit einem x markiert und dann nur die mir dem x sich bei doppelklick öffnen ?

Bin nur leider nicht so der begabteste in sachen Programmierung *biggrin.gif*.
Aber das wäre dann so ziemlich die einfachste und schnellste Variante denke ich.

 

Hallo
probiers so. Code in den Code der Tabelle. Hab hier mal das x in SpalteA. SpalteA kannst Du ausblenden.
Code:

so sieht es aus

Tabelle1

	A	B	C	D	E
5
6	x	bauteil
7		a	a	a	a
8		a	a	a	a
9		a	a	a	a
10		a	a	a	a
11		a	a	a	a

 

Genau so *Smilie

Danke sehr an euch beiden *Smilie