Hallo Michael,
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wks As Worksheet
For Each wks In ThisWorkbook.Worksheets
wks.PageSetup.RightHeader = Format(Date, „dddd, yyyy-mmmm-dd“)
Next wks
End Sub\
Die ersten drei Zeilenn gehören in dein Makro, Oberhalb davon
wo due das formatierte Datum haben willst.Die ersten 3 Zeilen gehoeren in dein Makro? Welche jetzt? Habe
ich es hinzuzufuegen oder zu ersetzen?
Diese drei Zeilen sollst du einfügen:
Dim Tage, intTag As Integer
Tage = Array(„M“, „T“, „W“, „Thursday“, „F“, „S“, „S“)
intTag = Weekday(Date, vbMonday) - 1
Ich weiss es wirklich nicht! *seufz
In deinem Code ersetzt du dann
Format(date,„dd.mm.yyyy“)
durch
Tage(intTag) & Format(Date, „dd.mm.yyyy“)
Und komm mir jetzt bitte nicht damit daß du in deinem Code kein
Format(date,„dd.mm.yyyy“)
hast, dann ersetze halt:
Format(Date, „dddd, yyyy-mmmm-dd“)
Das mmmm ist doch wieder was vollkommen neues von dir *glaub*
Mag ja sein daß du da englisches Excel hast und dann irgendwie versucht hast das irgendwie teilweise auf Deutsch umzustellen.
Aber, wenn dddd, also der Wochentag auf deutsch angezeigt wird, dann garantiert auch der Monat (mmmm) auf Deutsch.
Und ich habe es doch sinnloser Weise extra erwähnt:
(Mache) Nichts mehr, nichts weniger und vor allem nix annerster machen!
PS: Mit welcher Tastenkombination kann ich nun eine Zeile oder
Spalte ‚einrahmen‘, um den Ueberblick nicht zu verlieren?
K.A. was du meinst, klick oben auf C dann ist Spalte C markiert.
Den passenden Thread finde ich leider nicht.
Ich weiß nicht welchen Thread du meinst. Wenn es einer deiner Anfragen ist der dann zu einem Thread geführt hat, ich sagte dir wie du den findest.
Soll ich das jetzt wiedermal wiederholen?
Gruß
Reinhard, mal nach Nürnberger Trichter googlend 
