Macrootje werkt niet

[Marrosi]

Geachte dames en heren HELPMIJ-EXPERTS,

De kolom A van mijn werkblad bevat de datums van 01/01/2003 tot 31/12/2003. Bij het openen van het
werkboek wil ik dat onmiddellijk de rij met de datum van vandaag wordt geselecteerd.
Ik heb daarvoor onderstaande macro gemaakt:

Sub test1()
Dim todaysearch As Date
todaysearch = Date

With Sheet1
.AutoFilterMode = False
.Range("A1:J1").AutoFilter
.Range("A1").AutoFilter field:=1, Criteria1:=todaysearch
.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Select
.AutoFilterMode = False
End With
Rows(Selection.Row).Activate
End Sub

Macro werkt niet. Wat is er (nu weer) fout?????


(Bedoeling is deze macro toe te voegen aan de worbookmodule zodat hij automatisch wordt uitgevoerd bij het openen van het werkboek.)

 

[Ingrid B]

Ik weet niet of je die filter echt nodig hebt, maar met volgende code wordt de huidige dag automatisch geselecteerd:

Private Sub Workbook_Open()
Dim rng As Range
  Sheets("Blad1").Select
  Set rng = Sheets("Blad1").UsedRange.Columns(1).Cells.Find(Date)
  If rng Is Nothing Then
    MsgBox "Datum niet gevonden"
  Else
'kies 1 van volgende 2 lijnen
    rng.Select
'    Application.Goto rng, True
  End If
End Sub

Kopieer de macro naar ThisWorkbook

 

[Marrosi]

Ingrid,

Iemand met jou fenomenale kennis van VBA vindt voor ieder probleem een elegante oplossing.
Ik met mijn uiterst beperkte kennis zocht de oplossing via een filter......droevig niet?

Jou prachtige stukje code heeft mij heel erg gehlopen en ook heel wat bijgeleerd.

Hartelijk dank