Makro: aktives Blatt - definiertes Blatt
05.06.2008 19:44:00
Karl
in nachfolgendem Makro ist ein bestimmtes Arbeitsblatt (="Querformat") definiert, ich möchte jedoch, daß das Makro auch dann funktioniert, wenn ich es beim aktiven Arbeitsblatt aufrufe, welches auch anders heißen kann, zB "Hochformat". Diese beiden Arbeitsblätter befinden sich zB in einer xxxx.XLT, von der ich mir immer eine Kopie ziehe.
Anmerkung: Aus dem Herber-FAQ habe ich das Makro "Username in Fußzeile" zusammengefügt mit einem aufgezeichneten Makro, welches eine Bildschirmkopie auf 1 Seite ausdruckt und dabei automatisch die Grauschattierungen entfernt.
Sub Hardcopy()
' Tastenkombination: Strg+d
With Worksheets("Querformat")
.PageSetup.LeftFooter = Application.UserName
End With
Selection.ShapeRange.PictureFormat.ColorType = msoPictureBlackAndWhite
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End Sub
Ich bedanke mich schon im voraus für Eure/Deine Hilfe.
Liebe Grüße
tuska
Anzeige