Kartenreiter zusammenfassen

[xxKNAPPExx]

Hallo,

ich schon wieder.

Diesmal ein neues Thema.

Ich habe nun inzwischen eine sehr umfangreiche Tabelle, mit zahlreichen Tabellenblätter (Kartenreiter).

Kann ich einzelne Tabellenblätter zusammenfügen?

Also ich habe Tabellenblatt 1: Messe FG Tabellenblatt 2: Messe TR Tabellenblatt 3: Messe KK Tabellenblatt 4: Messe SP

Kann ich nun diese Tabellenblätter unter einem Tabellenblatt zusammenfügen "MESSE" und nur wenn ich es anklcike werden wieder 4 daraus?

[Zwergel]

Hi,

erklär bitte mal den Sinn dahinter. Warum zusammen und dann getrennt??

[xxKNAPPExx]

Für die Übersicht! Sonst sind es auf dem ersten Blick zu viele!

[Zwergel]

Hi,
was ist denn unübersichtlich bei 4 Tabellen?
Kannst ja eine Tabelle Übetsicht machen mit Links zu den anderen Tabellen und die Übersicht beim Start anzeigen lassen.
Aber ich glaube eher, du meinst etwas anderes. Lad hier mal eine Musterdatei hoch, so wie es ist und wie es sein soll.

[xxKNAPPExx]

Möchte nun das Tabelle 1 - Tabelle 4 zu Tabelle A zusammengefasst werden. Und wenn ich dann auf Tabelle A klicke sich die 4 wieder öffnen!

Also Auf / Zu um das ganze übersichtlicher zu machen!

[Rabe]

Hi,

Möchte nun das Tabelle 1 - Tabelle 4 zu Tabelle A zusammengefasst werden. Und wenn ich dann auf Tabelle A klicke sich die 4 wieder öffnen!

also sollen dann nach der Zusammenfassung die Tabellen 1-4 verschwinden und es soll nur noch die Tabelle A sichtbar sein. Wenn dann A angeklickt wird sollen die 4 wieder auftauchen. Genau so geht das nicht, aber mit VBA könnte das leicht abwerichend gelöst werden:

Tabelle A erzeugen mit zwei Buttons: ausblenden und einblenden

Beim Druck auf Button 1 werden die 4 Tabellen ausgeblendet und bei Druck auf Button 2 wieder eingeblendet. A bleibt immer sichtbar!

[xxKNAPPExx]

Das wäre doch Optimal.

Jetzt bleibt für einen Laien nur die Frage, wie löse ich das genau? Und wie schwierig wird das?

[Rabe]

Hi,

Jetzt bleibt für einen Laien nur die Frage, wie löse ich das genau? Und wie schwierig wird das?

so?

Option Explicit
Public i As Integer

Sub Schaltfläche2_Klicken()                  'ausblenden 
   For i = 1 To 4
      Sheets("Tabelle" & i).Visible = False
   Next i
End Sub

Sub Schaltfläche1_Klicken()                  'einblenden 
   For i = 1 To 4
      Sheets("Tabelle" & i).Visible = True
   Next i
   Sheets("Tabelle A").Activate
End Sub

[xxKNAPPExx]

so?

VIELEN DANK PERFEKT

[Zwergel]

Hi,

nix gegen deine Freude eine Lösung bekommen zu haben, aber wie bitte wird das erreicht:

Möchte nun das Tabelle 1 - Tabelle 4 zu Tabelle A zusammengefasst werden. Und wenn ich dann auf Tabelle A klicke sich die 4 wieder öffnen!

Mit dem Code wird nix zusammengefaßt, sondern es werden 4 Tabelle ausgeblendet bzw eingeblendet. Also werden die Inhalte aus Tab 1-4 nicht in A zusammengefaßt.