Zeilen ein-ausblenden
Joachim
Ich habe folgendes Problem:
Ich blende per VBA Zeilen ,in einem Dienstplanformular, aus und wieder ein.
###################
Sub dpAus()
'Zeilen im DienstPlan ausblenden
Dim iRow As Integer
Application.ScreenUpdating = False
With ActiveSheet
iRow = 3
For iRow = 3 To 210
If .Range("A" & iRow).Value = "a" Then _
.Rows(iRow).EntireRow.Hidden = True
Next iRow
End With
End Sub
Sub dpEin()
'Zeilen im DienstPlan einblenden
Application.ScreenUpdating = False
Cells.EntireRow.Hidden = False
End Sub
‚#############################################
Das funzt auch.
Nur wenn ich einmal in der Seiten-Druckvorschau war, braucht Excel ewig bis er die Zeilen erneut ausblendet!?
Nach Neuöffnen der Mappe geht es wieder zügig.
Hat hierfür jemand eine Erklärung bzw. Lösung?
Danke im Voraus
Gruß Joachim
Anzeige