Home  >  Praxis & Hilfe  >  Kummerkasten  >  Office  > Artikel 63887

spacer

Excel-Kopfzeile: Datum des nächsten Arbeitstages

Problem: Wir führen in Excel eine Terminliste, die wir jeweils abends für den nächsten Arbeitstag abgeben. In der Kopfzeile sollte das Datum des nächsten Arbeitstages stehen; also am Freitag das Datum des kommenden Montags. Lässt sich das mit einem Makro programmieren?

blue_quad von Gaby Salvisberg (30.08.2012)

Lösung: Das dürfte mit dem folgenden Makrocode klappen.

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Worksheets
With ws.PageSetup
If Weekday(Date) = vbFriday Then
.CenterHeader = Date + 3
Else
.CenterHeader = Date + 1
End If
End With
Next ws
End Sub

Im Detail geht das so: Öffnen Sie Ihre Excel-Datei und drücken Sie die Tastenkombination Alt+ F11. Das öffnet den Visual-Basic-Editor. Öffnen bzw. doppelklicken Sie in der linken Spalte Projekt/VBA Project/DieseArbeitsmappe. Tippen bzw. kopieren Sie den obigen Makroquellcode ins leere, grosse Codefeld.

Quellcode des MakrosvergrößenQuellcode des Makros

Gehen Sie via Datei zu Schliessen und zurück zu Excel. Via Office-Knopf (Excel 2007) oder Datei-Menü (Excel 2010) gehts jetzt zu Speichern unter bzw. Speichern als Arbeitsmappe mit Makros (*.xlsm). Schliessen Sie die Datei und öffnen Sie sie wieder. Es dürfte beim ersten Öffnen eine Makrowarnung erscheinen, die Sie mit Inhalte aktivieren bestätigen.

Das Makro in AktionvergrößenDas Makro in Aktion Haben Sie das Datum in der Kopfzeile bereits eingefügt? Falls nicht, wechseln Sie nun via Ansicht zu Kopf- und Fusszeile bzw. in Excel 2007/2010 zu Seitenlayout. Dort klicken Sie je nach Wunsch in den linken, mittleren oder rechten Teil der Kopfzeile und klicken bei «Kopf- und Fusszeilenelemente» auf Aktuelles Datum. Das Datum, das erscheint, sollte Ihnen jetzt einen Tag voraus sein. (PCtipp-Forum)



     
Drucken Drucken
spacer
WeiterempfehlenWeiterempfehlen
spacer
Kommmentar Kommentieren       
spacer


Anzeige
Wählen Sie:

spacer

Windows 7 Windows 7
Windows 8 Windows 8
Windows 2000 Windows 2000
Windows XP Windows XP
Windows Vista Windows Vista
Linux Linux
Mac Mac
Sicherheit Sicherheit
Internet Internet
Office Office
Multimedia Multimedia
Spiele Spiele
Hardware Hardware
Windows9x/NT Windows9x/NT
Mobile Mobile
Sonstiges Sonstiges

spacer

Ähnliche Themen
Word: Wasserzeichen einfügen

Problem: Ich möchte in Word zum Beispiel bei Einladungen gerne ein Bild oder eine sonstige Hintergrundgrafik als eine Art Wasserzeichen einfügen. Wie... Word: Wasserzeichen einfügen

Word 2010: Ausgeblendeten Text drucken Ja/Nein

Problem: Ich möchte in Word 2010 schnell umschalten können zwischen «ausgeblendeten Text drucken» und «nicht drucken». Der Dialog dazu ist etwas unbequem... Word 2010: Ausgeblendeten Text drucken Ja/Nein

Word 2010: AutoText bzw. Schnellbausteine ohne Formatierung

Problem: Ich schreibe Texte in verschiedenen Schriften und Schriftgrössen, verwende aber in allen die gleichen Schnellbausteine (früher AutoText). Beim... Word 2010: AutoText bzw. Schnellbausteine ohne Formatierung

Word und OpenOffice Writer: Nummerierung bei X beginnen

Problem: Ich benutze den LibreOffice/OpenOffice Writer und möchte im Textdokument in mehreren Dateien die Seiten nummerieren. Die Nummerierung sollte... Word und OpenOffice Writer: Nummerierung bei X beginnen

PowerPoint mit Fehler 0x80000003

Problem: Seit kurzem kann ich in E-Mails und aus dem Explorer heraus per Doppelklick keine Dateien des Typs PPSX mehr öffnen. Es geht nur noch via PowerPoint-Programm... PowerPoint mit Fehler 0x80000003

Mehr Praxis & Hilfe
Fachchinesisch

Mühe mit Computerbegriffen?

Im Fachchinesen finden Sie 743 Erklärungen.

AKTUELLE KUMMERKASTEN
The Gimp: EXIF-Daten aus Fotos entfernen

Problem: Ich habe hier eine Reihe Fotos, aus denen ich die EXIF-Metadaten entfernen möchte. Geht das mit dem Open-Source-Bildbearbeitungsprogramm «The... The Gimp: EXIF-Daten aus Fotos entfernen

Win8: Abgesicherter Modus für hartnäckige Fälle

Problem: Im Kummerkasten (Webcode 67965) wird beschrieben, wie man die Möglichkeit aktiviert, unter Windows 8 in den abgesicherten Modus zu gelangen.... Win8: Abgesicherter Modus für hartnäckige Fälle

Mehr Artikel
Leser empfehlen
iTunes: Fehler «-42110» beim Starten

Problem: Seit dem letzten Update bekomme ich beim Aufstarten von iTunes immer eine Fehlermeldung: «Ein unbekannter Fehler ist aufgetreten (-42110)». Nach... iTunes: Fehler «-42110» beim Starten

Dropdown-Liste in Excel erstellen

Problem: Ich möchte in den einzelnen Feldern der Tabelle eine Dropdown-Liste zur Auswahl der Kriterien einfügen. Wie geht das? Dropdown-Liste in Excel erstellen

ASCII-Tabelle für Sonderzeichen

Ich arbeite häufig mit der Sonderzeichentabelle in Word. Mir ist es aber zu umständlich, ständig die Tabelle zu öffnen, um das Zeichen in den Text einzufügen.... ASCII-Tabelle für Sonderzeichen

Keine Duplikate: Doppelte Einträge in Excel entfernen

Problem: In einer meiner Excel-Listen sind mehrere Einträge doppelt oder sogar mehrfach vorhanden. Gibt es eine Möglichkeit, diese doppelten Einträge... Keine Duplikate: Doppelte Einträge in Excel entfernen

Windows im abgesicherten Modus starten

Problem: Wie kann ich Windows XP, Windows Vista oder Windows 7 im abgesicherten Modus aufstarten? Windows im abgesicherten Modus starten

Mehr Tipps & Tricks
Firmenlinks
PROMOTION
PCTIPP ABONNIEREN
Holen Sie sich monatlich die besten Tipps und Tricks für den PC-Alltag nach Hause.
1-Jahres-Abo 54.-
2-Jahres-Abo 95.-
Geschenkabo
NEWSLETTER
Wir halten Sie auf dem Laufenden: Der Newsletter liefert Ihnen jeden Werktag das Aktuellste aus der Welt von Computer und Internet.

Anmelden
RSS-FEEDS
Die PCtipp-Website bietet RSS-Feeds an. Holen Sie sich die Schlagzeilen von PCtipp.ch schnell und bequem auf den Desktop oder bauen Sie diese in Ihre eigene Webseite ein.
zu den Feeds
Anzeige