der nachfolgende Code blendet in einer Tabelle leere Zeilen und Spalten eines angegebenen Bereiches aus. Den Code habe ich - vor längerer Zeit - hier im Forum von Sepp Ehrensberger erhalten.
In der aktuellen Tabelle bezieht ist der "zu überwachende Bereich" C5:N63
Wie muss der Code geändert werden, wenn im Bereich C5:N63 die Zeilen 9, 29 und 49 in jedem Fall eingeblendet bleiben sollen, auch wenn diese in den Spalten C bis N ausschließlich leere Zellen enthalten?
Vielen Dank für eure Unterstützung
mfg
Fritz
Option Explicit
Public blnhidden As Boolean
Sub zeilen_spalten_aus_ein()
Dim rng As Range
Dim n As Integer
Set rng = Range("c5:n63")
Application.ScreenUpdating = False
If Not blnhidden Then
blnhidden = True
For n = 1 To rng.Rows.Count
If Application.CountIf(rng.Rows(n), "") = rng.Columns.Count Then rng.Rows(n).Hidden = blnhidden
Next
For n = 1 To rng.Columns.Count
If Application.CountIf(rng.Columns(n), "") = rng.Rows.Count Then rng.Columns(n).Hidden = _
blnhidden
Next
Else
blnhidden = False
rng.Rows.Hidden = blnhidden
rng.Columns.Hidden = blnhidden
End If
Application.ScreenUpdating = True
End Sub