Blaetter ein/ausblenden mittels Makro
13.05.2006 00:05:34
Marita
im Archiv habe ich ein tolles Makro mit UserForm zum komfortalen Ein-/Ausblenden von Tabellenblaettern gefunden. siehe: https://www.herber.de/bbs/user/28030.xls
Da ist unter anderem folgendes Makro enthalten:
Private Sub cmdAction_Click()
Dim n As Integer
On Error GoTo ERRORHANDLER
Application.ScreenUpdating = False
With ListBox1
For n = 0 To .ListCount - 1
If .Selected(n) Then Sheets(.List(n)).Visible = False
Next
End With
With ListBox2
For n = 0 To .ListCount - 1
If .Selected(n) Then Sheets(.List(n)).Visible = True
Next
End With
ERRORHANDLER:
Application.ScreenUpdating = True
Unload Me
End Sub
2 Fragen dazu:
-wie muss ich das Makro aendern, dass immer nur ein Tabellenblatt angeklickt und somit aus-/eingeblendet werden kann?
-das Makro wuerde ich gerne ausbauen, dafuer muesste nur der Name des angeklickten, einzublendenden Tabellenblattes uebergeben werden an eine andere Anweisung. Den Term .Selected(n) kann ich ja nicht in einer Formel einfach so hinter ein Gleichheitszeichen schreiben. Wie kann ich den Wert der Auswahl (vorausgesetzt, es wurde nur ein Tabellenblatt selektiert) an z.B. normale if then else Anweisungen uebergeben?
Vielen, lieben Dank vorab. Schoenes Wochenende, Marita