Ausblenden
10.11.2021 17:26:47
stef26
ich könnte mal wieder eure Unterstützung brauchen.
Ich habe ein Makro, welches mir leere Spalten in einem bestimmten Bereich sind ausblenden soll.
Public Sub Ausblenden()
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Robotics Kompetenzen") 'Blattname anpassen
For i = 2 To 31 'Spalte B bis Spalte AF
If WorksheetFunction.CountA(.Range(.Cells(6, i), .Cells(180, i))) = 0 Then
.Columns(i).Hidden = True
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
Das Makro blendet nur die Spalten aus die in dem Bereich komplett leer sind.
Kann man das Makro so umschreiben, dass die rausgefilterten Zellen nicht berücksichtigt werden.
Beispiel:
In der Spalte D steht in der Zeile 10 etwas drin. (Deshalb blendet es das aktuelle Makro ja auch nicht aus)
Nun wird durch den Filter die Zeile 10 rausgefiltert. Nun ist in der Spalte D nichts mehr enthalten.
D.h. das in der Spalte D steht zwar was drin wurde aber durch den Filter schon raus genommen.
Ich würde in diesen Fall die Spalte D trotzdem ausblenden wollen.
Ich hoffe ich habs nicht zu umständlich erklärt und irgendjemand kann mir folgen.
:-)
Liebe Grüße
Stefan
