Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
304to308
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
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

24 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige