Hallo,
mit folgendem code blende ich Zellen aus, in denen nichts eingetragen ist.
code:
Dim iSpalte As Integer
Application.ScreenUpdating = False
With ThisWorkbook.Worksheets("Tabelle5")
.Columns("A:J").EntireColumn.Hidden = False
For iSpalte = 1 To 10
If Application.CountA(.Range(.Cells(7, iSpalte), .Cells(9, iSpalte))) = 0 Then
.Columns(iSpalte).Hidden = True
End If
Next iSpalte
End With
Application.ScreenUpdating = True
End Sub
Nun möchte ich, dass sich das Makro, beim einfügen oder löschen einer Zeile, automatisch anpasst. Für den Bereich von A7:J9 habe ich dafür den Namen "A" definiert. Wie muss ich folgende Zeile umschreiben, dass mit der Verwendung des Namen "A" die Funktion erhalten bleibt, die leeren Spalten des Bereichs auszublenden.
Code:
If Application.CountA(.Range(.Cells(7, iSpalte), .Cells(9, iSpalte))) = 0 Then
.Columns(iSpalte).Hidden = True