Alle datums van een maand automatisch invullen

[Roma]

Beste allemaal,
Ik ben opzoek naar een code die automatisch alle data van een maand invoert in kolom B met uitzondering van de donderdag
bijvoorbeeld maand februari

Wie kan mij helpen

 

[robdgr]

Probeer eens met

=ALS.FOUT(ALS(A1+1>=LAATSTE.DAG(A1;0);"";ALS(WEEKDAG(A1+1)<>5;A1+1;A1+2));"")

 

[Roma]

Beste Rob
Bedankt voor je reactie.
Ik ben echt op zoek naar een VBA code

 

[edmoor]

Zoiets?
Bekijk bijlage Roma_Voorbeeld.xlsm

Wijzig de datum in A1.

 

[Roma]

Beste Edmoor,
Hartstikke bedankt.
Is er ook een mogelijkheid op de donderdagen, zaterdagen en zondagen er uit te laten?

 

[VenA]

Wat is het uitgangspunt van deze vraag? Je hebt het over een maandnaam? In de voorbeeldjes die door de helpers geplaatst zijn wordt uitgegaan van een datum in A1. De code van edmoor is toch vrij eenvoudig aan te passen? Waar is jouw eigen opzet?

Bv.

If Month(stDatum) = stMaand And InStr("1235", Weekday(stDatum, 2)) Then

 

[Roma]

Beste VenA
Ik begreep er in de eerste instantie niets van.
Dankzij jullie hulp is het gelukt.
Bedankt
Rest nog de vraag, ook hier kom ik niet uit, mijn partner wil graag in de zelfde kolom elke datum er 2 keer in hebben.

 

[edmoor]

Er komt iedere keer weer een vraag bij.
Maak eens een voorbeeld van wat jullie eigenlijke doel is anders blijven we bezig.

 

[VenA]

Waar kom je niet uit dan? Je laat niets zien van wat je geprobeerd hebt. Ook geef je geen antwoord op de gestelde vragen.

 

[Roma]

Datums invullen

Beste,
Sorry voor mijn onduidelijkheid.
Mijn partner vraagt steeds meer.
Het is de bedoeling dat in Kolom B de data van de maand wordt ingevuld met uitzondering van donderdag, zaterdag en zondag.
Elke datum zal dan 2 maal ingevuld moeten worden.

 

[VenA]

De code van edmoor is zeer transparant. Als jullie het samen proberen om het aan te passen dan zal het vast wel lukken.
Tipje van de sluier

x = x + 2
Cells(x - 1, 2).Resize(2) = stDatum

 

[Roma]

Bedankt
het werkt perfect.
Alleen hij moet nog beginnen in kolom B3

 

[edmoor]

Da's toch simpel. Maar ik denk dat je regel 4 bedoelt. Zie rode regels:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim stDatum As Date
    Dim stMaand As Integer
    
    If Target.Address = "$A$3" Then
        stDatum = Range("A3")
        stMaand = Month(stDatum)
[COLOR="#FF0000"][COLOR="#FF0000"]        x = 3
        Range("B4:B35").ClearContents[/COLOR][/COLOR]
        For i = 1 To 31
            If Month(stDatum) = stMaand And InStr("1235", Weekday(stDatum, 2)) Then
                x = x + 2
                Cells(x - 1, 2).Resize(2) = stDatum
            End If
            stDatum = stDatum + 1
        Next i
        Range("A1").Select
    End If
End Sub

 

[Roma]

Beste Edmoor en VenA,

Namens mijn partner bedankt voor jullie geweldige hulp.
Het werkt allemaal perfect.
Bedankt

 

[edmoor]

Zie nog even m'n aanpassing in #13.