Hallo,
ich möchte aus zwei Schaltflächen einen ToggleButton machen, erhalte aber leider eine Fehlermeldung.
Beide Schaltflächen an sich funktionieren einwandfrei.
Der Code der beiden Schaltflächen lautet:
Sub ausblenden()
Sheets("2008").Select
Columns("H:O").Select
Selection.EntireColumn.Hidden = True
Range("P8").Select
ActiveSheet.Protect (159)
Sheets("2009").Select
Columns("H:O").Select
Selection.EntireColumn.Hidden = True
Range("P8").Select
ActiveSheet.Protect (159)
Sheets("2009").Select
Range("P8").Select
End Sub
Sub einblenden()
strVergleichspasswort = "159"
strPasswort = InputBox("Bitte
Passwort Eingeben", "Passwortabfrage")
If strPasswort <> strVergleichspasswort Then
MsgBox "Passwort falsch", vbCritical, "A C H T U N G"
Exit Sub
End If
Sheets("2008").Select
ActiveSheet.Unprotect (159)
Columns("G:P").Select
Selection.EntireColumn.Hidden = False
Range("P8").Select
Sheets("2009").Select
ActiveSheet.Unprotect (159)
Columns("G:P").Select
Selection.EntireColumn.Hidden = False
Range("P8").Select
Sheets("2009").Select
Range("P8").Select
End Sub
Der Code des ToggleButton ist:
Private Sub ToggleButton1_Click() 'Spalten GW ein- bzw. ausblenden
Dim strPasswort As String, strVergleichspasswort As String
Dim intS As Integer
If Me.ToggleButton1.Value = True Then
With Me.ToggleButton1
.Caption = "Auswertung einblenden"
.ForeColor = &HFF&
End With
Sheets("2008").Select
Columns("H:O").Select
Selection.EntireColumn.Hidden = True
Range("P8").Select
ActiveSheet.Protect (159)
Sheets("2009").Select
Columns("H:O").Select
Selection.EntireColumn.Hidden = True
Range("P8").Select
ActiveSheet.Protect (159)
Sheets("2009").Select
Range("P8").Select
ElseIf Me.ToggleButton1.Value = False Then
With Me.ToggleButton1
.Caption = "Auswertung ausblenden"
.ForeColor = &H8000&
End With
strVergleichspasswort = "159"
strPasswort = InputBox("Bitte Passwort Eingeben", "Passwortabfrage")
If strPasswort <> strVergleichspasswort Then
MsgBox "Passwort falsch", vbCritical, "A C H T U N G"
Exit Sub
End If
Sheets("2008").Select
ActiveSheet.Unprotect (159)
Columns("G:P").Select 'HIER FEHLER ?
Selection.EntireColumn.Hidden = False
Range("P8").Select
Sheets("2009").Select
ActiveSheet.Unprotect (159)
Columns("G:P").Select
Selection.EntireColumn.Hidden = False
Range("P8").Select
Sheets("2009").Select
Range("P8").Select
End If
End Sub
Es sollen nur Spalten ausgeblendet und mit Schutz versehen werden, beim zweiten Button wird der Schutz aufgehoben und die Spalten eingeblendet.
Warum funktioniert es nicht ???
Vielen Dank schonmal und viele Grüße
Petra