Ausblenden Zeilen
07.02.2018 14:22:44
Tom
ich möchte die nicht beschriebenen Zeilen ausblenden und habe folgenden Code gefunden. Der Code blendet zwar fast alle leeren Zeilen aus jedoch werden die letzten Zeilen nicht ausgeblendet trotz das leer.
Kann mir das jemand anpassen?
Danke
Const cstrSheets As String = "Tabelle1;Tabelle3;Tabelle4"
Sub ausblenden()
Dim lngLast As Long, rngHide As Range
Dim vntSheets As Variant, lngIndex As Long
vntSheets = Split(cstrSheets, ";")
For lngIndex = 0 To UBound(vntSheets)
If rngHide Is Nothing Then
With Sheets(vntSheets(lngIndex))
lngLast = Evaluate("MAX(IF('" & .Name & "'!A5:A24"""",ROW(5:24)))")
If lngLast = 0 Then lngLast = 24
On Error Resume Next
Set rngHide = .Range("A5:A" & lngLast).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
End With
End If
If Not rngHide Is Nothing Then Sheets(vntSheets(lngIndex)).Range(rngHide.Address).EntireRow. _
Hidden = True
Next
Set rngHide = Nothing
End Sub
Gruß Tom
Anzeige