Bereiche mehrerer Tabellen Löschen
30.09.2003 08:46:10
Thorsten
ich möchte mittels eines Makros die jeweils die Zeilen 17 bis 127 von mehreren Tabellenblättern löschen.
Über den Makrorecoder bekomme ich nun:
Worksheets(1).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
habe verswucht, mir darasu ein Makro zu basteln:
Sub Thorsten()
Worksheets(1).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
Worksheets(2).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
Worksheets(3).Rows("17:127").Select
Selection.Delete Shift:=xlUp
Range("A17").Select
End Sub
Nur bekomme ich da dann eine Fehlermeldung ( Laufzeitfehler: Select Methode des Range Objektes ist Fehlerhaft)