Liebe Leute!
Ich habe im WEB folgenden Code für das Ein- und Ausblenden von Spalten gefunden:
Sub MultiSelectHidden()
Const csHidden As String = "Spalten ausblenden"
Const csVisible As String = "Spalten einblenden"
With ActiveSheet.Buttons(1)
If .Caption = csHidden Then
Selection.EntireColumn.Hidden = True
.Caption = csVisible
Else
Columns.Hidden = False
.Caption = csHidden
End If
End With
End Sub
Dieser funktioniert einwandfrei. Ich kann durch einen Klick auf eine Zelle (auch mehrere sind möglich) und dem anschließenden Klick auf die Schaltfläche einzelne oder mehrere Spalten ein- und ausblenden.
Der Haken dabei: wenn ich Eintragungen in Zellen vornehme, dann werden diese automatisch übernommen.
Wie kann ich dies verhindern oder anders gefragt: wie muss ich den Code verändern, damit ich nur vorher genau definierte Spalten (oder auch Zeilen) ein- und ausblenden kann.
Es handelt sich nämlich um einen Test, wo nach den Eintragungen die Lösungen ein-bzw. ausgeblendet werden sollen.
Danke und Grüße von Robert