Filteren met groter dan en gedefinieerde naam

Status
Niet open voor verdere reacties.

Velpon

Gebruiker
Lid geworden
20 aug 2020
Berichten
84
Beste,

Het volgende filter loopt bij mij vast om meerdere redenen:
Ik probeer rijen in een tabel weg te filteren waar de waarde in kolom 11 kleiner is dan de waarde in mijn gedefinieerde veldnaam _DatumTijd.
A: Het lukt mij niet te verwijzen naar een gedefinieerde naam.
B: Als ik verwijs naar "K2" (het veld met de gedefinieerde naam "_DatumTijd") wordt alles weggefilterd omdat dit niet als een waarde wordt gezien.
C: En graag zou ik in plaats van verwijzen naar Field:=11 verwijzen naar de kop van de tabel-kolom


ThisWorkbook.Sheets("Agenda").Range("T_Agenda").AutoFilter Field:=11, Criteria1:=">="&"_DatumTijd"


Het enige dat ik werkend krijg is: ThisWorkbook.Sheets("Agenda").Range("T_Agenda").AutoFilter Field:=11, Criteria1:="44.967,09"

Kan iemand mij helpen?
 

Bijlagen

  • Agenda-01.xlsm
    30,5 KB · Weergaven: 11
Laatst bewerkt:
Code:
With Sheets("Agenda").ListObjects(1)
    .Range.AutoFilter .ListColumns("sortering").Index, "<" & CLngPtr(Range("_Datumtijd"))    'anders CLngLng
  End With
 
Laatst bewerkt:
Beste Harry,

Heel vreemd, het werkte correct. Ik heb daarna nog wat aangepast en krijg het nu niet meer werkend.
Na uren zoeken en met schaamrood op de kaken toch maar de vraag: wat doe ik verkeerd?


With Sheets("Agenda").ListObjects(1)
.Range.AutoFilter .ListColumns("Datum").Index, ">=" & CLngPtr(Range("_Vandaag"))
.Range.AutoFilter .ListColumns("Tijdslot").Index, ">=" & CLngPtr(Range("_Nu"))
End With
 
Verander eens in.
Code:
.Range.AutoFilter .ListColumns("Tijdslot").Index, ">=" & Range("_Nu")
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan