Ga naar inhoud

ahdbrouw

Lid
  • Items

    2
  • Registratiedatum

  • Laatst bezocht

Alles dat geplaatst werd door ahdbrouw

  1. Ik heb Dim Datum as string veranderd naar Dim Datum as Date Nu neemt hij enkel 1/9/2014 ...
  2. Besta VBA-liefhebbers, In Combobox3 heb ik alle maanden van het jaar, in combobox2 heb ik verschillende jaren (2013,2014,...) Ik maak een string Datum=ComboBox3.ListIndex + 1 & "/" & ComboBox2.Value Bij september 2014 geeft Datum 9/2014 weer mijn bedoeling is in een range alle data te vinden van deze maand in dit jaar, ongeacht welke dag van de maand: With Worksheets("Gezamelijke").Range("A6:A500") Set Rng = .Find(Datum, LookIn:=xlValues) If Not Rng Is Nothing Then FirstAddress = Rng.Address Do 'om te zien welke data gevonden worden: MsgBox Datum & " op adres: " & Rng.Value ... Set Rng = .FindNext(Rng) Loop While Not Rng Is Nothing And Rng.Address <> FirstAddress End If End With De eerste datum dat zou moeten gevonden worden is 2/09/2014 maar in de plaats vindt hij enkel de data waar een 9 in de dag komt, vb: 19/09/2014, 9/09/2014, 29/09/2014, ...kan ie Kan iemand mij hieruit helpen aub? Avast bedankt! Annelies
×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.