• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Datumprobleem voettekst

Status
Niet open voor verdere reacties.
S

Symphysodon

Gebruiker
Lid geworden
14 dec 2012
Berichten
468
Beste forummers,

Ik heb een vba code voor het automatisch toevoegen van een geldigheidsdatum in de voettekst. Dit gaat goed, maar zodra ik het bestand opsla wordt de dag en de maand omgedraaid en dat is gek want de datum staat in een tekstregel.
Code: 
d = "12-11-2020"    'ingangsdatum
n = "1"      'uitgavenummer

With Sheets("Toelichting")
    With Sheets(i).PageSetup
        .LeftFooter = "Geldig met ingang van: " & d & ", versienummer: " & n
        .RightFooter = "&A  &F"
    End With
...

Mvg
Marco
 
Onderstaand mijn beforesave code
Code: 
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)

If SaveAsUI = True Then
    MsgBox "Het is alleen toegestaan het bestand op te slaan met de desbetreffende knop in het werkblad.", vbCritical, "Opslaan Als... niet mogelijk"
    Cancel = True
End If

headers

'Terug zetten van het lint en de koppen
Application.DisplayFullScreen = False
ActiveWindow.DisplayHeadings = True
Application.DisplayFormulaBar = True

'Aanzetten kopieren plakken
Application.OnKey "^{c}" 'Copy
Application.OnKey "^{v}" 'Paste
Application.OnKey "^{x}" 'Cut
Application.CellDragAndDrop = True 'vulgreep
    
landeninstellingenterugzetten

'Activeren kruisje
ExcelSluitenAanzetten

'ActiveWorkbook.Close (False)

Application.WindowState = xlMaximized
    
    
End Sub
 
De code werkt wel, die van jou ook alleen na Opslaan wordt de datum in de voettekst aangepast. 12-11-2020 wordt: 11-12-2020
 
Met puntkomma zal het zeker niet werken.

Waarschijnlijk:
Code: 
format(d, "mm-dd-yyyy")
 
De code zoals gezegd is niet het probleem. Het resultaat in de voettekst van de code in #1 is: Geldig met ingang van: 12-11-2020, versienummer: 1
Dat is precies wat ik wil. Het probleem zit in het opslaan. Als ik het bestand opsla, afsluit en vervolgens weer open is de voettekst veranderd in:Geldig met ingang van: 11-12-2020, versienummer: 1

Ook als ik het bestand alleen opsla en uitprint(of printvoorbeeld) krijg ik het zelfde resultaat: Geldig met ingang van: 11-12-2020, versienummer: 1
 
Laatst bewerkt:
Die variabele "d' moet je niet gebruiken in kop en voettekst.
Die is vastgelegd in Excel voor datum.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan