ich möchte gerne auf meinem
Tabellenblatt1 alle leeren
(von A14:N60) Zellen ausblenden.
Hat jemand eine Idee ?
Gruß Detlef
Sub ausblenden()
Dim s As Integer
For s = 1 To 14
If Application.CountA(Range(Cells(14, s), Cells(60, s))) = 0 Then
Columns(s).Hidden = True
End If
Next
End Sub