Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
23.04.2024 09:45:43
mehrere Bedingungen verknüpfen und mehr
23.04.2024 08:59:38
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1156to1160
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
1156to1160
1156to1160
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige