Nach Filterung leere Spalten ausblenden
29.11.2016 15:44:45
Toni
ist es möglich durch bzw. nach einer Filterung leere Spalten auszublenden?
Zum Beispiel ich filtere nach einem bestimmten Bauteil, in den Spalten sind mehrere Produktionsschritte eingetragen. Ich möchte dann nach der Filterung nur die betroffenen Produktionsschritte für das jeweilige Bauteil (Spalten) angezeigt bekommen.
Bei folgendem Code werden alle leeren Spalten ausgeblendet, aber ohne Bezug auf einen Filter. Dies führt dazu, dass wenn ich filtere, die leeren spalten trotzdem angezeigt werden. Wäre super, wenn jemanden den Code so verändern könnte, dass das mit der Filterung klappt. Mir fällt leider nichts mehr ein.
Option Explicit
Public blnhidden As Boolean
Sub zeilen_spalten_aus_ein()
Dim rng As Range
Dim n As Integer
Set rng = Range("C7:TM32")
Application.ScreenUpdating = False
If Not blnhidden Then
blnhidden = True
For n = 1 To rng.Rows.Count
If Application.CountIf(rng.Rows(n), "") = rng.Columns.Count Then rng.Rows(n).Hidden = blnhidden
Next
For n = 1 To rng.Columns.Count
If Application.CountIf(rng.Columns(n), "") = rng.Rows.Count Then rng.Columns(n).Hidden = _
blnhidden
Next
Else
blnhidden = False
rng.Rows.Hidden = blnhidden
rng.Columns.Hidden = blnhidden
End If
Application.ScreenUpdating = True
End Sub
Eine Antwort wäre super, vorab vielen Dank!
VG
Toni