ToggleButton

Question

Hallo Exelfreaks
Ich benötige einmal eure Hilfe. Folgendes Problem möchte ich lösen:
Meine Exel-Arbeitsmappe besteht aus 6 Blättern. Zwei der Blätter möchte ich mittels ToggleButton ein.- bzw ausblenden. Zur Zeit habe ich zwei Macros, die mit einen CommandButton bedient werden. Diese Macros habe ich mit dem Recorder erstellt und sie lauten:

Sub Blätter_einblenden()
Sheets("Leistungsauftrag DKV").Visible = True
Sheets("Abgabe").Visible = True
End Sub

und

Sub Blätter_ausblenden()
Sheets("Abgabe").Select
ActiveWindow.SelectedSheets.Visible = False
Sheets("Leistungsauftrag DKV").Select
ActiveWindow.SelectedSheets.Visible = False
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Sheets("Arztrechnungen").Select
End Sub


Für Hilfe wäre ich sehr dankbar, da ich von VBA nichts verstehe.
Ach ja, ich arbeite mit Exel 2003

M.f.G.
Horst

Answer 1

Hi Horst,

Private Sub ToggleButton1_Click()
Worksheets("Abgabe").Visible = ToggleButton1 = True
Worksheets("Leistungsauftrag DKV").Visible = ToggleButton1 = True
End Sub

Bis später,
Karin

Answer 2

Hallo Karin

Code funktioniert einwandfrei. Herzlichen Dank für Deine Hilfe

Gruß Horst