Office: Zellinhalte mehrerer Tabellenblätter löschen

Hallo, ich bin absoluter Newbie im Bereich VBA und such mir jetzt seit Tagen einen Ast und bekomme es einfach nicht nicht gebacken! Habe mir sonst immer die Sachen die ich brauchte aus Foren besorgt und diese umgeschrieben nur diesmal steh ich vor einem Berg!

Ich habe eine Excel Datei mit 20 Tabellenblättern.
Nun möchte ich in 12 dieser Tabellenblätter in einem Bereich D17:AH41 bestimmte Zellinhalte (F,M,N,T,S) löschen!

Für das aktive Tabellenblatt habe ich dies hinbekommen:

Sub Zellinhalte_Löschen()

ActiveSheet.Range("D17:AH41").Select

For Each cell In Selection
If cell.Value = "F" Or cell.Value = "M" Or cell.Value = "N" Or cell.Value = "T" Or cell.Value = "S" Then cell.ClearContents
Next

End Sub


Nur wie bekomme ich dies für die übrigen Tabellenblätter per Makro hin?
Tabellenblätter sind nicht fortlaufend, Also TB1, TB2 ...sondern verschiedene (TB3, TB15, TB19 usw.)

Danke im voraus

Mc

:)

 

Hi,

das löscht mal in allen Blättern!, wenn du noch beschreiben würdest woran deine 12 Blätter erkannt werden sollen...., würde ich das auch noch einbauen

Code:

 

Hallo,
das geht ja mal fix!

Die Tabellen sind nach Monaten benannt : Januar-Dezember.

Danke

Mc

 

Hi,

Code:

 

Hallo Chris,

Funzt super!

Danke für deine Mühe


Mc

 

Eine ähnliche Herausforderung...

Sheets

PHP:

         ("MoIn", "MonOut", "TueIn", "TueOut", "WedIn", "WedOut", "ThuIn", "TueOut", "FriIn", "FriOut")