Einen "Schalter" für zwei Makros möglich?

[Calafati]

Hallo zusammen,

für die meisten von Euch sicher die einfachste Lösung, aber ich verzweifle gerade (vermutlich weil ich den Fachbegriff nicht kenne und deshalb in meiner Recherche nicht weiter komme).

Ich habe eine Zelle V12, die ich gern per Doppelklick als Schalter nutzen will.

Beim ersten Drücken sollen die Spalten X bis BX ausgeblendet werden, bei nochmaligem Drücken wieder eingeblendet.
Nach Möglichkeit soll dieser Button die Beschriftung "drücken für EIN" tragen, wenn die Zeilen ausgeblendet sind und umgekehrt.

Ist das ein Riesenaufwand?

Dankbar für einen Lösungsansatz verbleibt mit vielen Grüßen
Klaus

[LCohen]

[X:BX].Hidden = Not [X:X].Hidden

Für die Änderung der Beschriftung des Knopfes guckst Du im VBA-Eigenschaftenfenster nach und erledigst sie beim gleichen Klick-Ereignis der Schaltfläche/Zelle.

Ich habe im Zuweisungsteil X:X statt X:BX verwendet, damit die Anwendung von selbst zurück in die Spur kommt, sobald jmd. händisch nur Teile von X:BX ausgeblendet hat oder ähnliches.

[chris-ka]

Hi,

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "V12" Then
    Target.Value = IIf(Target.Value = "Ein", "Aus", "Ein")
    Columns("X:BX").EntireColumn.Hidden = IIf(Target.Value = "Ein", True, False)
    Cancel = True
End If
End Sub

[snb]

Besser so:

Code:

Columns("X:BX").Hidden = Not Columns("X:BX").Hidden

[Calafati]

Ich danke Euch dreien schon mal ganz herzlich!
Werde nachher fleißig probieren :19: