VBA-Befehl für mehrere Tabellen
27.08.2003 15:12:32
Daniel
Ich möchte das folgende Makro ergänzen, damit es für alle vorhandenen Tabellen ausgeführt wird. Sollte glaub ich nicht so schwierig sein, aber als Anfänger hat man so seine Mühe...
Sub LeerZeilenAusblenden()
Dim i As Long
Application.ScreenUpdating = False
For i = 301 To 13 Step -1
If WorksheetFunction.Sum(Range("B" & i & ":F" & i)) = 0 Then _
Cells(i, 1).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Bedanke mich schon jetzt für einen genialen Experten-Vorschlag.
Gruss
Daniel