|
Hallo Holger,
das Change-Ereignis verstehe ich nicht, beschäftige mich erst seit ca. 3 Wochen mit VBA. Ich versuche gerade den Code vollständig zu verstehen. In deinem Code verstehe ich einen Befehl/Definition nicht. Unten ist dein Code: Ich kommentier ihn mal und schreib die Unklarheiten dahinter wie in Kommentarschreibweise in VBA mit einem ' vorne:
Private Sub CheckBox_Zeitreihen_einblenden_Click()
If CheckBox_Zeitreihen_einblenden = True Then 'oder umgekehrt (false), hängt von deinen Bedingungen ab
With Sheets("Zeitreihen")
If .Visible = xlSheetHidden Then ' Wenn "Zeitreihen" ausgeblendet ist
.Visible = xlSheetVisible 'Diesen Befehl/Definition verstehe ich nicht. Was sagt der aus?
.Activate
Else
.Visible = xlSheetHidden
End If
If CheckBox_Zeitreihen_einblenden = False Then
If .Visible = xlSheetVisible Then
.Visible = xlSheetHidden
.Visible.Hide
Else
.Visible = xlSheetVisible
End If
End If
End With
End If
End Sub
VG,
Matthias
|