Sub Makro2()
Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
finn = ActiveCell
Columns("B:B").Select
Selection.Find(What:=finn, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Select
End Sub
Hoffentlich eine bessere Antwort als beim ersten Versuch !
Gruss Dierk
Also ich glaub', ich hab' die Lösung ....
... im ursprünglichen Thread gepostet - versuch's mal!
Würd' mich interessieren, ob's das war!
Viel Erfolg
vbChr
Option Explicit
Private Sub Workbook_Open()
Call Datum_suchen
End Sub
In ein "normales" Modul:
Option Explicit
Sub Datum_suchen()
Dim c As Range, Sh As Integer, SB As Date
SB = Date
For Sh = 1 To Sheets.Count
Sheets(Sh).Select
With Cells
Set c = .Find(SB, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByColumns)
If Not c Is Nothing Then
On Error GoTo ENDE
c.Select
Exit Sub
End If
End With
Next
ENDE:
End Sub
markier alle Datums (oder Daten?!?), geh auf Format - bedingte Formatierung - Formel ist:
=a1=heute() und Format zuweisen.
Habe unterstellt, dass in A1 das erste Datum eingetragen ist.
Gruß Boris