datum in inputbox

[Mexcelle]

Ik krijg een foutmelding als ik in een inputbox het invoeren van de datum annuleer. Hoe kan ik testen dat er geen datum is ingevuld?

 

[danny147]

Beste Mexcelle

Kan je de code hier plaatsen, zo we kunnen zien waar je fout zit en dit eventueel aanpassen.

Groetjes Danny. :thumb:

 

[Mexcelle]

Hallo Danny,
Hieronder is de code. Bedankt voor de hulp.

Sub daglijstranking()
Dim datum As Date
Sheets("daglijst gesorteerd ranking").Select
datum = InputBox("Vul de datum in", "Datum opvragen")
Range("G1") = datum
sorteringranking
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ranglijst").Select
End Sub

 

[trucker10]

Al eens gekeken naar vbOKCancel

Sub daglijstranking()
Dim datum As Date

Sheets("daglijst gesorteerd ranking").Select
datum = InputBox("Vul de datum in", "Datum opvragen", vbOKCancel)
Range("G1") = datum
sorteringranking
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("ranglijst").Select
End Sub

Ik heb een voorbeeldje ingevoerd , verwerk er u macro in

 

[Warme bakkertje]

Sub daglijstranking()
    With Sheets("daglijst gesorteerd ranking")
        .[G1] = InputBox("Vul de datum in", "Datum opvragen")
            If .[G1] = "" Then Exit Sub
        sorteringranking
        .PrintOut 1, True
    End With
End Sub

Mvg

Rudi

 

[Mexcelle]

Dankjewel, ik ben een beginner in VBA en ben nu weer een stapje verder.