Excel - Spalten ausblenden mit Button o.ä.?

2 Antworten

Ja, geht mit VBA.

Sub Schaltfläche1_Klicken()
If Columns("B:D").Hidden = True Then
Columns("B:D").Hidden = False
Else
Columns("B:D").Hidden = True
End If
End Sub

Den Namen der Schaltfläche kannst du natürlich auch anders machen.

gfntom  16.09.2016, 11:17

Oder kürzer:

Sub Schaltfläche1_Klicken()
Columns("B:D").Hidden = Not (Columns("B:D").Hidden)
End Sub
3
daCypher  16.09.2016, 11:21
@gfntom

So gehts natürlich auch, wobei ich die Lösung von DeeDee07 noch besser finde. Da gibt's dann nämlich auch keine Probleme, wenn man die Excel-Datei an jemand anderes schickt, der keine Dateien mit Makros öffnen kann/darf.

2