VBA datum invoer

Status
Niet open voor verdere reacties.
I

ivoexcel

Gebruiker
Lid geworden
23 nov 2018
Berichten
100
Goedenavond,

Sinds deze week kan ik in mijn excel VBA de datum niet meer invoeren dan krijg ik de onderstaande foutmelding.
Hier de code:

HTML: 
Sub invdat()
        def = Sheets("Port").Cells(3, 5)
invd1:  tekst = "Datum heden?" + Chr(13) + Chr(13) + Chr(13) + "!  = invoer onderbreken": titel = "Datum invoeren"
        invbox1 tekst, titel, def
        If stp = 1 Then Exit Sub
        If fout = 1 Then def = ft: GoTo invd1
        Sheets("Port").Cells(3, 5) = datum
        def = Sheets("Port").Cells(3, 15)
        tekst = "AEX heden?": titel = "AEX invoeren"
invd2:  invbox2 tekst, titel, def
        If stp = 1 Then Exit Sub
        If fout = 1 Then def = ft: GoTo invd2
        Sheets("Port").Cells(3, 15) = bedrag: inv = ""
        Exit Sub
End Sub

Schermafbeelding 2019-10-22 om 21.55.50.png

Ik hoop dat iemand mij kan helpen alvast bedankt!
 
Afgezien van de Italiaanse programeerstijl lijkt het erop dat je de Datum van vandaag laat invoeren?
Waarom zou je dat doen als je die al voorhanden hebt in Date?
 
Ik heb deze macro zelf niet gemaakt deze zit verwerkt in een complexer bestand. Dus waarom voor deze manier gekozen is weet ik niet. Ik kan mij voorstellen dat dit gedaan is zodat je acties die eerder gedaan zijn later nog op die datum kunt invoeren, maar zoals gezegd ik weet het niet zeker.
Ik heb ook niets veranderd bij mijn weten (enkel een macbook update) dus ik zou me kunnen voorstellen dat het probleem hier iets mee te maken heeft? Allemaal speculaties overigens maar hopelijk weet iemand was er aan de hand is.
 
Als het Office op een Mac is kan ik her helaas verder niet bij helpen.
Iemand anders misschien.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan