Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 16:50:59
2 Zellen in 2 Blättern mit unterschiedlichen Bereichen vergl
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1428to1432
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
1428to1432
1428to1432
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Beim Öffnen zum aktuellen Datum springen

Beim Öffnen zum aktuellen Datum springen
28.05.2015 14:58:41
Kulo
Hallo Zusammen,
ich habe eine Tabelle in der in Zeile zwei ab Spalte 14 fortlaufend über 133 Spalten ein Datum mit der Formel "=DATUM(JAHR(N2);MONAT(N2)+1;TAG(N2))" beginnend mit dem 1.1.2015 errechnet wird.
Deshalb ist der Wert in jeder Spalte der erste des Monats.
Jetzt würde ich es gern so haben, dass beim Öffnen der Tabelle die Spalte mit dem aktuellen Monat im aktuellen Jahr immer mittig in der Tabelle erscheint, so dass ich nicht erst zu der Spalte scrollen muss.
Kann mir da jemand einen Tipp geben?
Vielen Dank im Voraus
Kulo

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Beim Öffnen zum aktuellen Datum springen
28.05.2015 16:01:16
Michael
Hallo!
Siehe diesen Beitrag: https://www.herber.de/forum/archiv/1332to1336/t1333946.htm#1333946
Falls es nicht unbedingt die Fenstermitte sein muss, sondern es reicht die betroffene Spalte an den linken Bildschirmrand zu setzen, geht es zB auch so:
Strg + F11 - im VBA-Editor dann auf "DieseArbeitsmappe" doppelklicken und Code einfügen:
Private Sub Workbook_Open()
Dim DatLeiste As Range
Dim DatEinzel As Range
Set DatLeiste = Range(Cells(2, 14), Cells(2, 14).End(xlToRight))
For Each DatEinzel In DatLeiste
If Month(DatEinzel) = Month(Date) And Year(DatEinzel) = Year(Date) Then
Application.Goto DatEinzel, True
Exit For
End If
Next
End Sub
LG
Michael

Anzeige
AW: Beim Öffnen zum aktuellen Datum springen
28.05.2015 19:20:35
Kulo
Hallo Michael,
vielen Dank für Deine Hilfe.
Es hat zwar nicht auf Anhieb geklappt, weiß nicht warum.
Jetzt jedenfalls hab ich statt "Private Sub Workbook_Open()" "Private Sub Worksheet_Activate()" genommen und es funktioniert. Ich weiß nicht, ob das dass i-Pünktchen war oder ich etwas beim Speichern falsch gemacht habe. ?
Ja, die Spalte ist nicht mittig sondern steht an erster Stelle. Ich hab noch ne datumsabhängige bedingte Formatierung eingefügt. Jetzt steht die aktuelle Spalte vorn und ist noch farbig hinterlegt. ;-)
Vielen Dank nochmal für die Hilfe, ich stehe da echt auf verlorenem Posten mit VBA. Über Q-Basic bin ich nicht hinaus gekommen. ;-)))
VG
Kulo

Anzeige
Danke für die Rückmeldung und...
28.05.2015 21:31:09
Michael
Hallo,
...Wenn Du das Workbook_Open Ereignis nimmst, wie von mir vorgeschlagen, müsstest Du die Mappe schließen und wieder öffnen - dann löst das Makro aus. Du wolltest den Fokus auf die Zelle ja ursprünglich beim Öffnen der Arbeitsmappe setzen, oder?!
Hauptsache es passt für Dich - freut mich und Danke für Deine Rückmeldung!
LG
Michael

102 Forumthreads zu ähnlichen Themen

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
Anzeige
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
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
Anzeige
daten ab dem aktuellen datum anzeigen lassen
mart

hallo excel-profis,
ich habe schon mehrer seiten im internet durchsucht, aber immer noch keine lösung gefunden. vielleicht klappt ja hier...ich hoffe, hier ist genau derjenige der mir helfen kann!
zu meinem problem. ich habe in der ersten zeile meine kalenderwochen stehen, darunter die...
16.04.2010 16:12:41
Thread-ID: 1152269
3 Beiträge
Bei Enter zu einem bestimmten Feld springen
Rudolf

Moin, moin,
ich möchte im Rahmen einer Formulargestaltung per Excel erreichen, dass - wenn z.B. in der Zelle B3 ein Wert eingegeben wurde und Enter betätigt wurde, dass dann nicht automatisch das nächste Zellenfeld angesteuert wird, sondern eine Zelle in Abhängigkeit von dem Wert in einer...
21.09.2010 18:47:57
Thread-ID: 1178754
5 Beiträge
Rechnen mit folgendem Datumsformat
Maris

Hallo,
ist es möglich mit diesem Datumsformat zu rechnen?
Monat/Tag/Jahr also bspw.
07/04/2010
+ 7
= 07/11/2010
Gruß,
Maris
25.10.2010 16:34:23
Thread-ID: 1183795
12 Beiträge
zum Datum springen
Andi

Hallo,
zu meinem Problem habe ich im Archiv mehrere ähnliche Fragen und auch Antworten gefunden. Allerdings gelingt es mir nicht die Formeln oder Codes entsprechend zu ändern.
Mein Problem:
Es existiert eine Excel-TAbelle mit Reitern "Januar 2010", "Februar 2010" usw bis Dezember....
29.10.2010 14:38:05
Thread-ID: 1184438
3 Beiträge
Zur Zelle mit Datum springen
JN

Hallo, ich benötige folgendes Makro:
In Spalte A befinden sich Datumswerte. In Zelle B1 geben ich ein Datum ein und möchte dann per Schaltfläche zum gleichen Datum springen (Zelle aktivieren), welches sich irgendwo in Spalte 1 befindet.
Danke und Grüße
JN
16.03.2011 13:10:10
Thread-ID: 1205966
3 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
4
5
2
2
3
2
4
11
2
2
3
2
2
2
7
4
3
4
4
7
6
3
7
5
7