**Ich habe ein Problem mit einem Excel Makro.
Ich lasse über den Excel Autostart Ordner XLStart ein Makro mitstarten.
Dieses Makro besteht aus einem Modul**
Sub LetzteSeiteDrucken()
ActiveSheet.PrintOut from:=CInt( _
ExecuteExcel4Macro(„get.document(50)“))
End Sub
Sub FusszeileMitPfadDialog1Aufrufen()
Load FusszeileMitPfadDialog1
FusszeileMitPfadDialog1.EingabeDatum.Value = Mid$(ActiveSheet.PageSetup.LeftFooter, 10, 10)
FusszeileMitPfadDialog1.EingabeInitial.Value = Mid$(ActiveSheet.PageSetup.LeftFooter, 21)
FusszeileMitPfadDialog1.EingabePfad.Value = Mid$(ActiveSheet.PageSetup.RightFooter, 3)
FusszeileMitPfadDialog1.Show
End Sub
Sub TabellenblaetterSortieren()
’ Sortiert Tabellenblätter nach Alphabet aufsteigend, wenn absteigend gewünscht wird, dann
’ > - Zeichen gegen UCase$(Sheets(j + 1).Name) Then
Sheets(j).Move after:=Sheets(j + 1)
End If
Next j
Next i
End Sub
und aus einem Formular
Private Sub Abbrechen_Button_Click()
FusszeileMitPfadDialog1.Hide
End Sub
Private Sub AktuellesDokumentButton_Click()
FusszeileMitPfadDialog1.EingabePfad.Value = ActiveWorkbook.Path & „“ & ActiveWorkbook.Name
End Sub
Private Sub HeuteButton_Click()
FusszeileMitPfadDialog1.EingabeDatum.Value = Format$(Now(), „dd.mm.yyyy“)
End Sub
Private Sub OK_Button_Click()
egdat = CDate(FusszeileMitPfadDialog1.EingabeDatum.Value)
With ActiveSheet.PageSetup
.LeftHeader = „“
.CenterHeader = „“
.RightHeader = „“
.LeftFooter = „&8“ & "Stand: " & Format$(egdat, „dd.mm.yyyy“) & „-“ & _
FusszeileMitPfadDialog1.EingabeInitial.Value
.CenterFooter = „&8“ & „Seite &:stuck_out_tongue_winking_eye: von &N“
.RightFooter = „&6“ & FusszeileMitPfadDialog1.EingabePfad.Value
End With
FusszeileMitPfadDialog1.Hide
End Sub
**Ich bediene das Makro über ein Icon.
Wenn ich auf OK klicke kommt eine Fehlermeldung:
Laufzeitfehler 1004
Die LeftHeader Eigenschaften des PageSetup-Objektes kann nicht festgelegt werden.
Wer kann mir dabei helfen?**