Umschaltflächen per VBA und zuordnen
dave
Ich habe eine Tabelle mit sehr vielen Blättern. Auf einer Übersichtsseite erstelle ich eine Liste aller Blätter mit Hyperlink mit folgendem Code:
Private Sub Blattliste_Click()
Dim wks As Worksheet
Dim Zähler
GetMoreSpeed True
Range("A:B").ClearContents
Range("B:B").Hyperlinks.Delete
Zähler = 5
For Each wks In Worksheets
Zähler = Zähler + 1
Cells(Zähler, 1) = Zähler - 5
With Cells(Zähler, 2)
.Value = wks.Name
ActiveSheet.Hyperlinks.Add Anchor:=Cells(Zähler, 2), Address:="", _
SubAddress:="'" & wks.Name & "'!A1"
.Font.Size = 10
.HorizontalAlignment = xlLeft
End With
Next
GetMoreSpeed False
End Sub
Das funktioniert soweit auch wie gewünscht.Nun würde ich gerne noch rechts neben jedem Blatt eine Schaltfläche haben wollen, mit der ich steuern kann, ob das Blatt aus- oder eingeblendet ist. Momentan habe ich manuell rechts daneben einen "Togglebutton" erstellt, der auf die darunter liegende Zelle verlinkt ist. Meine Idee ist, diese Zellen dann per Schleife abzufragen (WAHR/FALSCH) und dadurch die Sichtbarkeit zu steuern. Das würde ich auch hinbekommen.
Das Problem ist nun: Was mache ich, wenn weitere Blätter dazukommen? Wie kann ich evtl. in dem oben stehenden Makro die Button-Erstellung schon mit einbauen, damit ich das nicht hinterher manuell machen kann? Es sollen auch andere User diese Funktionalität nutzen können ohne VBA-Kenntnisse.
Mit der Erstellung von Steuerelementen per VBA und zuweisen bestimmter Eigenschaften hab ich bisher noch keine Erfahrung gemacht.
Geht das überhaupt und wenn ja, wie?
Gruß
David