Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
328to332
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
328to332
328to332
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sprung zum aktuellen Datum in langen Excel

Sprung zum aktuellen Datum in langen Excel
01.11.2003 15:58:53
Peter
Mein Datenbereich
A1=Januar02, A2=Februar02 ..... A100=November04, A101=Dezember04

Wie kann ich beim öffnen dieser Arbeitsmappe in dieser langen Tabelle automatisch (zwecks Dateneingabe) zum jew. aktuellen Monat springen (ohne scrollen natürlich)

Sorry für die blöde Frage ! Selbst für Tipps wie "dann lies doch mal die Hilfe" dankbar !
pb

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

Betreff
Datum
Anwender
Anzeige
AW: Sprung zum aktuellen Datum in langen Excel
01.11.2003 16:42:37
Beni
Hallo Peter,
leider geht das nicht ohne VBA, kopiere diesen Code, öffne mit Alt+F11 den Visual Basic Editor, dopplelklick auf "Diese Arbeitsmappe" und Code einfügen.
Ich habe Dir ein Beispiel angefügt.
Gruss Beni

https://www.herber.de/bbs/user/1705.xls


Private Sub Workbook_Open()
Sheets("Tabelle1").Select '<<<< anpasen
Dim Lzelle As Long
Dim Datum1, Monat1, Jahr1
Lzelle = Cells(65536, 1).End(xlUp).Row
For d = 2 To Lzelle
Datum1 = Cells(d, 1)
Monat1 = Month(Datum1)
Jahr1 = Year(Datum1)
If Monat1 = Month(Date) And Jahr1 = Year(Date) Then
Cells(d, 1).Select
Exit Sub
End If
Next d
End Sub

Anzeige
AW: Sprung zum aktuellen Datum in langen Excel
01.11.2003 17:37:56
PeterW
Hallo Peter,

ich gehe davon aus, dass sich hinter Januar02 das Datum 01.01.2002 verbirgt. Kopiere in das Modul DieseArbeitsmappe folgenden Code:


Private Sub Workbook_Open()
Sheets("Tabelle1").Activate 'Tabelle1 durch den Tabellennamen ersetzen, in dem die Daten stehen
Columns(1).Find(What:=DateSerial(Year(Date), Month(Date), 1), lookat:=xlWhole, LookIn:=xlValues).Activate
End Sub


Gruß
Peter
AW: Sprung zum aktuellen Datum in langen Excel
02.11.2003 12:43:15
Peter
Danke ! Riesige Hilfe, gerade für nen XLNewbie wie mich !

... und wo Du mir gerade am helfen bist, gleich noch ne Frage (unverschämt?):
Wie krieg ich aus einer Datenreihe die monatlich fortgeschrieben wird automatisch immer nur die letzten 12 (oder 6) Monate ins Diagramm ??

Auch wenns für diese neue Frage jetzt keinen Tipp mehr gibt: DANKE für die Unterstützung ... und dieses Super-Forum !
Peter
Anzeige
AW: Sprung zum aktuellen Datum in langen Excel
02.11.2003 12:51:40
PeterW
Hallo Peter,

ohne genauere Angaben kann man da schlecht etwas sagen. Schau mal links unter Excel-FAQ - Grafik - Diagramm, vielleicht findest du dort etwas passendes. Falls nicht stelle deine Frage neu und gib mehr Informationen: wie ist die Tabelle aufgebaut, welche Bereiche sollen dargestellt werden...

Gruß
Peter
Datenbereich
02.11.2003 15:08:27
Peter
Noch Mal: Danke !
Ich hatte mich vorher schon durch die FAQs und das Forum durch geackert, aber nix gefunden (was ich kapiert hätte).

Also die Datenreihe(n) sehen so aus:

A1 bis ... Jan02-Feb02-März02-...-Okt03-Nov03-Dez03-Jan04-...
B1 bis ... Wert -Wert -Wert -...-Wert -leer -leer -leer -...

Im Diagramm sollen dann jeweils die "letzten" 12 Werte erscheinen, im Beispiel Nov02 bis einschl. Okt03
Wird dann ein Wert unter Nov03 erfasst, soll das Diagramm den Datenbereich verschieben, also Dez02 bis einschl. Nov03 anzeigen usw. in den Folgemonaten.
Mit Bereich verschieben hab ich schon "gespielt", kriegs aber nicht gebacken (vielleicht auch wegen der "Werte" in A [Jan02 ... Jan04 ...]?)
Die erste leere Zelle (hier Nov03) krieg ich mit Range("B1").End(xlToRight).Select ja noch raus und muss jetzt halt "nur" noch die 12 Zeilen links davon in B (und die 12 Zellen darüber in A - also die Monatsnamen) "irgendwie" selektieren und als Datenbereich dem Diagramm übergeben ... aber genau das krieg ich nicht hin !

Besten Gruß
Peter
Anzeige
AW: Datenbereich
02.11.2003 21:27:22
PeterW
Hallo Peter,

Diagramme sind nicht meine Baustelle. Vielleicht hilft die dieser Hinweis weiter: ermittle die letzte Zelle in B mit Wert als
lgLetzte = Range("B65536").End(xlUp).Row
der zu übergebende Datenbereich wäre dann
Range(Cells(lgLetzte - 12, 1), Cells(lgLetzte, 2))

Wenn dir das nicht hilft beherzige meinen Rat und starte einen neuen Thread.

Gruß
Peter

303 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

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