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