VBA-Befehl mehrere Tabellen gleichzeitig
11.08.2004 10:00:59
Dan
Ich habe folgenden (funktionierenden) VBA-Befehl, der mir Leerzeilen ausblendet:
Sub Leerzeilen_AUSBLENDEN()
Dim i As Long
Application.ScreenUpdating = False
For i = 100 To 8 Step -1
If WorksheetFunction.Sum(Range("B" & i & ":H" & i)) = 0 Then _
Cells(i, 1).EntireRow.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub
Ich möchte nun, dass dieser Befehl für alle markierten Tabellenblätter gilt.
Also irgendwie mit "SelectedSheets"... bin aber hängen geblieben :-((
Wäre dankbar, wenn mir da jemand helfen könnte :-))
Gruss
Anzeige