xlCellTypeBlanks
Jonathan
mit folgendem Codeausschnitt sollen Spalten ausgeblendet werden, wenn in der entsprechenden Spalte in Zeile 1 kein Wert steht. Hier habe ich den Bereich mal auf Zeile 3 beschränkt. In Zelle C1 steht die Zahl 1, dennoch wird die Spalte ausgeblendet. DasSeltsame ist zusätzlich, dass ALLE Spalten bis einschließlich AA ausgeblendet werden...
Hat jemand eine IdeE?
Dim DATEN As Worksheet
Set DATEN = Sheets("test")
With DATEN.Range(DATEN.Cells(1, 3), DATEN.Cells(1, 3))
.SpecialCells(xlCellTypeBlanks).Activate 'EntireColumn.Hidden = True
.ClearContents
End With