Office: Tabellenblätter automatisch ausblenden

Hallo
Ich bin neu hier.
Ich habe folgendes Problem.
Ich möchte durch ja/nein Abfrage in Tabellenblatt1.
z.B: Tabellenblatt 3 automatisch ausblenden.
Ist das möglich?
Wenn ja,wie?
Ziel ist es ,Excel-Datei zu verschicken,möchte aber nicht das alle Daten einzusehen sind.
Würde dann beim verschicken,die ganze Arbeitsmappe schützen.
Noch Fragen dazu???
Wobei mir Antworten lieber wären :lol:
Gruß Michael

 

Hi Michael,

wie soll die Ja/Nein Abfrage aussehen - eine Zelle mit einem DropDown-Listenfeld aus Daten Gültigkeit, ein CommandButton der eine MsgBox mit Ja/Nein-Schaltern aufruft? Oder noch etwas anderes? Soll immer nur ein bestimmtes Tabellenblatt ausgeblendet werden oder muss da auch noch eine Abfrage sein, welches Tabellenblatt ausgeblendet werden soll? Eine genaue Aufgabenbeschreibung wäre schon sehr hilfreich.

Bis später,
Karin

 

Hallo Karin
Okay mächtig viel Fragen von dir,hab aber nicht an die vielfältigen Möglichkeiten gedacht.
Also es kann ruhig ein Button sein.zur Zeit hab ich eine Gültigkeitsliste.
es werden immer die selben Blätter ausgeblendet .Es sind auch mehrere Blätter die ausgeblendet werden ,aber das dann Gleichzeitig.
Hoffe einige deiner Frage beantwortet zu haben.
Und danke für deine 1.schnelle ANtwort .
Warte und erhoffe Lösungen :-D
Gruß Michael

 

Hi Michael,

kopiere den Code ins Codemodul des Tabellenblattes mit der Gültigkeitsprüfung. Da du nichts zu deinem Tabellenaufbau schreibst, nehme ich einfach mal an, dass die Gültigkeitszelle A1 ist und dort die Auswahl der auszublendenden Tabellenblätter erfolgt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then Worksheets(Target.Value).Visible = False
End Sub

Bis später,
Karin

 

Hallo
Sorry aber wo finde ich das/den Codemodul
Leider komme ich die nächsten tage wohl nicht dazu ,mich um das Problem intensiv weiterzu kümmern.Also kann es etwas dauern bis ich Vollzug melde.
Gruß Michael

 

Hi Michael,

Rechtsklick auf den Tabellenreiter -> Code anzeigen. Damit öffnet sich der VBA-Editor und dann den Code ins rechte (obere) Fenster einfügen.

Bis später,
Karin

 

Hallo
Endlich komme ich mal wieder dazu,mich drum zu kümmern.
Steh aber irgendwie auf dem Schlauch,mit der letzten Aufgabe die du mir gestellt hast..
Ich habe den Code Kopiert bzw.abgeschrieben und ins Makro VBA eingegeben .
Aber nix passiert.
Gehe mal davon aus das meine Dösigkeit ,der Grund ist :-?
Also ich werde mal etwas genauer.
Die Seite wo ich die Ausblendungsoption machen möchte,heiß
"STblatt". Dort habe ich ein Feld "Blätter Ausblenden " und inD2 soll dann der Button sein.
Die Tabellenblätter "Eingabe Kopf" und "Eingabe Maße" sollen damit ausgeblendet werden.
Ich hoffe es war halbwegs verständlich was meine.
Gruß Michael

 

Hi Michael,

den Code musst du an deine Bedingungen anpassen. In meinem Beispiel befindet sich die Gültigkeit in Zelle A1 - das musst du in deine Zelladresse ändern.

Einen extra Button brauchst du nicht, das Ausblenden erfolgt automatisch, sobald du in der Gültigkeitsliste einen anderen Eintrag auswählst.

Bis später,
Karin