Hidden-Eigenschaft des Range Objektes
Peter
Bin etwas sprachlos. In der einen Datei funktioniert nachstehender Code, in der anderen kommt die Meldung, dass die Hidden-Eigenschaft des Range Objektes nicht festgelegt werden kann.
Was kann die Ursache sein?
Gruss, Peter
Sub SwitcherunbenutzteSpalten()
Dim rngC As Range, rngHide As Range ' zuerst: die Deklarationen
For Each rngC In [bEinAus].EntireRow.Cells
If rngC.value = 0 Then
If rngHide Is Nothing Then
Set rngHide = rngC
Else
Set rngHide = Union(rngHide, rngC)
End If
End If
Next rngC
If Not rngHide Is Nothing Then _
rngHide.EntireColumn.Hidden = Not rngHide.EntireColumn.Hidden
End Sub