Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1988to1992
1988to1992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zum aktuell Datum beim Öffnen

Forumthread: Zum aktuell Datum beim Öffnen

Zum aktuell Datum beim Öffnen
22.08.2024 03:00:06
Michi1509
Hallo Zusammen,

Ich habe schon gesucht und viel ausprobiert, komme allerdings nicht weiter. Liegt vielleicht an meinem Datumsformat.

Ich habe einen Schichtplan erstellt für mehrere Schichten. Auf dem ersten Tabellenblatt kann man den Rhythmus, die Schicht und das Jahr eintragen.
Dann gibt es 12 Tabellenblätter mit je einem Monat. Am Schluss noch ein Tabellenblatt für Feiertage und Ferien (unwichtig).

Wie wäre es möglich, dass beim Öffnen der Arbeitsmappe das aktuelle Tabellenblatt des laufenden Monats geöffnet wird und mit dir dazugehörige Spalte mit dem heutigen Datum (in Zeile 4) markiert wird?

Vielleicht kann mir hier ja jemand helfen mit einem passenden VBA Code. Vielen Dank!

Schichtplan Blanko
https://www.herber.de/bbs/user/171749.xlsx

Grüße Micha
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zum aktuell Datum beim Öffnen
22.08.2024 05:15:52
RPP63
Moin!
Die verlinkte Datei lässt sich nicht öffnen!

Gruß Ralf
AW: Zum aktuell Datum beim Öffnen
22.08.2024 07:25:37
MCO
Hallo Michi!

Das mit dem Format üben wir nochmal...
Das Datum in den Zellen ist etwas durch die Brust ins Auge hergeleitet....

Warum denn 
=DATUM(JAHR(C4)+0;MONAT(C4);TAG(C4)+1)
wenn es auch 
C4+1
heißen kann?
Genauso kannst du die Wochentage mit =C4 übernehmen und wie bei den Tagen die Formatierung auf "TTT" setzen, statt die Textformel zu bemühen.

Ansonsten:
Ein Einfärben des aktuellen Tages im Blatt wird durch deine bedingte Formatierung verhindert, daher hab ich mal Schriftfarbe auf Rot und FETT gesetzt.

Dieser Code macht was du willst: 

Private Sub Workbook_Open()



    Dim Monat As String

    Dim Tag As String

    Dim gef As Range

    

    Monat = Format(Date, "MMMM")

    Tag = Format(Date, "d")

    Sheets(Monat).Select



    Set gef = Range("4:4").Find(What:=Tag, lookat:=xlWhole, LookIn:=xlValues)

    'gef.Select

    gef.Font.ColorIndex = 3

    gef.Font.Bold = True

    

    Set gef = Nothing

End Sub


Viel spannender ist allerdings für Dich die Frage, was du mit der Markierung morgen machst. Eigentlich muss die erste Zeile erstmal alle vorhandenen Markierungen löschen: 
    Range("4:4").Font.ColorIndex = 3

    Range("4:4").Font.Bold = false


Das macht der Code aber nur für den aktuellen Monat. Bei Monatswechsel bleibt daher die Markierung im alten Monat erhalten.

Was hälst du von der Idee, auch die Markierung des Tages über die bedingte Formatierung zu erledigen? Monat wird schon gewählt, und das Tagesdatum ist über =Heute() verfügbar.

Gruß, MCO
Anzeige
AW: Zum aktuell Datum beim Öffnen
22.08.2024 13:17:41
Michi1509
Danke für deine Antwort. Ja ich mit Sicherheit noch verbesserungswürdig.

Mit deiner Formel wird ja der aktuelle Tag markiert und rot eingefärbt. Am liebsten wäe mir, wenn er diesen nicht einfärbt, sonder die vollständige Spalte auswählt. Sprich für heute (22.08.2024) die Spalte X4.

Grüße Micha
Anzeige
AW: Zum aktuell Datum beim Öffnen
23.08.2024 07:40:24
MCO
Moin!

So sei es: 

Private Sub Workbook_Open()



    Dim Monat As String

    Dim Tag As String

    Dim gef As Range

    Dim mon As Worksheet

    Dim rng As Range

    

    Monat = Format(Date, "MMMM")

    Tag = Format(Date, "d")

    Set mon = Sheets(Monat)

    Set rng = mon.Range("4:4")

    

    mon.Select

    With rng

        Set gef = .Find(What:=Tag, lookat:=xlWhole, LookIn:=xlValues)

        Set mark = Sheets(Monat).Range(Cells(4, gef.Column), Cells(35, gef.Column))

        mark.Select

    End With

    Set gef = Nothing

End Sub


Gruß, MCO
Anzeige
AW: Zum aktuell Datum beim Öffnen
23.08.2024 14:07:18
Michi1509
Wow, vielen lieben Dank! funktioniert genau wie ich es brauche!!!
AW: Zum aktuell Datum beim Öffnen
22.08.2024 06:54:22
MCO
Moin!

Michi spricht von VBA, stellt aber eine xlsx ein.
Wenn du die Dateiendung auf xlsm änderst, lässt es sich öffnen.

Gruß, MCO
;

Forumthreads zu verwandten Themen

Formel errechnet sich nicht automatisch
Peter

Servus,
habe mit unten dargestellter Formel ein Problem. Wäre nett wenn mir jemand helfen könnte.
Unter dem Namen Region1 sind alle Filialen zusammengefasst die zu dieser Region gehören.
In Spalte A stehen die zu suchenden Filialnummern, in Spalte D die zu summierenden Werte.
17.09.2008 13:27:00
Thread-ID: 1010355
3 Beiträge
Anzeige
Datumsübernahme von Exel in Serienbrief Word
Exel

Hallo Ihr Spezialisten,
ich habe ein kleines Problem mit der Übertragung von zwei Spalten, die Datumsangaben enthalten. Diese werden in einen Word Serienbrief übertragen und werfen dann leider nur noch 5-stellige Zahlen aus.
Wo ist das Problem? Wir haben die Formatierungen alle abgesche...
17.10.2008 12:37:30
Thread-ID: 1017121
3 Beiträge
Anzeige
Funktion aktualisiert sich nicht automatisch
Bernd

Ich habe hier die folgende Funktion, welche mir eine Formel aus einer Zelle als Zahlen darstellt. Also aus =E20*E20 wird z.B. "5*5" ausgegeben.
Option Explicit Option Compare Text '(c)1999 Andreas Kirschbaum Const TrennZ = "-+/*^()" Const ZahlZ = "-.,0123456789" Const HochZ = "0123" Const...
22.10.2008 12:23:00
Thread-ID: 1018305
7 Beiträge
Pivot-Tabellen automatisch aktualisieren
C

Hallo,
ich möchte eine Excel Datei mit mehreren Pivot-Tabellen nachts aktualisieren, damit ich morgens aktuelle Daten vorliegen habe und nicht den Aktualisierungsprozess abwarten muss. Hinter den Pivot-Tabellen liegen Datenbank-Tabellen. Wie bekomme ich das am einfachsten hin?
Vielen D...
28.10.2008 10:27:00
Thread-ID: 1019831
2 Beiträge
Automatisches Datum in der Zelle
Schindlbeck62

Hallo Excel Speziallisten,
ich habe eine Liste für die Terminverfolgung erstellt, jetzt möchte ich, wenn die Aufgabe erledigt ist. das ich z. B. in die Zelle D4 ja schreibe sich in die Zelle D5 das Heutige Datum automatisch einträgt aber nicht mehr aktualisiert wenn ich es an an...
27.03.2009 11:04:10
Thread-ID: 1064527
9 Beiträge
Automatische Eintragung nach Datumseingabe
Hans

Hallo
Ich möchte in einer Zelle ein Datum eingeben. In einem Informationsblock soll nun automatisch ein Kreuz oder eine Zahl angezeigt werdenob es sich um ein Wochentag/Wochenende/ Feiertag oder Ferientag ( NRW ) handelt.
Ist so etwas unkompliziert möglich. Ich wäre für Eure Hilfe sehr...
31.03.2009 19:01:20
Thread-ID: 1065740
5 Beiträge
Automatischer Datumseintrag
juletschka

Hallo zusammen,
Ich hätte eine Frage an Euch:
Habe eine Datei angehängt, wo ich folgendes machen möchte: in die Zelle B2 gebe ich ein Datum ein, von dem an ein Kredit mit einer bestimmten Laufzeit und Tilgungsfrequenz läuft (Daten werden ebenfalls eingegeben).
Die Datei https://www...
07.05.2009 14:43:44
Thread-ID: 1073631
4 Beiträge
Datum nicht Aktualisieren
René

Hallo
Ich hätte da mal ein Frage
Gibt es eine möglichkeit wenn man in die Zelle (A2) etwas hineinschreibt in die Zelle (B2) das aktuelle Datum mit Uhrzeit steht?
Ich hätte die Formel: =wenn(A2="";"";jetzt())
Das Problem dabei ist, dass sich das Datum dabei immer Aktualisiert. Gi...
25.07.2009 18:19:57
Thread-ID: 1091274
2 Beiträge
Anzeige
Word-Tabelle in Excel kopieren - Zahlen => Datum
Wolfgang

Liebe Forumsmitglieder!
Ich möchte gerne eine Word-Tabelle in Excel kopieren. In der Word-Tabelle sind Zahlen mit einer Nachkommastelle mit einem Punkt (nicht Komma) als Dezimalzeichen.
Beim Copy&Paste klappt alles prima, nur das Zahlen, die eine Interpretation als Datum zulassen (z...
27.07.2009 13:25:20
Thread-ID: 1091588
7 Beiträge
Anzeige
Nach Datum automatisch beim Öffnen sortieren
chris58

Hallo !
Ich habe diesen Code hier gefunden, Jedoch sortiert dieser Code nur die Spalte A. Ich habe aber 9 Spalten (also von A-I). Was muß ich ändern, daß der code alle Spalten sortiert.
Danke für eure Antwort
chris
Private Sub Workbook_Open() Sheets("Tabelle1").Columns(1).Sort...
09.09.2009 22:46:58
Thread-ID: 1101630
3 Beiträge
Beim Speichern Pivot aktualisieren
andreas

Hallo zusammen,
da ich leider keine Ahnung habe von VBA:
kann mir jemand bei einem Code aushelfen, der, wenn gespeichert wird, automatisch alle Pivottabellen in der Datei aktualisiert?
Vielen lieben Dank vorab
Andreas
14.10.2009 19:24:13
Thread-ID: 1109670
2 Beiträge
Pivottabellen automatisch aktualisieren
martin

Hallo,
Ich aktualisiere bis jetzt meine Pivottabellen über folgenden Code: Private Sub Worksheet_Activate() Dim pt As PivotTable For Each pt In Me.PivotTables pt.RefreshTable Next End Sub
dabei muss ich ja immer das Tabellenbaltt neu aktivieren auch wenn ich bereits in dem Tabellenbla...
05.11.2009 12:41:16
Thread-ID: 1114702
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige