Home  >  Forum

spacer
  #1  
Alt 29.07.2012, 14:03
kobe15 kobe15 ist offline
Regelmässiger Nutzer
 
Registriert seit: 14.03.2008
Ort: Ostschweiz mit Blick auf den Säntis
Beiträge: 37
Standard [EXCEL] Kopfzeile Datum anzeigen vom nächsten Tag

Liebe Excel-Freaks,

wir führen eine Terminliste im Excel. In der Kopfzeile sollte aber das Datum des nächsten Tages stehen (und als Herausforderung am Feitag das Datum vom nächsten Montag). Gibt es eine Möglichkeit, das Datum mit einem Makro zu programmieren? Das Standard-Datum "&[Datum]" in der Kopfzeile gibt nur das Datum des aktuellen Tages zurück.
Für eure Hilfe schon jetzt ein herzliches Dankeschön.

Liebe Grüsse
Kobe15
Mit Zitat antworten
  #2  
Alt 29.07.2012, 19:26
Benutzerbild von Xpert
Xpert Xpert ist gerade online
Stammgast
 
Registriert seit: 21.06.2008
Ort: Aargau West
Beiträge: 775
Standard

Zitat:
Zitat von kobe15 Beitrag anzeigen
Liebe Excel-Freaks,

wir führen eine Terminliste im Excel. In der Kopfzeile sollte aber das Datum des nächsten Tages stehen (und als Herausforderung am Feitag das Datum vom nächsten Montag). Gibt es eine Möglichkeit, das Datum mit einem Makro zu programmieren? Das Standard-Datum "&[Datum]" in der Kopfzeile gibt nur das Datum des aktuellen Tages zurück.
Für eure Hilfe schon jetzt ein herzliches Dankeschön.

Liebe Grüsse
Kobe15
Versuch es mal damit:

Code:
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
__________________
hat mal einen Fujitsu Siemens PC Modell "Xpert" besessen...
Mit Zitat antworten
  #3  
Alt 07.08.2012, 08:41
Benutzerbild von Xpert
Xpert Xpert ist gerade online
Stammgast
 
Registriert seit: 21.06.2008
Ort: Aargau West
Beiträge: 775
Standard

und hats funktioniert? Probleme?
__________________
hat mal einen Fujitsu Siemens PC Modell "Xpert" besessen...
Mit Zitat antworten
  #4  
Alt 16.08.2012, 17:45
kobe15 kobe15 ist offline
Regelmässiger Nutzer
 
Registriert seit: 14.03.2008
Ort: Ostschweiz mit Blick auf den Säntis
Beiträge: 37
Standard

Lieber Xpert,
vielen Dank für den Tipp. Wir habens so gemacht und es funktioniert für den nächsten Tag. Weil der Terminplan rollend ist, sollte eine Art Kalender hinterlegt sein, damit sich das Makro immer wieder aktualisiert. Oder hab ich allenfalls etwas nicht richtig gemacht?

Liebe Grüsse und einen schönen Abend
Kobe15

Geändert von kobe15 (16.08.2012 um 19:13 Uhr)
Mit Zitat antworten
  #5  
Alt 17.08.2012, 16:48
Benutzerbild von Xpert
Xpert Xpert ist gerade online
Stammgast
 
Registriert seit: 21.06.2008
Ort: Aargau West
Beiträge: 775
Standard

Welche Excel-Version hast du? Hast du die Datei als *.xlsm (Excel 2007 und höher) gespeichert?

Kurzanleitung
1. Datei öffnen
2. Tastenkombination "Alt" und "F11" drücken
3. Links im Fenster "Projekt - VBA Project" -> "DieseArbeitsmappe" doppellklicken
4. Code reinkopieren (siehe oben)
5. VBA-Editor schliessen
6. Datei speichern als Arbeitsmappe mit Makros (*.xlsm), falls 2007 oder höher
7. Datei schliessen und wieder öffnen
8. Dialogfeld "Inhalte Aktivieren" (=Sicherheitswarnung für Makro) anklicken um das Makro auszuführen. Beim nächsten Start der Datei, sollte der Dialog nicht mehr erscheinen.
__________________
hat mal einen Fujitsu Siemens PC Modell "Xpert" besessen...
Mit Zitat antworten
  #6  
Alt 18.08.2012, 08:31
kobe15 kobe15 ist offline
Regelmässiger Nutzer
 
Registriert seit: 14.03.2008
Ort: Ostschweiz mit Blick auf den Säntis
Beiträge: 37
Standard

Hallo Xpert,
ich verwende Excel 2007 und habe aufgrund deiner Kurzanleitung das Makro einkopiert (obwohl ich es vorher auch ähnlich reinkopiert und ausführen liess). Ich ging über "Code einkopieren". Nächste Woche sehen wir weiter. Auf alle Fälle ein Dankeschön für deine Unterstützung. Melde mich wenn es klappt.

Gruss kobe15
Mit Zitat antworten
  #7  
Alt 27.08.2012, 05:39
kobe15 kobe15 ist offline
Regelmässiger Nutzer
 
Registriert seit: 14.03.2008
Ort: Ostschweiz mit Blick auf den Säntis
Beiträge: 37
Standard

Guten Tag Xpert,
ich habe die Datei zuhause auf dem PC gespeichert - hier funktioniert dein Makro tiptop - auch übers Wochenende. Ich gehe davon aus, dass im Betrieb eine Sicherheitssoftware das Ausführen des Makros verhindert. Herzlichen Dank!
Liebe Grüsse Kobe15
Mit Zitat antworten
  #8  
Alt 27.08.2012, 08:44
Benutzerbild von Xpert
Xpert Xpert ist gerade online
Stammgast
 
Registriert seit: 21.06.2008
Ort: Aargau West
Beiträge: 775
Standard

Zitat:
Zitat von kobe15 Beitrag anzeigen
Guten Tag Xpert,
ich habe die Datei zuhause auf dem PC gespeichert - hier funktioniert dein Makro tiptop - auch übers Wochenende. Ich gehe davon aus, dass im Betrieb eine Sicherheitssoftware das Ausführen des Makros verhindert. Herzlichen Dank!
Liebe Grüsse Kobe15

Eventuell hilft es dir in folgende Richtung zu gehen: https://office.microsoft.com/de-de/e...001231781.aspx
__________________
hat mal einen Fujitsu Siemens PC Modell "Xpert" besessen...
Mit Zitat antworten
  #9  
Alt 10.09.2012, 16:03
kobe15 kobe15 ist offline
Regelmässiger Nutzer
 
Registriert seit: 14.03.2008
Ort: Ostschweiz mit Blick auf den Säntis
Beiträge: 37
Standard

Liebe Xpert,
vielen Dank für den Support bis zum Funktionieren. Es geht jetzt auch im Betrieb - wir drei Nutzer sind froh!
Gruss Kobe15
Mit Zitat antworten
  #10  
Alt 10.09.2012, 23:15
Benutzerbild von Xpert
Xpert Xpert ist gerade online
Stammgast
 
Registriert seit: 21.06.2008
Ort: Aargau West
Beiträge: 775
Standard

Super, danke für dein Feedback
__________________
hat mal einen Fujitsu Siemens PC Modell "Xpert" besessen...
Mit Zitat antworten
Antwort


Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge hochzuladen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

BB-Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist Aus.



Alle Zeitangaben in WEZ +1. Es ist jetzt 19:33 Uhr.


Firmenlinks
Leser helfen Lesern

Beantworten Sie Fragen zu Computerproblemen und gewinnen Sie 100 Franken!

 

Sind Sie versiert im Umgang mit Computer und Internet? Zögern Sie nicht: Helfen Sie anderen Lesern im Forum.

Der PCtipp belohnt jeden Monat die beste Antwort zu PC-Problemen mit 100 Franken. Zudem werden die nützlichsten Beiträge im PCtipp veröffentlicht. Wir behalten uns vor, Ihre ggf. gekürzte Anfrage mit Antwort zu veröffentlichen.
PCTIPP ABONNIEREN
Holen Sie sich monatlich die besten Tipps und Tricks für den PC-Alltag nach Hause.
NEWSLETTER
Wir halten Sie auf dem Laufenden: Der Newsletter liefert Ihnen jeden Werktag das Aktuellste aus der Welt von Computer und Internet.

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.
Anzeige