Microsoft Excel

Herbers Excel/VBA-Archiv

Makro für alle Tabellenblätter, außer...

Betrifft: Makro für alle Tabellenblätter, außer... von: Max
Geschrieben am: 30.09.2020 10:31:26

Hallo Excel Freunde,


Ich habe eine Datei in der ich für alle Tabellenblätter einen bestimmten Befehl ausführen muss. Allerdings sind hiervon ein paar Tabellenblätter auszuschließen. Neue Tabellenblätter die diesen Befehl beinhalten können hinzukommen. Die Tabellenblätter die ausgenommen sind, sind allerdings immer die gleichen.

Ich habe eine anonymisierte Datei beigefügt und meine Frage ist nun:

Wie kann ich per Makro in die Zelle A1 jedes Tabellenblattes "Hallo" schreiben, ausgenommen den Tabellenblättern "Tabelle4", "Tabelle6", "Tabelle8" ?


https://www.herber.de/bbs/user/140536.xlsx




Vielen lieben dank schon im Voraus !

Max

Betrifft: AW: mit Select Case
von: hary
Geschrieben am: 30.09.2020 10:43:23

Moin
Sub Eintragen()
Select Case ActiveSheet.Name
  Case "Tabelle4", "Tabelle6", "Tabelle8"
  Case Else: Cells(1, 1) = "Hallo"
End Select
End Sub

gruss hary

Betrifft: AW: mit Select Case
von: Max
Geschrieben am: 30.09.2020 11:00:36

Hallo Hary,

Danke, also das klappt schon mal.
Allerdings nur wenn ich auf dem jeweiligen Tabellenblatt bin.
Könnte man davor noch eine Art schleife oder einen Befehl "foreachworkbook" machen, damit das makro durch alle tabellenblätter läuft?

Vielen danke und viele Grüße
Max

Betrifft: AW: hab mich verlesen
von: hary
Geschrieben am: 30.09.2020 11:05:49

Moin
Sry, nimm den anderen Code
gruss hary

Betrifft: AW: Makro für alle Tabellenblätter, außer...
von: Rudi Maintaire
Geschrieben am: 30.09.2020 10:48:54

Hallo,
Sub aaaa()
  Dim wks As Worksheet, arrAusnahme
  arrAusnahme = Array("Tabelle4", "Tabelle6", "Tabelle8")
  For Each wks In Worksheets
    If IsError(Application.Match(wks.Name, arrAusnahme, 0)) Then
      wks.Range("A1") = "Hallo"
    End If
  Next wks
End Sub

Gruß
Rudi

Betrifft: AW: Makro für alle Tabellenblätter, außer...
von: Max
Geschrieben am: 30.09.2020 11:31:27

Klappt, vielen Dank alles! :)