Zeilen wieder einblenden
03.12.2015 10:45:59
Jessi
und schon wieder hab ich eine Frage, hoffe mir kann jemand nochmal helfen
Ich hab folgendes Makro:
Sub ZeilenAUSundEIN()
Dim ws As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
ws.Unprotect "BGW2015"
ws.Columns(6).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden = _
Not ws.Columns(6).SpecialCells(xlCellTypeFormulas, 16).EntireRow.Hidden
ws.Protect "BGW2015", DrawingObjects = True, Contents:=True, Scenarios:=True, _
AllowFormattingCells:=True, AllowFormattingRows:=True, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, AllowFiltering:=True
Next
On Error GoTo 0
Application.ScreenUpdating = True
End Sub
Sie müssen allerdings auch wieder eingeblendet werden.
Das Problem:
Die Daten in Spalte F können sich während die Zeilen ausgeblendet sind ändern und somit wird dann an manchen Zeilen kein NV-Fehler mehr ausgewiesen.
Werden nun mit diesem Makro die Zeilen wieder eingeblendet bleiben die Zeilen (in denen sich plötzlich kein #NV mehr befindet) trotzdem ausgeblendet.
Kann mir nochmal jemand helfen?
Gruß Jessi