Hallo Leute
Habe in unteren Code der mir Zeilen mit "0" in Zeile "A" ausblendet.
Funktioniert auch,aber nur braucht es ca.1 Minute
Könnte mann dies etwas schneller machen ?
Danke & Gruß
Heinz
Option Explicit
Sub Nullwerte_ausblenden()
Application.ScreenUpdating = False
Application.EnableEvents = False
Sheets("Jänner").Unprotect
Sheets("Februar").Unprotect
Sheets("März").Unprotect
Sheets("April").Unprotect
Sheets("Mai").Unprotect
Sheets("Juni").Unprotect
Sheets("Juli").Unprotect
Sheets("August").Unprotect
Sheets("September").Unprotect
Sheets("Oktober").Unprotect
Sheets("November").Unprotect
Sheets("Dezember").Unprotect
Sheets("Urlaub").Unprotect
Sheets("Einbringt.").Unprotect
Sheets("Üst").Unprotect
Sheets("and. Abwesenh.").Unprotect
Sheets("bezahlt frei").Unprotect
Sheets("Formel").Unprotect
Sheets("Jänner").Activate
Dim i
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Februar").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("März").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("April").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Mai").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Juni").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Juli").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("August").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("September").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Oktober").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("November").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Dezember").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Urlaub").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Einbringt.").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Üst").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("and. Abwesenh.").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("bezahlt frei").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Formel").Activate
For i = 3 To 154
If Cells(i, 1) = 0 Then
Rows(i).Hidden = True
End If
Next
Sheets("Jänner").Protect
Sheets("Februar").Protect
Sheets("März").Protect
Sheets("April").Protect
Sheets("Mai").Protect
Sheets("Juni").Protect
Sheets("Juli").Protect
Sheets("August").Protect
Sheets("September").Protect
Sheets("Oktober").Protect
Sheets("November").Protect
Sheets("Dezember").Protect
Sheets("Urlaub").Protect
Sheets("Einbringt.").Protect
Sheets("Üst").Protect
Sheets("and. Abwesenh.").Protect
Sheets("bezahlt frei").Protect
Sheets("Formel").Protect
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub