Office: Makro für alle Tabellenblätter ab dem 2.Blatt?

Hallo Zusammen,

ich habe eine Datei mit ca. 30 Tabellenblättern. Diese formatiere ich, indem ich in jedem Blatt ein Makro laufen lasse (also ca. 30 mal "Application.Run "Format"). Wenn ich die Blätter gruppiere und das Makro laufen lasse, dann werden viele Formate nicht angenommen.

Wie kann ich das Makro für jedes Tabellenblatt AB DEM ZWEITEN laufen lassen?

Vorab vielen Dank.

Gruß,
Wahlo

:)

 

Hi,

Code:

 

Vielen Dank!!!

Gruß,
Wahlo

 

Hallo Zusammen,

lange ist es her...
Irgendwie funktioniert es nicht. Die Seiteneinrichtung besteht nach dem Makro-Ablauf nur im ersten Blatt.

Was hier falsch?

Code:

Kann mir jemand helfen?

Vorab vielen Dank!

Gruß Wahlo

 

Hallo Wahlo,

anstelle ActiveSheet die Objektvariable ws nutzen, auf die Selects und Activates verzichten und stattdessen sauber referenzieren:
Z.B.
ws.Range("A1").Befehl

Grüße
EarlFred

 

Hallo EarlFred,

vielen DAnk für die schnelle Antwort. Leider übersteigt das bereits meine Kenntnisse. Ich habe vergeblich versucht deine Tipps umzusetzen. Da Ergebnis siehst du unten, es erscheinen jedoch Fehlermeldungen.
Kannst du mir noch einmal helfen?

Code:

Vorab vielen Dank.

Gruß,
Wahlo

 

Hallo Wahlo,

ich seh grad, dass Du Befehle verwendest, die sich auf das Window und nicht das Worksheet beziehen.

Auch wenn sich mir beim Schreiben die Haare sträuben und die Zehnägel aufrollen: Du wirst die Blätter einzeln aktivieren müssen, um diese Befehle ausführen zu können.

Grüße
EarlFred

 

Hallo EarlFred,

danke für die Antwort. Wie sähe das aus? Mein ursprünglicher Code plus jeweils eine Anweisung, das nächste Blatt zu aktivieren? Mit Sheets("Tabelle2").Select etc?

Danke.

Gruß,
Wahlo

 

Hallo Wahlo,

nach der Zeile
If ws.Index > 1 Then

noch ein
ws.Activate

und dann den Rest Deines ursprünglichen Codes.

Grüße
EarlFred

 

*Smilie
Jetzt habe ich es verstanden!

Vielen Dank!!!

Gruß,
Wahlo

 

Hallo, habe fast das gleiche Problem.

PHP:

         Option Explicit

Sub SVERWEIS_Vlookup()
Debug.Print Now

Dim i As Long, letztezeile As Long
Dim Arbeitsmappe As Workbook
Dim Datenbasis As Worksheet
Dim Ziel As Worksheet
Dim Bereich As Range
Dim ZelleFirma As Range
Dim WsF As WorksheetFunction

Set Arbeitsmappe = ThisWorkbook
Set Datenbasis = Arbeitsmappe.Worksheets("Quelle")
Set Ziel = Arbeitsmappe.Worksheets("KW25")


letztezeile = Datenbasis.Range("B1048").End(xlUp).Row

Set Bereich = Datenbasis.Range("B1:L" & letztezeile)
Set WsF = Application.WorksheetFunction

For i = 5 To Ziel.Range("A1048").End(xlUp).Row
On Error Resume Next   'Abfangen des Fehlers, im Fall wenn kein Fert.auftrag gefunden wird
Ziel.Range("C" & i).Value = WsF.VLookup(Ziel.Range("B" & i).Value, Bereich, 4, False) 'Menge
Ziel.Range("D" & i).Value = WsF.VLookup(Ziel.Range("B" & i).Value, Bereich, 2, False)   'SAP Nr
Ziel.Range("P" & i).Value = WsF.VLookup(Ziel.Range("B" & i).Value, Bereich, 9, False)  'Zeit
'Ziel.Range("E" & i).Value = WsF.VLookup(Ziel.Range("B" & i).Value, Bereich, 7, False)
'Ziel.Range("E" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 7, False)
Ziel.Range("F" & i).Value = WsF.VLookup(Ziel.Range("A" & i).Value, Bereich, 8, False)
Next i

Debug.Print Now
End Sub