Ich möchte Spalten ein und ausblenden, bekomme aber die Fehlermeldung 13, Typen unverträglich
Private Sub Cmd1_Baustahl_1_Click()
ActiveSheet.Unprotect Password:=""
If Columns("R:S,BA:BB").Hidden = True Then
Columns("R:S,BA:BB").Hidden = False
Else
Columns("R:S,BA:BB").Hidden = True
End If
Range("E4").Select
ActiveSheet.Protect Password:=""
Was mache ich falsch ?
Gruss Reto