folgendes Problem in meinem VBA Code:
Ich prüfe welche Zeilen und welche Spalten ausgeblendet werden und diese sollen dann in mehreren Sheets (Heißen von "C1" bis "C40") ausgeblendet werden.
Dim mappe As Variant
Dim wks As Worksheet
Dim rHidden As Range
Dim zHidden As Range
Dim intZ As Integer
mappe = Array("C1", "C2", "C3", "C4", "C5", "C6", "C7", "C8", "C9", "C10", "C11", "C12", _
"C13", "C14", "C15", "C16", "C17", "C18", "C19", "C20", "C21", "C22", "C23", "C24", _
"C25", "C26", "C27", "C28", "C29", "C30", "C31", "C32", "C33", "C34", "C35", "C36", _
"C37", "C38", "C39", "C40", "Staff Sales")
If Cells(42, Coun) = "-" Then
If zHidden Is Nothing Then
Set zHidden = Cells(42, Coun)
Else
Set zHidden = Union(zHidden, Cells(42, Coun))
End If
End If
Next
Sheets("C1").Select
For intZ = 1 To 100
If Cells(intZ, 157) = "-" Then
If rHidden Is Nothing Then
Set rHidden = Cells(intZ, 157)
Else
Set rHidden = Union(rHidden, Cells(intZ, 157))
End If
End If
Next
For Each wks In ThisWorkbook.Worksheets(mappe)
If Not rHidden Is Nothing Then Sheets(wks).rHidden.EntireRow.Hidden = True
If Not zHidden Is Nothing Then Sheets(wks).zHidden.EntireColumn.Hidden = True
Next wks
Ich lese die Info zu Zeilen und Spalten im ersten Sheet "C1" aus. Beim Teil vom Code wo ausgeblendet wird, blendet er bei jedem worksheet immer nur die Zeilen im Sheet "C1" aus.