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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen