Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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

325 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige