Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro zur suche nach heutigen datum

Forumthread: makro zur suche nach heutigen datum

makro zur suche nach heutigen datum
10.09.2003 10:06:59
Jürgen
hi,

wie muß ein makro (ausführung über button / klick ) aussehen, um in einer tabelle das jeweils heutige datum ( steht z.b. in spalte D ) samt zeile zu finden und anzuzeigen.

bin recht hilflos - DANKE

gruß

Jürgen
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro zur suche nach heutigen datum
10.09.2003 10:15:47
K.Rola
Hallo,

Option Explicit

Sub Finde_heute()
On Error Resume Next
Cells.Find(What:=Date, LookIn:=xlFormulas).Activate
Cells.Find(What:=Date, LookIn:=xlValues).Activate
End Sub


Gruß K.Rola
AW: makro zur suche nach heutigen datum
10.09.2003 10:16:38
WernerB.
Hallo Jürgen,

so:

Option Explicit

Sub Juergen()
Dim c As Range
Dim laR As Long
Application.ScreenUpdating = False
laR = Cells(Rows.Count, 4).End(xlUp).Row
For Each c In Range("D1:D" & laR)
If c.Value = Date Then
Application.Goto Reference:=c, Scroll:=True
Exit For
End If
Next c
Application.ScreenUpdating = True
End Sub

Zusatz-Bemerkung: Die Zeile "Exit For" solltest Du auch noch in mein erstes Makro einbauen.

Viel Erfolg wünscht
WernerB.

P.S.: Das Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter (siehe Forums-FAQ).
Anzeige
auch nicht von mir :-))
10.09.2003 10:43:35
Franz W.
Hallo Jürgen,


Sub DatumSuchen()
Dim ws As Worksheet
Dim r As Range
Set r = Cells.Find(Date)
If Not r Is Nothing Then
r.Select
Exit Sub
End If
MsgBox "Datum nicht gefunden"
End Sub


Grüße
Franz
"Dim ws As Worksheet" muss raus
10.09.2003 11:05:08
Franz W.
Sorry, hab vergessen was rauszustreichen, die Zeile "Dim ws As Worksheet" gehört weg.

Die ist nur für Workbook_Open nötig, um das Ganze beim Start der Datei automatisch laufen zu lassen:


Private Sub Workbook_Open()
Dim ws As Worksheet
Dim r As Range
Set ws = Worksheets("Tabelle1")
ws.Activate
Set r = Cells.Find(Date)
If Not r Is Nothing Then
r.Select
Exit Sub
End If
MsgBox "Datum nicht gefunden"
End Sub


Grüße
Franz
Anzeige
;

Forumthreads zu verwandten Themen

Suche nach Tagesdatum in Spalte
Jürgen S.

Hallo Forum,ich suche eine Makro 4.0/5.0 Funktion, nicht VBA, für folgendes Problem:In Spalte B sind fortlaufende Datumsangaben, Bs. 11.04.2002 12.04.2002 usw.
Jetzt möchte ich beim Programmstart über Makro Auto_Öffnen das der Cursor in die
aktuelle Zeile der Spalte B gesetzt wird. Wegen...
11.04.2002 13:50:31
Thread-ID: 112442
3 Beiträge
Suchen nach Tagesdatum im Namen
Max

Hallo Forum,
ich habe eine Tabelle (Kalender) in der bestimmte Zellen mit einem Namen versehen sind.
Dabei hat die Zelle A1 den Namen "Januar01", die Zelle A2 den Namen "Januar02"....die Zelle B1 den Namen "Februar01", die Zelle B2 den Namen "Februar02" usw.
Nun will ich per Makro z...
13.04.2012 11:59:15
Thread-ID: 1259099
3 Beiträge
Suche nach heutigem Datum in Tabelle
Christian

Hallo alle zusammen,
vielleicht könnt ihr mir ja helfen. Gibt es eine Formel, die in der Tabelle E-Mail in Spalte G das heutige Datum sucht und die letzte Zeile, in der es gefunden wird, als Zahl ausgibt? Also wenn z.B. Zeile 2969, soll die Zahl 2969 ausgegeben werden.
Falls das heutige...
01.09.2012 09:03:46
Thread-ID: 1277061
15 Beiträge
Explorer Suche nach Ordner starten mit Vba
bruno

Hallo zusammne
möchte gern mit vba die Explorer Suchfunktion starten. Gesucht soll nach einem Ordner, welche ich vorher per Makro ermittelt habe. (Name steht in einer Zelle)
Gruss
Bruno
28.11.2012 19:13:07
Thread-ID: 1288483
4 Beiträge
Suche nach Datum funktioniert nicht
Gruni

Hallo Forum,
folgendes Problem beschäftigt mich seit einiger Zeit.
In einer Zelle steht diese Formel drin
=DATUM(2013;1;1)
Die Zelle ist als Datum kurz formatiert.
Folglich steht in der Zelle der 01.01.2013
Jetzt möchte ich dieses Datum suchen... geht aber nicht.
Sel...
21.06.2013 10:25:57
Thread-ID: 1318875
12 Beiträge
Problem mit .Find bei Suche nach Datum
Philipp

Hallo Zusammen,
Ich habe folgendes Problem:
Ich habe einen Dynamischen Kalender angelegt in dem die Daten in Formelabhängigkeit stehen (Das _ Datum wird nur in der Ersten Zeile schriftlich angegeben, der Rest setzt sich aus A2=A1+1, A3=A2+1 etc. zusammen). Nun möchte ich ein Makro schr...
16.01.2017 16:15:12
Thread-ID: 1535342
16 Beiträge
Suchen nach Datum-Zeit
Georg

Hallo Zusammen,
ich hänge an einer Stelle wo ich nicht weiterkomme, ggf hat jemand eine gute Idee?
Ich habe in einer Spalte A eine Kombination aus Datum + Zeit geschrieben:
Dim Datum as Date
EintragInListe = CDate(datum & " " & entry.zeit) 'entry.zeit ist vom datentype...
16.06.2017 12:50:52
Thread-ID: 1564425
2 Beiträge
Anzeige
Wenn kein Datum nächste Zeile durchsuchen
Flechtner

Hallo,
ich habe eine Tabelle mit
Reiter "Basisdaten":
A2:A300=Nummer Teilnehmer
B2:B300=Name Teilnehmer
C2:C300=Teilnahmedatum (Datum, ja, nein, offen)
Im Reiter "Übersicht" möchte ich nun nur die Nummern der Teilnehmer nacheinander ausgeben(ab A4), die bereits teilgenom...
30.06.2017 11:06:02
Thread-ID: 1566726
2 Beiträge
VBA - Formularnamen einer Datei auslesen
Fujin

Hallo @ll
Ich übergebe eine Userform sowie ein kleines Makro aus der Personal.XLSB in eine neugeöffnete Datei. Die Datei ist ein Export aus einem anderen Programm, so dass der Dateiname immer unterschiedlich ist.
Ist es möglich mit dem Code aus der Personal.XLSB in der neuen Datei zu pr...
21.07.2017 10:10:31
Thread-ID: 1570302
3 Beiträge
Suche nach Zellen im Datumsformat T.
Michael

Hallo,
ich habe ein Problem bei dem ich einfach nicht weiter komme. Ich möchte gerne Zellen finden in denen ein Datum steht. Diese Zellen sind jedoch benutzerdefiniert Formatiert in "T.", so dass beim "05.01.2018" nur "5." angezeigt wird. Leider finde ich keine Lösung diese mittels Makro zu...
17.01.2018 15:07:27
Thread-ID: 1602822
4 Beiträge
Anzeige
Suche nach Datum, das sich aus einer Formel ergibt
Simon

Hallo alle Zusammen
ich verwende folgenden Code, um nach einem heutigen Datum zu suchen, welches in der Reihe 2 hinterlegt ist. Jetzt habe ich allerdings das Problem, dass sich das datum aus einer Formel zusammensetzt und dann angezeigt wird. Wenn er jetzt sucht, findet er nichts. Wie kann...
22.03.2018 08:34:18
Thread-ID: 1615637
9 Beiträge
Suche nach mehreren Kriterien mittels Datum
Kigi

Hallo zusammen,
ich würde gern in angehängter Excel verschiedene Varianten nach Datum überprüfen.
Beispielsweise möchte ich überprüfen, ob das Gerät mit der Seriennummer in Zelle A3 öfters erfasst wurde und falls ja ob die Fehlercodes in B in folgender Konstellation aufgetreten sind:
26.04.2018 11:41:25
Thread-ID: 1621637
7 Beiträge

Beliebteste Forumthreads (12 Monate)

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