Spalten je nach Wert ausblenden

Hallo zusammen,
da ich ein Anfänger in Sachen VBA bin und auch nach intensiver Suche nicht das passende im Archiv gefunden, nun meine Frage an euch:
In der beigefügten Beispieltabelle:
https://www.herber.de/bbs/user/104500.xlsm
habe ich eine Einsatzplanung für einige Mitarbeiter erstellt.
Nun soll aber auf Grund der Übersichtlichkeit nur die zu planende KW angezeigt werden, d.h. die anderen Spalten sollen ausgeblendet werden.
Die zu planende KW wird in Zelle C6 ausgewählt.
Dann soll am besten mittels eines ToggleButton o.ä. alle Spalten, welche nicht zu dieser KW gehören ausgeblendet werden. Bei nochmaliger Betätigung des Buttons sollen die ausgeblendeten Spalten wieder eingeblendet werden.
Die Spalten A bis C sollen immer eingeblendet bleiben.
Wer kann mir helfen das passende Makro zu entwickeln und einzubinden?
Ich danke euch bereits im Voraus.
Grüße
René

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C6")) Is Nothing Then If Range("C6") "" Then Range("D1:NE1").EntireColumn.Hidden = True For i = 4 To 369 'D bis NE If Cells(8, i) = Range("C6") Then Columns(i).Hidden = False Next i End If End If

Private Sub ToggleButton1_Click() If ToggleButton1.Value = False Then Range("D1:NE1").EntireColumn.Hidden = False Else: Call Worksheet_Change(Range("C6")) End If End Sub Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C6")) Is Nothing Then If Range("C6") "" And ToggleButton1.Value = True Then Range("D1:NE1").EntireColumn.Hidden = True For i = 4 To 369 'D bis NE If Cells(8, i) = Range("C6") Then Columns(i).Hidden = False Next i End If End If End Sub

Private Sub CommandButton1_Click() If Range("C6") "" Then Range("D1:NE1").EntireColumn.Hidden = True For i = 4 To 369 'D bis NE If Cells(8, i) = Range("C6") Then Columns(i).Hidden = False Next i End If

Dann haben wir uns wohl missverstanden. Das ist doch genau was dieser Code gemacht hat:

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then 'Wenn nicht eingerastet blende alle ein
Range("D1:NE1").EntireColumn.Hidden = False
Else                                'Ansonsten führe zweites Makro aus (ausblenden)
Call Worksheet_Change(Range("C6"))
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6")) Is Nothing Then
If Range("C6")  "" And ToggleButton1.Value = True Then 'Wenn Togglebutton eingerastet
' blende alle KWs aus
Range("D1:NE1").EntireColumn.Hidden = True
' blende KW aus C6 wieder ein
For i = 4 To 369 'D bis NE
If Cells(8, i) = Range("C6") Then Columns(i).Hidden = False
Next i
End If
End If
End Sub

Einziger Unterschied zur Aufgabenstellung: Ist er bereits gedrückt (Filter aktiv) und du wählst in C6 eine andere KW aus filtert er sofort nach der neuen KW anstatt dass du erst den Filter herausnehmen und erneut einstellen muss. Zwei Mausklicks die man sich spart.
Kurze Erklärung zur Logik um zukünftige Missverständnisse zu vermeiden:
ToggleButton1_Click() wird bei jedem Drücken ausgeführt, jedoch muss der Code den Zustand des Buttons abfragen. Je nachdem blendet er alles ein oder führt das zweite Makro aus (ausblenden der anderen KWs / Punkt b).
Das zweite Makro wird aber nicht nur ausgeführt wenn du die Filterfunktion aktivierst, sondern auch wenn du etwas in C6 änderst, jedoch fragt es den Zustand des Togglebuttons ebenfalls ab und nur wenn er bereits eingerastet ist blendet es aus. Dies entspricht deinem Punkt a.
lg Steve

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Spalten je nach Wert ausblenden

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread