Vielen Dank für Eure Hilfe.
Sub Ausblenden()
Dim wks As Worksheet
Set wks = Tabelle3
With wks
Application.ScreenUpdating = False
Dim intZ As Integer
Dim lZeile As Long
Dim rHidden As Range
Cells.EntireRow.Hidden = False
lZeile = .Cells(wks.Rows.Count, 2).End(xlUp).Row
For intZ = lZeile To 15 Step -1
If Cells(intZ, 2) = 0 Then
If rHidden Is Nothing Then
Set rHidden = Cells(intZ, 2)
Else
Set rHidden = Union(rHidden, Cells(intZ, 2))
End If
End If
Next
If Not rHidden Is Nothing Then rHidden.EntireRow.Hidden = True
Application.ScreenUpdating = True
End With