ich moechte mit Hilfe von Check-Boxen (ActiveX) und einem Makro bestimmte Spalten ein- und ausblenden lassen.
Die Check-Boxen befinden sich im Sheet("Tabelle1"), die Spalten, welche ausgeblendet werden sollen im Sheet("Tabelle2").
Wenn die Check_Box ausgewaehlt ist, soll die Spalte eingeblendet sein, wenn die _
Check-Box nicht ausgewaehlt ist, soll die Spalte ausgeblendet sein. Wichtig ist _ dabei, dass nicht alle Spalten auf einmal mit einem Befehl wieder eingeblendet werden.
Private Sub EinAusblenden()
If Q1_2015.Value = True Then
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(5).Resize
Else
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(5).Select
Selection.EntireColumn.Hidden = True
End If
If Q2_2015.Value = True Then
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(6).Resize
Else
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(6).Select
Selection.EntireColumn.Hidden = True
End If
If Q3_2015.Value = True Then
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(7).Resize
Else
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(7).Select
Selection.EntireColumn.Hidden = True
End If
If Q4_2015.Value = True Then
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(8).Resize
Else
Worksheets("Tabelle2").Activate
Worksheets("Tabelle2").Columns(8).Select
Selection.EntireColumn.Hidden = True
End If
End Sub
Das Ausblenden funktioniert schonmal, allerdings nicht das einblenden. Waere super, wenn mir jemand weiterhelfen konnte. Bisher habe ich nur Loesungen zum einblenden aller ausgeblendeten Spalten gefunden.