Macro funzt nicht mehr

Sub Kopf_Fusszeile() With ActiveSheet.PageSetup .RightHeader = "&12" & WorksheetFunction.Substitute(strName, ".xls", "") & vbLf & "Ae 01" End With ActiveWorkbooks.SelectedSheet.PrintOut Copies:=1, Collate:=True 'Druck der Datei End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Urs,
sieh dir das mal an (ungetestet):


Option Explicit         ' IMMER ZU EMPFEHLEN !
Sub Kopf_Fusszeile()
Dim strName As String
strName = ActiveWorkbook.Name            ' wo kommt bei dir der Wert her?
ActiveSheet.PageSetup.RightHeader = "&12" & _
WorksheetFunction.Substitute(strName, ".xls", "") & vbLf & "Ae 01"
' oder
ActiveSheet.PageSetup.RightHeader = "&12" & _
Left(strName, Len(strName) - 4) & vbLf & "Ae 01"
'  ActiveWorkbooks.SelectedSheet.PrintOut Copies:=1, Collate:=True ' alt
ActiveWorkbook.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Was soll strName sein?
Den With-Block brauchst du hier nicht, das PageSetup-Objekt wird ja nur einmal angesprochen.
Wie ist denn das "s" von SelectedSheets zu ActiveWorkbooks gekommen? ;-)
Warum arbeitest du mit SelectedSheets? Können mehrere Blätter ausgewählt sein, und willst du die dann alle drucken?
Wenn es nur um dein einzelnes Blatt geht, sollte das hier reichen:


Sub Kopf_Fusszeile2()
With ActiveSheet
.PageSetup.RightHeader = "&12" & _
WorksheetFunction.Substitute(ActiveWorkbook.Name, ".xls", "") & vbLf & "Ae 01"
.PrintOut Copies:=1, Collate:=True
End With
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Erich
Du hast Recht, ich hätte sagen sollen, dass ich die Dim Zeilen nicht abbilde.
DRUCK

ActiveWorkbook.SelectedSheets.PrintOut Copies:=1, Collate:=True

oder

.PrintOut Copies:=1, Collate:=True

In beiden Fällen kommt beim Drucken die Fehlermeldung 438: Objekt unterstützt diese Eigenschaft oder Methode nicht.
Wenn ich aber VB offenhabe und den Debugger starte kommt keine Meldung!!
DARSTELLUNG

.RightHeader = Left(s, Len(s) - 4) & Chr(10) & "Ae 01"

Mit dieser Formel erhalte ich alles wie gewünscht aber nur in Grösse 10

.RightHeader = WorksheetFunction.Substitute(strName, ".xls", "") & vbLf & "Ae 01"

Mit dieser Formel erhalte ich ebenso alles wie gewünscht aber nur in Grösse 10

.RightHeader = "&12" & WorksheetFunction.Substitute(strName, ".xls", "") & vbLf & "Ae 01"

Damit erhlte ich gar nichts. Der rechte kopfteil bleibt leer.
WARUM ?
Gruss urs

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread