ich möchte in einem Bereich, der mit einen Namen definiert ist, die Spalten, in denen nichts steht ausblenden.
Als Beispiel habe ich eine Tabelle mit den Spalten A, B, C und D sowie drei Zeilen 1, 2 und 3.
Nun soll in der Spalte A die Zellen der Zeilen von 1 bis 3 überprüft werden. Wenn nichts in den Zellen steht, soll die Spalte ausgeblendet werden. Danach soll der selbe Ablauf in Spalten B und C durchgeführt werden.
Bis jetzt habe ich das über die Zeilenangaben mit folgendem Code gelöst:
Dim iSpalte As Integer
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Tabelle5")
.Columns("A:D").EntireColumn.Hidden = False
For iSpalte = 1 To 4
If Application.CountA(.Range(.Cells(1, iSpalte), .Cells(3, iSpalte))) = 0 Then
.Columns(iSpalte).Hidden = True
End If
Next iSpalte
End With
Application.ScreenUpdating = True
End Sub
Den Bereich von A1:D3 habe ich mit dem Namen "Beispiel" definiert. Leider schaffe ich es nicht den Code für diesen Ablauf mit dem Namen "Beispiel" zu schreiben.
Gruß Martin