MsgBox vbYesNo bij openen excelbestand

[Paradoxx]

Goedemorgen weer.

In een bestand die door mijn collega's wordt gebruikt voor het maken van een dagplanning, wil ik bij het openen van het bestand een keuze geven. Of men opent het bestand voor het maken van een nieuwe dagplanning, derhalve een inputbox voor het ingeven van een nieuwe datum, of men wil het bestand alleen inzien zonder wijzigingen te maken, derhalve hoeft er niets te gebeuren.

Ik heb het volgende, maar bij het openen krijg ik een foutmelding : Sub, function of property verwacht. Ik zie niet wat ik fout doe.. (het is nog vroeg... en nog geen koffie gehad)!!

In ThisWorkbook Open wordt de volgende sub aangeroepen:

Sub OpenenBestand()

Dim keuze As VbMsgBoxResult
Dim myDatum As String

keuze = MsgBox("Wil je een nieuwe dagplanning gaan maken?", vbYesNo + vbQuestion)
myDatum = InputBox("Geef de datum op voor de nieuwe dagplanning (dd-mm-jj)", "Datum opgeven", Today + 1)

If keuze = vbYes Then
    myDatum
Else:
    Exit Sub
 End If

Sheets("totaal").Range("A2").Value = myDatum

End Sub

 

[Roncancio]

Zo te zien verwijst de code in ThisWorkbook niet naar OpenenBestand.
Het kan zijn dat er een schrijffout in de benaming zit.
Je code kon overigens wat korter.
Verder is het niet zo logisch om een datum in te laten voeren en vervolgens te vragen om men een nieuwe dagplanning wil gaan maken. Stel dat men geen dagplanning wil maken dan moet men toch een datum opgeven.
Het lijkt mij logischer om te vragen of men een dagplanning wil maken en als men dat bevestigt, een datum op te laten geven.

Private Sub Workbook_Open()
Dim myDatum As Date
   
    If MsgBox("Wil je een nieuwe dagplanning gaan maken?", vbYesNo + vbQuestion) = vbYes Then
        myDatum = InputBox("Geef de datum op voor de nieuwe dagplanning (dd-mm-jj)", "Datum opgeven", Today + 1)
        Sheets("totaal").Range("A2").Value = myDatum
     End If

End Sub

Met vriendelijke groet,


Roncancio

 

[Paradoxx]

Goedemorgen Roncancio,

Ik had in de private sub Workbook_Open() een verwijzing naar de sub OpenenBestand() opgenomen, zodat bij het openen van het bestand die sub zou worden gestart. Maar anyway, die van jou is idd veel kleiner (de code dus) en werkt idd als een tierelier. Alleen geeft hij als voorbeeldwaarde 1 ipv de datum van morgen. Dat zoek ik zelf nog wel eventjes uit, maar wederom bedankt!

Groeten Cor.

 

[snb]

Gebruik

date +1

 

[Paradoxx]

Bedankt voor de input snb, maar ik had het inmiddels al opgelost.
Om het even compleet te maken, hieronder de code die ik dan gebruikt heb.

Private Sub Workbook_Open()
Dim myDatum As Date
Dim morgen As String

morgen = Sheets("totaal").Range("A2").Value + 1
   
    If MsgBox("Wil je een nieuwe dagplanning gaan maken?", vbYesNo + vbQuestion) = vbYes Then
        myDatum = InputBox("Geef de datum op voor de nieuwe dagplanning (dd-mm-jj)", "Datum opgeven", morgen)
        Sheets("totaal").Range("A2").Value = myDatum
     End If

End Sub

Misschien niet de mooiste oplossing, maar hij werkt.

 

[snb]

Als je dan toch met VBA werkt waarom dan geen VBA gebruikt ?

Private Sub Workbook_Open()
    If MsgBox("Wil je een nieuwe dagplanning gaan maken?", vbYesNo + vbQuestion) = vbYes Then  Sheets("totaal").Range("A2").Value = InputBox("Geef de datum op voor de nieuwe dagplanning (dd-mm-jjjj)", "Datum opgeven", format(Date +1,"dd-mm-yyyy"))
End Sub