Ein-/Ausblenden vieler Blätter - suche Lösung
Wurstmensch
als stiller Leser bin ich hier schon mehrere Jahre dabei, und so manche Nuss habe ich mit eurer Hilfe schon knacken können. Jetzt stehe ich aber gerade so sehr auf dem Schlauch, dass ich meinen ersten eigenen Thread eröffnen muss :)
Ich möchte Folgendes erreichen: Für die Arbeit muss ich eine Tabelle stricken, mit deren Hilfe man eine Übersicht über den Jahresabschluss erstellen kann. Sie muss nachher auch von unbedarften Usern benutzt werden können. Ich bin wie folgt vorgegangen:
Hier ein Screenshot meiner aktuellen Lösung:
http://www38.zippyshare.com/v/44219246/file.html
Und hier der VBA-Code hinter den Checkboxen:
Private Sub CheckBox1_Click()
Application.ScreenUpdating = False 'Schaltet den Bildschirm aus
Blattname = Range("C5").Value
If CheckBox1.Value = False Then
Worksheets(Blattname).Visible = False
Else
Worksheets(Blattname).Visible = True
End If
Application.ScreenUpdating = True 'Schaltet den Bildschirm wieder ein
End SubDanke schonmal für evtl. Hilfe!