Typen umverträglich
14.12.2021 11:29:01
Georg
ich bin viel zu selten in VBA unterwegs, so dass ich immer wieder aufs Neue an einfachen Dingen scheitere.
Der Code bleibt bei .Columns(rng).EntireColumn.Hidden = True stehen mit der Fehlermeldung Typen unverträglich. Ich komme leider nicht dahinter, was ich ändern muss. Danke für die Unterstützung Georg
Sub Ausblenden()
Dim i As Integer
Dim wsh As Worksheet
Dim rngP As range, rngS As range, rng As range
Set rngP = range("P:Q")
Set rngS = range("S:W")
Set rng = Application.Union(rngP, rngS)
For i = 2 To 13
With ThisWorkbook.worksheets(i)
.Columns(rng).EntireColumn.Hidden = True
End With
Next i
End Sub