Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ra As Range
On Error Resume Next
Application.DisplayAlerts = False
For Each Ra In Worksheets("Tabelle1").Range("C10:C110")
If Ra.Value > 0 Then
Else
Ra.EntireRow.Hidden = True
End If
Next
If Me.Saved = False Then Me.Save
Application.DisplayAlerts = True
End Sub
Dadurch werden alle Zeilen bei dem C nicht > 0 ist ausgeblendet.
Gruß Armin
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Ra As Range, Ws As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
For Each Ws In Worksheets
Select Case Ws.Name
Case "Trade", "Promo", "CW"
For Each Ra In Worksheets(WS.Name).Range("C10:C110")
If Ra.Value > 0 Then
Else
Ra.EntireRow.Hidden = True
End If
Next
End Select
Next
If Me.Saved = False Then Me.Save
Application.DisplayAlerts = True
End Sub
Gruß Armin