Hey Bieke , ik volg het hier maar mijn kennis is jammer genoeg niet voldoende om te kunnen helpen  .
Grtjs,
Arnold.

Hey Bieke,

Ik had ook al je #179 en #180 bekeken, maar aan je laatste bestand downloaden was ik nog niet geraakt. Misschien was het me net daarom nog niet duidelijk of we beide posts moesten interpreteren als een bijpraatmomentje over de stand van zaken, dan wel om een hulpverzoekje
Voor vandaag moet ik de pc-karweitjes weer afronden, maar ik hou het zeker ook verder in de gaten !

Groetjes,
Molly

*update*

ik ben erin geslaagd een codeblokje samen te stellen wat in principe netjes de benodigde datums samenstelt en in een variabele
plaats en ook netjes in de juiste hoeveelheid rijen wegschrijft MAAR

de weergave van mijn datums in mijn werkblad komt niet goed... ik heb reeds diverse aanpassingen in de code geprobeerd
maar het lijkt me niet te lukken...

dit is het betreffende code-blok :
'********************************************
  '**************datums samenstellen************
  '********************************************
  'maanden in variabele steken
  For m = 1 To 12
    If Me.Frame6.Controls("CheckBox" & m).Value = True Then maanden = maanden & m & " "
  Next m
  maanden = Split(RTrim(maanden), " ")
  'dag-getal bepalen & datums opslagen in variabele
  For i = LBound(maanden) To UBound(maanden)
    If OptionButton5.Value = True Then dag = CDbl(TextBox2.Value)
    If OptionButton6.Value = True Then dag = ((CDbl(TextBox3.Value) * 7) + 1) - (Weekday(DateSerial(jaar, maanden(i), 1), vbMonday) - (ComboBox1.ListIndex + 1))
    datums = datums & DateSerial(jaar, maanden(i), dag) & " "
  Next i
  If OptionButton8.Value = True Then
    datum = CDate(datums)
    For d = 2 To aantal
      datum = datum + (7 * CDbl(TextBox4.Value))
      datums = datums & datum & " "
    Next d
  End If
  datums = Split(RTrim(datums), " ")
 
  'datums & gegevens wegschrijven naar werkblad "TA-todo"
  With Sheets("TA-todo")
    For i = LBound(datums) To UBound(datums)
      d = .Cells(Rows.Count, 3).End(xlUp).Row + 1
      .Cells(d, 3) = datums(i)
    Next i
 
  End With

De getalnotatie van mijn werkblad staat ingesteld als volgt :
ddd dd-mm-jjjj
Maar ofwel geeft hij de datums weer als :
ddd mm-dd-jjjj
ofwel als :
dd/mm/jjjj
afhankelijk of het dag-getal al dan niet groter is dan 12

waar dien ik de nodige aanpassingen te maken om mijn datums in de ingestelde werkblad-getalnotatie te verkrijgen?

Alvast dank op voorhand,

groetjes,
Bieke

Hey SoftAid,

bij deze een recente versie '1.0b'


groetjes,
Bieke

Hey Arnold,

Bedankt voor je tip en verwijzing…
Ik had onlangs jouw topic mee gevolgd waarbij ik las dat je ook problemen had met datums.

Aangezien ik met mijn huidige installatie van Office al anderhalf jaar zonder dergelijke problemen werk denk ik niet dat daar bij mij de oorzaak ligt…

- mijn office volgt automatisch de instellingen van windows en heeft dus sowieso de juiste instellingen (bij de opties voor taalvoorkeuren).
- mijn gekozen werkblad-getalnotatie valt niet onder de categorie “datum” maar wel onder de categorie “aangepast”.
- mijn datums worden nergens handmatig ingevoerd… ze worden via de vba code samengesteld vanuit drie aparte variabelen (jaar, maand, dag) en vervolgens in een array gestopt.

Ik ben er zo goed als zeker van dat nu in dit geval er gewoon ergens een variabele verkeerd gedeclareerd en/of geconverteerd wordt…


groetjes,
Bieke

Hey Bieke,

Zo zonder je bestand erbij te nemen (minuutje geleden voor het eerst terug even tijd om aan de pc te gaan zitten) heb je meer dan waarschijnlijk gelijk dat het elders moet gezocht worden. In het draadje waar Arnold naar verwijst had ik ook al benadrukt dat men beter van zijn Windows- en Office-instellingen kan afblijven. Ik heb die bij de installatie van mijn pc goed gezet en blijf daar daarna finaal af.
Ook in datzelfde draadje heb ik aangegeven dat je een tekst (want dat is het altijd in een UF) moet omzetten naar een datum. Over opmaak moet je je in de code geen zorgen maken, dát doe je op je werkblad.
Concreet: in de code die je laatst plaatste zie ik
.Cells(d, 3) = datums(i)Maak daarvan eens, zonder ook maar iets anders te wijzigen, eens dit van
.Cells(d, 3) = CDate(datums(i))Als het daarmee niet is opgelost (dat zou dan waarschijnlijk betekenen dat je rare dingen doet met je datums) moeten we er later eens dieper induiken.

Groetjes,
Molly

Edit: ja, lap, 'k heb me weer eens gehaast, en toch nog half minuutje te laat

Hey Molly (en anderen),

In grote lijnen is mijn eerste TA-UF “UF-TAinput” volledig klaar (alle mogelijke basis scenario’s werken zoals verwacht wordt) maar ik heb van mijn 3 op voorhand gekende inkomende TA’s er 2 die nog 2 kleine uitzonderingen bevatten.

Basis-gegevens mbt datums zijn :
TA-frequentie : 12
Vaste weekdag : ma
Week v/d maand : 4      (hierachter schuilt de uitzondering)

Voor de maanden januari tem november is de uitzondering dat als de 4e  maandag nà de 25e valt dat dan de vorige maandag gekozen moet worden. (vb 4e maandag feb ’23 = 27-02-2023 dus dat moet dan 20-02-2023 worden).

De tweede uitzondering is een vaststaande (zonder specifieke voorwaarden dus) en enkel van toepassing op de maand december.
Voor de maand december geldt altijd de 3e maandag van de maand of anders gezegd : omdat de 4e maandag altijd in de week van kerstmis valt (waarin er door de afzender niet gewerkt wordt) wordt het een week eerder uitbetaald)


Hoe kan ik dit het best verwerken in mijn huidige code-blok zodat hier rekening mee gehouden wordt voor die 2 specifieke op voorhand gekende inkomende TA’s ?


Groetjes,
Bieke


edit : ik was in mijn haast mijn recentste (opgekuiste) versie 1.1. vergeten bij te voegen.