Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Makro für auf mehrere Tabellenblätter anwenden

Makro für auf mehrere Tabellenblätter anwenden
Mat
Hallo liebes Forum,
wie kann ein ein vorhandenes Modul (Makroname = Sub Formatieren) über alle vorhandenen Tabellenblätter laufen lassen, mit Ausnahme des Tabellenblattes data.
Gruß Mat
Anzeige
AW: Makro für auf mehrere Tabellenblätter anwenden
21.03.2011 16:31:15
Hajo_Zi
Hallo Mat,
Option Explicit
Private Sub Aufheben()
Dim WsTabelle As Worksheet
For Each WsTabelle In Sheets
If WsTabelle.Name  "NICHT" Then
' Dein Makro
End If
Next WsTabelle
End Sub

Anzeige
AW: Makro für auf mehrere Tabellenblätter anwenden
22.03.2011 11:38:07
Mat
Hallo Hajo,
haben mein (aufgezeichnetes) Makro in den code eingebaut. Leider wird nur das erste Tabellenblatt immer wieder formatiert bis es zu Ende ist. Hier das Ende des etwas längeren Codes.
End With
ActiveSheet.Pictures.Insert("H:\Auswertungen\logo.bmp").Select
Selection.ShapeRange.IncrementLeft 388.5
Selection.ShapeRange.IncrementTop -135.75
Range("E10").Select
ActiveWindow.SmallScroll Down:=6
End If
Next WsTabelle
End Sub
Danach müsste das nächste Tabellenblatt formatiert werden.
Gruß Mat
Anzeige
AW: Makro für auf mehrere Tabellenblätter anwenden
22.03.2011 12:14:26
Hajo_Zi
Hallo Mat,
Du solltest auf select verzichten.
das End With ist nicht von mir.
With WsTabelle
With .Pictures.Insert("H:\Auswertungen\logo.bmp")
.ShapeRange.IncrementLeft 388.5
.ShapeRange.IncrementTop -135.75
End With
End With
Gruß Hajo
Anzeige
AW: Makro für auf mehrere Tabellenblätter anwenden
22.03.2011 13:31:49
Mat
Hallo Hajo,
sorry, aber leider krieg ich´s nicht gebacken. Anbei eine Beispielmappe. Das Makro habe ich mit dem Editor aufgezeichnet und soll auf alle Tabellenblätter mit Ausnahme von Data in einem Ablauf angewendet werden.
https://www.herber.de/bbs/user/74054.xls
Gruß Mat
Anzeige
AW: Makro für auf mehrere Tabellenblätter anwenden
22.03.2011 13:43:49
Hajo_Zi
Hallo Mat,
ich habe 2 Probleme.
1. Die Datei ghat keine Tabelle Data
2. Ich finde nicht den Code wo Du meinen Vorschlag eingearbeitet hast.
Ich hatte schon geschrieben verziochte auf Select. Das ist zu 99,9 Prozent nicht notwendig.
Gruß Hajo
Anzeige
AW: Makro für auf mehrere Tabellenblätter anwenden
22.03.2011 13:53:37
Mat
Hallo Hajo,
1. Anbei nochmals die Datei mit Data.
https://www.herber.de/bbs/user/74055.xls
2. Code ist eingefügt
3. Select wird vom Makro Editor eingefügt.
Leider fehlen mir die ausreichenden Kenntnisse Select zu entfernen.
Gruß Mat
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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