Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1784to1788
1784to1788
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Makro für alle Tabellenblätter, außer...
30.09.2020 10:31:26
Max
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mit Select Case
30.09.2020 10:43:23
hary
Moin 
Sub Eintragen()
Select Case ActiveSheet.Name
Case "Tabelle4", "Tabelle6", "Tabelle8"
Case Else: Cells(1, 1) = "Hallo"
End Select
End Sub

gruss hary
AW: mit Select Case
30.09.2020 11:00:36
Max
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
AW: hab mich verlesen
30.09.2020 11:05:49
hary
Moin
Sry, nimm den anderen Code
gruss hary
AW: Makro für alle Tabellenblätter, außer...
30.09.2020 10:48:54
Rudi
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
Anzeige
AW: Makro für alle Tabellenblätter, außer...
30.09.2020 11:31:27
Max
Klappt, vielen Dank alles! :)

320 Forumthreads zu ähnlichen Themen

Blattschutz mit Ausnahmen per VBA
Fritz_W

Hallo Excelfreunde,
ich würde gerne per Makro folgendes erledigen:
Im jeweils aktiven Tabellenblatt sollte ein Blattschutz mit Passwort (z.B. "geschuetzt" gesetzt werden.
Eingaben sollten jedoch weiterhin in allen Zellen des Zellbereichs "B2:K12" möglich sein, die zu diesem Zeitpun...
13.04.2009 12:33:19
Thread-ID: 1068425
5 Beiträge
Anzeige
Sortierungs-Makro über allen Tabellenblätter
Luke

Hi!
Mein Thema wurde hier schon öfters behandelt, doch es scheint als sei ich nicht Fähig das hinzukriegen. Ich möchte gerne mit einem Makro mehrere Tabellenblätter ansprechen. Ziel: Beim Klick auf den Button sollten sich 13 Tabellenblätter (simultan) absteigend (nach Spalten E und F) sorti...
27.08.2009 15:43:30
Thread-ID: 1099010
3 Beiträge
Blatt schützen in Verbindung mit Sortieren
Toby76

Hallo beisammen,
ich habe große Datenmengen aus SAP ausgelesen und will sie zur Bearbeitung an Kollegen weitergeben (siehe Musterdatei anbei). Die Kollegen sollen aber nur die gelb markierten Felder bearbeiten können, den Rest habe ich über Blatt schützen geschützt. Beim Schützen habe ich i...
08.09.2009 14:52:03
Thread-ID: 1101273
6 Beiträge
Anzeige
@Luschi:Aufheben des Vba-Kennwort-Schutzes per API
Andre´

Hallo Luschi,
habe den Beitrag Makro per VBA ändern vom 06.01.2011 verfolgt.
https://www.herber.de/forum/archiv/1192to1196/t1194138.htm
Dort hattest Du geschrieben,
PS: für jeden Interessierten zeige ich die Lösung in 3 Tagen; brauche noch ein paar Tests! Hast Du dies schon...
16.01.2011 10:48:43
Thread-ID: 1195787
9 Beiträge
Makro auf alle Tabellenblätter laufen lassen
Teggnodd

Hallo,
ich habe ein digitales Oszilloskop mit dem ich alle paar Minuten Werte aufnehmen will, dazu benutze ich Excel. Ich habe mir schon ein kleines Makro zum auslesen der Werte erstellt, hat auch ganz gut Funktioniert. Nun möchte ich aber auch ein Diagramm zu den Werten haben. Dazu habe ic...
13.12.2011 11:19:06
Thread-ID: 1241841
7 Beiträge
Makro für alle Tabellenblätter (Filter,ausblenden.
Maggie

Hallo
ich habe 3 Makros welche nur auf dem aktiven Tabellenblatt laufen, bräuchte sie aber so das sie gleichzeitig in allen Tabellenblättern laufen... habe Null-Ahnung wie ich das hin bekommen soll...
kann mir bitte jemand dabei helfen?
Gruß
Maggie
hier die 3 Makros
---...
06.05.2012 15:13:47
Thread-ID: 1262489
9 Beiträge
Makro - für allen Tabellenblätter gültig
Herbert

Hallo,
wie kann man dieses Makro abändern, dass auf es nicht nur auf dem aktuellen Tabellenblatt sondern auf allen Blättern der Datei ausgeführt wird?
Sub spalte_c_ausblenden() ' spalte_c_ausblenden Makro Columns("C:C").Select Selection.EntireColumn.Hidden = True End Sub vielen Dank im...
14.11.2012 16:54:04
Thread-ID: 1286665
7 Beiträge
Abfrage ob Blattschutz mit Passwort gesetzt wurde
DominikHH

Hallo zusammen,
ich muss in einem Arbeitsblatt überprüfen, ob ein Blattschutz gesetzt wurde und - wenn das der Fall ist - ob auch ein Passwort vergeben wurde.
Im Fall, dass zusätzlich ein Passwort gesetzt wurde, muss ich anders reagieren, als wenn nur das Blatt geschützt wurde (dann kan...
22.11.2012 15:49:32
Thread-ID: 1287706
2 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
4
6
2
5
7
8
6
8
6
1
4
2
6
4
2
4
3
8
12
4
10
3
4
5
1