Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1032to1036
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
1032to1036
1032to1036
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Aufzeitstrahl das heutige Datum markieren, wie?

Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:06:00
stefan
hallo,
ich habe in einer Zeile alle Datümer ds jahres 2009 eingetragen. Darunter steht jeweils ein Wert.
Ist es möglich, nach dem Öffnen er Datei, den Fokus auf die Zelle mit dem heutigen Datum zu legen?
Bsp:
01.02.2009 02.02.2009 03.02.2009
1000 5000 1250
wenn ich die Exceldatei am 02.02.2009 öffne, soll die Zelle mit dem Wert 5000 markiert sein.
Geht das irgendwie?
Danke Euch.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:12:18
Daniel
HI
dieses Makro ins Modul "DieseArbeitsmappe" einfügen:

Private Sub Workbook_Open()
Dim Spalte As Long
Sheets("Tabelle1").Activate
Spalte = WorksheetFunction.Match(CLng(Date), Rows(1), 0)
Cells(2, Spalte).Select
End Sub


das Makro läuft immer beim Öffnen der Datei ab.
Sheet-Benennungen und Zeilen-Nummern ggf anpassen.
Gruß, Daniel

AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:19:00
stefan
Hallo daniel,
danke, leider kommt der debugger und schreibt das die matcheigenschaft nicht zugeordnet werden kann.
Hab das Makro an meine gegebenheiten angepasst.
Hast Du noch ne Idee?
Danke Dir
Dim Spalte As Long
Sheets("Kontenverlauf").Activate
Spalte = WorksheetFunction.Match(CLng(Date), Rows(1), 0)
Cells(20, Spalte).Select
End Sub
Anzeige
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:32:05
Daniel
Hi
das hängt von deinen Daten ab.
hast du die richtige Zeile im Makro eingegeben?
steht in den Spalten wirklich ein Datum oder nur ein Text, der so aussieht?
ohne Beispieldatei kann man da nix sagen.
bei mir funktioniert mein Makro
Gruß, Daniel
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:52:30
Tino
Hallo,
mach es besser so, wird dass Datum nicht gefunden gibt es auch keinen Fehler.
In den Zellen der Zeile 1 müssen aber Datumswerte stehen, kein Text!
Microsoft Excel Objekt DieseArbeitsmappe 
Option Explicit 
 
Private Sub Workbook_Open() 
Dim varSpalte 
 
Sheets("Kontenverlauf").Activate 
varSpalte = Application.Match(CDbl(Date), Rows(1), 0) 
 
If IsNumeric(varSpalte) Then 
  Cells(20, varSpalte).Select 
End If 
 
End Sub


Gruß Tino

Anzeige
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 13:10:51
robert
hi tino,
warum ohne fehlermeldung?
ist doch sinnvoll zu wissen, dass "datum nicht vorhanden"-oder?
gruß
robert
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 13:21:40
Tino
Hallo,
wen mit Meldung aber ohne den Debugger. ;-)

Private Sub Workbook_Open()
Dim varSpalte
Sheets(1).Activate
varSpalte = Application.Match(CDbl(Date), Rows(1), 0)
If IsNumeric(varSpalte) Then
Cells(20, varSpalte).Select
Else
MsgBox "Datum " & Date & " wurde nicht gefunden"
End If
End Sub


Gruß Tino

AW: Danke Tino-owt
23.12.2008 13:42:00
robert
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:14:01
robert(rofu)
hi,
wieviele tage hat das jahr? - 365
wieviele spalten hat excel 2003? - 256
da kannst du nicht alle datümer des jahres in eine zeile bringen-oder meinst du etwas anderes?
gruß
robert
Anzeige
AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:16:00
Reinhard
Hi Stefan,
hat 2009 nur 256 Tage?
In "DieseArbeitsmappe"

Private Sub Workbook_Open()
With Worksheets("Tabelle1")
If Application.CountIf(.Rows(1), Date) > 0 Then
.Cells(2, Application.Match(CLng(Date), Rows(1), 0)).Select
Else
MsgBox Date & " nicht gefunden"
End If
End With
End Sub


Gruß
Reinhard

AW: Aufzeitstrahl das heutige Datum markieren, wie?
23.12.2008 12:20:38
stefan
danke euch,
hab erstmal nur das halbe jahr genommen ;-))
ich teste mal dein makro, reinhard.
viele grüße

300 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
Auf Datum mit Uhrzeit springen
Rainer

Hallo,
in meinem Excel Tabellenblatt befindet sich in der Spalte A jeweils fortlaufend das Datum mit einer Uhrzeit (30 Minuten Aufteilung).
Beispiel:
27.10.09 11:00
27.10.09 11:30
27.10.09 12:00 usw.
Da die Tabelle im Laufe der Zeit sehr lang wird, würde ich beim Öffnen...
27.10.2009 12:09:25
Thread-ID: 1112458
4 Beiträge
Anzeige
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
Aktuelles Datum bei mehreren Blättern anspringen
Heiko

Hallo,
ich möchte ein Stundenbuch anfertigen. Für jede Kalenderwoche ein eigenes Blatt zb. Kw12, Kw13 usw.
Um beim öffnen immer das aktuelle Datum anzuspringen, hab ich volgendes Makro verwendet:
Sub auto_open() spalte = "A" datum = Date On Error Resume Next zeile = Columns(spalte...
27.03.2012 18:05:59
Thread-ID: 1256704
4 Beiträge
automatisch zur Zelle mit heutigem Datum springen
bene

Ich habe einen Jahreskalender in Excel. Die Monate sind zeilenweise untereinander angeordnet und in jeder Zelle steht das Datum des jeweiligen Tages. In der Zeile darunter soll für jeden Tag ein Eintrag gemacht werden. Damit man sofort beim Öffnen der Datei auf der tagesaktuellen Zelle steht, s...
20.06.2002 14:46:06
Thread-ID: 130191
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
3
4
11
2
2
3
2
2
2
7
4
3
4
4
7
6
3
7
5
7
1
4