Tabellenblattaufruf mit Optionsfeldern

Hallo Forum,
ich habe in einer Arbeitsmappe ein Tabellenblatt "Auswahl".
Auf diesem Blatt befinden sich momentan 4 Optionsfelder. In der Zelle "B14" wird der Wert 1 bis 4 ausgegeben. Außerdem befindet sich ein OK Button und ein abbrechen Button auf dem Blatt. Nach Auswahl einer der 4 vorgegebenen Möglichkeiten und Bestätigung mit ok soll der Anwender die Tabelle (Name "Verfahren1" bis "Verfahren4") angezeigt bekommen. Die Eigenschaft der anzuzeigende Tabelle ist standardmässig "2 - xlSheetVeryHidden" und soll dann auf "-1 - xlSheetVisible" verändert werden. Ich habe bislang keinen Code gefunden, der dies realiseren kann.
Kann mir bitte jemand helfen?
Vielen Dank im Voraus.
Viele Grüße
Ralf

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub OK() If Cells(14, 2) = 1 Then With Sheets("0815_Ergebnis") .Visible = xlSheetVisible With Sheets("0815") .Visible = xlSheetVisible .Activate End With If Cells(14, 2) = 2 Then With Sheets("4711_Ergebnis") .Visible = xlSheetVisible With Sheets("4711") .Visible = xlSheetVisible .Activate End With End Sub

Sub OK() Select Case Worksheets("Auswahl").Range("B14").Value Case 1: With Sheets("0815_Daten", "0815").Visible = xlSheetVisible Case 2: With Sheets("4711_Daten", "4711").Visible = xlSheetVisible Case 3: With Sheets("Test 12_Daten", "Test 12").Visible = xlSheetVisible Case 4: With Sheets("Tabelle xxx_Daten", "Tabelle xxx").Visible = xlSheetVisible End Sub

Hi
schau dir das Prinzip der WITH-Klammer noch mal genauer an.
das hast du noch nicht verstanden wie die funktionert.
Die WITH-Klammer ist hier aber überflüssig, da du das Tabellenblatt nur 1x verwendest.
um ein Tabellenblatt einzublenden, verwende diesen Code:

Sheets("0815_Daten").visible = xlsheetvisible

das funktioniert aber nur für jedes Blatt einzeln, daher muss dein Code so aussehen

Sub OK()
Select Case Worksheets("Auswahl").Range("B14").Value
Case 1
Sheets("0815").Visible = xlSheetVisible
Sheets("0815_Daten").Visible = xlSheetVisible
Case 2
Sheets("4711").Visible = xlSheetVisible
Sheets("4711_Daten").Visible = xlSheetVisible
Case 3
'hier dann analog für die anderen Blätter
Case 4
'hier dann analog für die anderen Blätter
End With
End Sub

Gruß Daniel

Sub OK() Dim arr, s arr = Array(, "0815", "4711", "Test 12", "Tabelle xxx") s = arr(Sheets("Auswahl").Range("B14")) With Sheets(s) .Visible = xlSheetVisible .Select End With Sheets(s & "_Daten").Visible = True End Sub

Beliebteste Forumthreads (12 Monate)

Tabellenblattaufruf mit Optionsfeldern

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread