Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
26.04.2024 15:27:20
Excel öffnet nach Auswahl einer Excel diese leer
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1912to1916
1912to1916
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Immer nach dem öffnen zu Heute springen.

Immer nach dem öffnen zu Heute springen.
10.01.2023 12:12:03
Bernd_hat
Hallo an Alle,
habe noch ein Problem mit meinem Schichtplan. In den Zellen K5:NK5 steht das Datum der einzelnen Tage.
Der Bereich davor ist fixiert damit man einen Überblick hat.
Wie kann man es nun lösen das beim öffnen der Datei, das Datum =heute() in der Zelle nach I3 angezeigt wird damit man nicht zum aktuellen Datum scrollen muss ?
Denke das geht nur über VBA .
Würde mich sehr über Hilfe freuen.
Datei ist anbei
https://www.herber.de/bbs/user/157184.xlsm
Gruß Bernd_

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 12:21:46
Herbert_Grom
warum verwendest du nicht meinen Code?
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 12:35:06
Bernd_hat
Hallo Herbert,
der funktioniert nicht bei der Datei. Es geht auch nicht um die Feiertage.
Gruß Bernd_
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 12:50:52
Herbert_Grom
Hallo Bernd,
ich meinte auch nicht die Feiertage. Aber probiers mal damit in "DieseArbeitsmappe":

Private Sub Workbook_Open()
Dim lCol&
lCol = Range("3:3").Find(What:=Date).Column
Cells(3, lCol).Select
ActiveWindow.SmallScroll ToRight:=Date - CDate("01.01." & [c_BearbJahr])
End Sub
Servus
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 13:01:26
Bernd_hat
Hallo Herbert,
habe den Code eingebaut ist noch ein anderer bei.
Aber auch ohne diesen bekomme ich eine Fehlermeldung.
Datei ist anbei.
https://www.herber.de/bbs/user/157186.xlsm
Gruß Berd_
Anzeige
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 13:15:55
Herbert_Grom
Na klar kriegst du eine Fehlermeldung, da du sicher nicht „c_BearbJahr“ eingebaut hast!
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 13:41:02
Bernd_hat
Habe die Datei ans Laufen bekommen.
Leider springt er aber nicht zum 10.01.2023 sondern zum 09.01.2023
Eventuell findest Du den Fehler.
Datei anbei.
https://www.herber.de/bbs/user/157189.xlsm
Gruß Bernd_
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 13:41:09
Rudi
Hallo,

Private Sub Workbook_Open()
Dim lcol As Long
Sheets(1).Activate
lcol = Application.Match(CLng(Date), Rows(3), 0)
Application.Goto Cells(3, lcol), True
End Sub
Gruß
Rudi
Anzeige
AW: Immer nach dem öffnen zu Heute springen.
10.01.2023 14:58:54
Bernd_hat
Hallo Rudi,
herzlichen Dank für Deine Hilfe .
Jetzt klapp es .
Gruß Bernd_
Besser so:
10.01.2023 15:05:29
Daniel 

Private Sub Workbook_Open()
Dim lcol As variant
Sheets(1).Activate
lcol = Application.Match(CLng(Date), Rows(3), 0)
if isnumeric(lcol) then Application.Goto Cells(3, lcol), True
End Sub
so vermeidest du einen Fehlerabbruch, falls der Kalender mal das aktuelle Datum nicht enthalten sollte.
Gruß Daniel
AW: Besser so:
10.01.2023 15:36:35
Bernd_hat
Hallo Daniel,
funktioniert auch.
Ein Problem noch.
Das Blatt ist ja Teilweise Schreibgeschützt. ( Passwort ist 1234)
Eigentlich soll es nach dem öffnen der Datei möglich sein:
Gliederung benutzen
Zeilen einfügen
Zeilen kopieren
Zellen formatieren.
Das funktioniert aber leider nicht.
Hier der Code. Kann da bitte mal jemand schauen warum es nicht funktioniert ?

Private Sub Workbook_Open()
Dim lcol As Variant
Sheets(1).Activate
lcol = Application.Match(CLng(Date), Rows(3), 0)
If IsNumeric(lcol) Then Application.Goto Cells(3, lcol), True
Sheets("Konti 14+8").Protect Password:="1234", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True, AllowInsertingRows:=True, AllowDeletingRows:=True
Sheets("Konti 14+8").EnableOutlining = True ' Für Gliederung
Sheets("Konti 14+8").Protect Password:="1234"
End Sub
Datei ist im Anhang
https://www.herber.de/bbs/user/157192.xlsm
Gruß Bernd_
Anzeige
noch besser:
10.01.2023 16:33:21
Daniel
neues Problem = neuer Thread
weil dann wieder mehr Menschen draufschauen.
Gruß Daniel

302 Forumthreads zu ähnlichen Themen

Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Anzeige
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
Datei löscht sich zu einem bestimmten Datum selbst
wolle

Hallo an alle,
ich würde gerne wissen ob es möglich ist, dass sich eine Excel - Datei zu einem bestimmten Datum selbst löschen kann.
Wie stell ich mir das vor?
Diese Datei wird an verschiedene Personen zu Übungszwecken ausgegeben. D.h. das Original wird mittels Speichermedium (USB-...
12.01.2009 20:54:00
Thread-ID: 1039018
6 Beiträge
Anzeige
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049955
2 Beiträge
Zellen färben mittels Datumsabfrage
Pascal

Hallo,
ich brauche mal die Hilfe von Excel "Kennern"...
Ich habe verschiedene Spalten in einem Sheet, die eine zeigt einen Endtermin an, die andere den Status. Dieser steht auf "Released" oder "Service"...
Ist nun ein Endtermin erreicht und der Status steht immer noch auf "Released"...
12.02.2009 11:15:00
Thread-ID: 1049956
3 Beiträge
Vergleich Datum in Zelle mit Datum heute
Schmidtler

Hallo,
habe mal wieder ein Problem:
Ich prüfe Datum bzw. Inhalt von Zelle V1 zu Datum bzw. Inhalt von Zelle V2 und gebe dann einen Wert in die Zelle unterhalb von V2 aus. Die Prüfung OK und ISSUE funktionieren. Jedoch hat mein Marko irgendein Problem mit dem Vergleich =Date. Kann mir ei...
27.02.2009 09:59:09
Thread-ID: 1054614
5 Beiträge
Zahlen zwischen zwie Spalten mit dem Datum darauf
Oskar

Hallo
Ich möchte Zahlen auf Spalten Addieren, welche zwischen zwei Datum liegen um zu berechnen, wie lange eine Arbeit unter Berücksichtigung der Feiertage geht. Die Zeile mit %, wieviel nicht gearbeitet ist, ist schon auf der Tabelle. (Zeile 4) Auf Zeile 2 steht das Datum. Die Datum von un...
11.05.2009 14:07:39
Thread-ID: 1074347
3 Beiträge
Wochentag aus Zelle mit Datum
MikeM

Hallo zusammen,
hab ein Problem und hoffe auf eine Lösung.
Ich möchte mir gerne aus einem Datum den Wochentag anzeigen lassen - allerdings als Text.
Beispiel:
Zelle A1 = 11.02.2009 (formatiert als TT, da ich nur den Tag brauche, also 11, da es sich um einen Kalender handelt)
...
18.05.2009 14:47:49
Thread-ID: 1075909
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
1
4
5
16
1
2
4
2
3
1
3
2
6
2
3
5
3
4
2
1
4
11
2
1