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?
Hi,
erklär bitte mal den Sinn dahinter. Warum zusammen und dann getrennt??
Für die Übersicht! Sonst sind es auf dem ersten Blick zu viele!
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.
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!
Hi,
(16.03.2016, 20:57)xxKNAPPExx schrieb: [ -> ]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!
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?
Hi,
(17.03.2016, 14:39)xxKNAPPExx schrieb: [ -> ]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
(17.03.2016, 15:16)Rabe schrieb: [ -> ]so?
VIELEN DANK PERFEKT
Hi,
nix gegen deine Freude eine Lösung bekommen zu haben, aber wie bitte wird das erreicht:
Zitat: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.