Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro mehrfach starten

Forumthread: Makro mehrfach starten

Makro mehrfach starten
Holger
Hallo,
ich möchte ein bestimmtes Makro in ausgewählten Blättern hintereinander laufen lassen. Dabei müssten die Blättern am Anfang des Codes stehen und das Makro müsste dann mit dem ersten beginnen und beim letzten dieser aufststellung enden.
Kann mir jemand unter die Arme greifen?
Holger
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Makro mehrfach starten
15.05.2010 22:29:16
Josef

Hallo Holger,
Sub blaetter()
  Dim objSh As Worksheet
  
  For Each objSh In Sheets(Array("Tabelle1", "Tabelle3"))
    With objSh
      .Range("A1") = "Hallo"
    End With
  Next
  
End Sub


Gruß Sepp

Anzeige
AW: Makro mehrfach starten
15.05.2010 22:59:41
Holger
Hallo Sepp,
vielen Dank für Deine schnele Hilfe und schönes Restwochenende noch.
Gruß
Holger
AW: Makro mehrfach starten
16.05.2010 12:49:49
Holger
Hallo Sepp und die anderen,
habe da noch eine Nachfrage. Kann man es auch so einrichten, dass das Makro nur die Tabellen bearbeitet, wo der Reiter grün bzw. blau ist?
VIelen Dank!
Viele Grüße
Holger
Anzeige
teste mal ... Worksheets(x).Tab.Color ...
16.05.2010 15:23:27
Matthias
Hallo Holger
Office 2003 kann ich allerdings nicht testen - habe es in 2007 erfolgreich getestet.
Sub RegFarbe()
Dim x As Long
For x = 1 To Worksheets.Count
If ThisWorkbook.Worksheets(x).Tab.Color = 255 Then Worksheets(x).Cells(1, 1) = "Hallo"
Next
End Sub
Color = 255 ... bitte anpassen
Gruß Matthias
Anzeige
AW: Makro mehrfach starten
16.05.2010 15:29:37
Backowe
Hi Holger,
Sub blaetter()
Dim objSh As Worksheet
For Each objSh In Worksheets
If objSh.Tab.ColorIndex = 10 Or objSh.Tab.ColorIndex = 3 Then
objSh.Range("A1") = "Hallo"
End If
Next
End Sub
Gruß Jürgen
Danke Euch beiden!
16.05.2010 17:08:15
Holger
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige