Zwei Makros in einem Button
15.10.2021 10:26:48
Frederic
ich habe folgendes Problem und zwar möchte ich Spalten ein und ausblenden und habe dafür jeweils ein Makro geschrieben.
Nun möchte ich diese in einem Button ausführen lassen, je nachdem ob sie schon ausgeblendet oder eingeblendet sind. Die einzelnen Makros funktionieren, doch dass mit dem Button leider nicht..
Hier ist der Code
Option Explicit
Sub SpaltenAusblenden()
Sheets("Entwurf Leads").Activate
Columns("S:W").EntireColumn.Hidden = True
Columns("Y:Z").EntireColumn.Hidden = True
End Sub
Sub SpaltenEinblenden()
Sheets("Entwurf Leads").Activate
Columns("S:W").EntireColumn.Hidden = False
Columns("Y:Z").EntireColumn.Hidden = False
End Sub
Private Sub CommandButton1_Click()
Dim CB As CommandButton
Set CB = CommandButton1
If CB.Value = True Then
CB.Caption = "Spalten einblenden"
Call SpaltenAusblenden
Else
CB.Caption = "Spalten ausblenden"
Call SpaltenEinblenden
End If
End Sub
Frederic