Hoi Helpers en Oplossers

Ik heb een stukje code dat niet doet wat ik wil, eerst maar eens de code:

With Workbooks("Grootboek.xlsm").Sheets("Dag Journaal").Columns(2)
     Set ZZ = .Find(AL1)
     If Not ZZ Is Nothing Then
            ZZ.Offset(, 26) = ritten
            ZZ.Offset(, 27) = online
     End If
End With

Hij staat redelijk onderaan in de module "BCT_Overzetten" waarin ik de ritgegevens van een dag inlees in mijn excelsheets. De bedoeling van dit stukje code is dat de onlinetijd en het aantal ritten naar blad "Dag Journaal" ondergebracht worden naar de betreffende cellen. "ZZ" blijft echter de waarde "Nothing" houden.

Wanneer beide bestanden geopend zijn kun je in Grootboek.xlsm, sheet "Rit" op de knop "Haal BCT" drukken, vul dan eens "1031" in en bevestig het aantal gevonden ritten en voer als online tijd "4:26" in. de module loopt, bij mij, zonder foutmelding door echter zet hij in sheet "Dag Journaal" dan niet de gevraagde gegevens.

Wie kan mij op weg helpen om dit euvel te verhelpen

Hoi Dotchiejack,

Dank voor je antwoord, bij mij doet hij precies 1 maal na openen, kwam ik naderhand achter toen ik het bestand had opgeslagen om even aan mijn bericht te hangen en weer opende, bij de 2de ritnummer doet hij het niet meer...

Precies, ik dacht ook vreemd... het zou zo toch moeten werken...