Wie Befehl (script) auf alle TB übertragen

04/09/2010 - 15:21 von Julian Zimmermann | Report spam
Hallo Liste,

hab es jetzt mit viele Varianten probiert, aber ich bin scheinbar zu doof:


Wie kann ich folgendes script auf alle Tabellenblàtter auf einmal anwenden?

___________________________________________________________________
Sub Test()
Dim WS As Worksheet
For Each WS In Sheets
If WS.Name <> ActiveSheet.Name Then
With WS
Application.ScreenUpdating = False
Range("A51:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Application.ScreenUpdating = True
End With
End If
Next
End Sub
__________________________________________________________________


Danke für die Hilfe.
Julian
 

Lesen sie die antworten

#1 Andreas Killer
04/09/2010 - 15:44 | Warnen spam
Am 04.09.2010 15:21, schrieb Julian Zimmermann:

Wie kann ich folgendes script auf alle Tabellenblàtter auf einmal anwenden?


Wenn Du mit einer WITH-Anweisung arbeitest, dann mußt Du allen Eigenschaften/Methoden die sich auf diese Tabelle
beziehen sollten einen Punkt voranstellen.

Und das ScreenUpdating kannst Du Dir schenken, die Tabelle ist in diesem Moment nicht sichtbar.

Andreas.

Sub Test()
Dim WS As Worksheet
For Each WS In Sheets
If WS.Name <> ActiveSheet.Name Then
With WS
.Range("A51:A500").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End If
Next
End Sub

Ähnliche fragen