Hoe wordt automatisch de 1e van de volgende maand ingevuld in A5

[samui]

Als ik een volgende maand wil vullen zie ik op het einde van de macro graag in cel A5 de 1e van de volgende maand hier ingevuld worden.
Als ik de maand erna wederom een nieuw tabblad wil gaan invullen moet er wederom de 1e van de dan volgende maand komen te staan.

Ofwel nu staat er 1-jun
eind van de maand nieuw tabblad komt er 1-jul te staan enz. enz.

Hoop wederom op jullie hulp.

mvg,

Frank

 

[edmoor]

Probeer het eens zo:

Sub new_maand()
    Dim Naam As String
    Naam = StrConv(Format(DateAdd("m", 1, Range("A5")), "MMMM"), vbProperCase) & " " & Year(Range("A5"))
    ActiveSheet.Copy After:=Sheets(ActiveSheet.Index)
    ActiveSheet.Name = Naam
    Range("C5:D35, H5:I35, M5:N35").ClearContents
    Range("A5") = DateValue("01 " & Naam)
End Sub

 

[samui]

Bedankt edmoor,

Werkt precies zoals ik had gevraagd.
Toppertje.

Vraag is gesloten.

 

[VenA]

Hoewel de vraag opgelost is zou ik met een verborgen template werken. Het weliswaar kleine voordeel hiervan is dat je geen cellen hoeft leeg te maken en dat je onnodige data niet te zien krijgt. Ook een kleine foutafhandeling ingebouwd om te controleren of een blad al bestaat. De grote blauwe knop is nogal aantrekkelijk om op te klikken:d

Sub new_maand()
Dim Naam As String

Naam = StrConv(Format(DateAdd("m", 1, Range("A5")), "MMMM"), vbProperCase) & " " & Year(Range("A5"))
    
If IsError(Evaluate("'" & Naam & "'!A1")) Then
    With Sheets("Template")
        .Copy , Sheets(Sheets.Count)
            With Sheets(Sheets.Count)
                .Name = Naam
                .Range("A5") = DateValue("01 " & Naam)
                .Visible = True
                Application.Goto .[H5]
            End With
    End With
  Else
    Application.Goto Sheets(Naam).[H5]
End If
End Sub

 

[samui]

VenA,

Hartelijk dank voor deze toevoeging.
Ziet er inderdaad ook heel mooi uit. Vooral de controle om niet een reeds ingevulde maand te overschrijven.
De grote blauwe knop was enkel ingevoegd voor jullie profs om makkelijk de macro te "zien"
Nu is hij kleiner en minder inzichtelijk in beeld voor mijzelf.
Maar nogmaals Thanks inclusief voor Edmoor, want ik, en alle andere mensen op dit forum, ben altijd blij met de oplossingen die jullie allemaal voor ons aanbrengen zodat,
ook wij verder komen met onze problemen om ook leuke bestanden voor ons te laten werken.

tot een volgende uitdaging voor mij weer waar jullie de oplossing voor hebben :thumb:

Frank