Zeilen über mehrere Sheets löschen

[Rauter Dominik]

Hallo,

kann mir jemand helfen. Ich lösche zurzeit mit einem Makro diverse Zellen in meinem Exel Dokument. Da ich aber 140 Sheets habe ist das sehr aufwendig. Ich würde gern auf meiner Übersicht im 1 Sheet ein Makrofeld machen wo dann in allen darauffolgend Sheets die Zellen gelöscht werden.


Diesen code verwende ich zurzeit.
Sub Löschen()
Range("B3:U9,B13:U19,B23:U29,B33:U39").ClearContents
End Sub


Danke
Lg

[JereMaia]

Hier eine Erweiterung Deines Codes:

Code:

Sub allesloeschen()
On Error Resume Next

Dim wks As Worksheet

For Each wks In ActiveWorkbook.Worksheets 'gehe alle Arbeitsblätter durch
  wks.Range("B3:U9,B13:U19,B23:U29,B33:U39").ClearContents 'lösche vom Arbeitsblatt.Objekt den Inhalt vom Range-Bereich
Next

End Sub

[Rauter Dominik]

Danke funktioniert super.

Habe aber leider vergessen zu erwähnen das in den ersten 6 Sheets nichts gelöscht werden darf. Da diese keine Variablen enthalten. Diese Werte dürfen also nicht gelöscht werden.

Kann ich den Befehlt erst ab Sheet 7 ausführen?

Danke

---

Danke funktioniert super.

Habe aber leider vergessen zu erwähnen das in den ersten 6 Sheets nichts gelöscht werden darf. Da diese keine Variablen enthalten. Diese Werte dürfen also nicht gelöscht werden.

Kann ich den Befehlt erst ab Sheet 7 ausführen?

Danke

[marose67]

Hallo,
versuche es mal so an einer Testdatei:

Option Explicit

Sub allesloeschen()
On Error Resume Next
Dim i As Variant
'Dim wks As Worksheet
For i = 7 To ActiveWorkbook.Worksheets.Count
'For Each wks(i) In ActiveWorkbook.Worksheets 'gehe alle Arbeitsblätter durch
  Worksheets(i).Range("B3:U9,B13:U19,B23:U29,B33:U39").ClearContents 'lösche vom Arbeitsblatt.Objekt den Inhalt vom Range-Bereich
Next
End Sub

Gruß
Marcus

[Rauter Dominik]

Funktioniert wunderbar danke

[marose67]

Hallo,

Danke für die Rückmeldung. War mein erstes Makro, seit Jahren, deshalb war ich mir etwas unsicher. Die Zeilen mit dem Vorangesetzten " ' " kannst du dann löschen. Die sind nur noch Müll.

Gruß
Marcus