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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen