Zeilen einblenden
Stefanglander
ich blende mit folgendem Code Zeilen aus bzw wieder ein.
Das klappt im Grunde auch einwandfrei, nur das jedesmal beim einblenden die Zeilenhöhe wieder auf Standardhöhe gesetzt wird.
Gibt es eine Möglichkeit das zu verhindern ?
Private Sub CommandButton1_Click()
zeigen
End Sub
Private Sub Worksheet_Activate()
Application.ScreenUpdating = 0
Dim rng As Range
For Each rng In Range("B3:B50")
rng.EntireRow.Hidden = rng.Value = ""
Next
Application.ScreenUpdating = 1
End Sub
Private Sub zeigen()
Application.ScreenUpdating = 0
Dim rng As Range
For Each rng In Range("B3:B50")
rng.EntireRow.AutoFit
Next
Application.ScreenUpdating = 1
End Sub
Stefan