inputbox afchecken op getal

[kibus]

Beste kenners,

hoe pak ik het volgende aan : onderstaande inputbox mag alleen maar numeric ingevoerd worden hoe doe je dat kwam iets tegen met type 1 maar hoe dan verder??


Sub test_()

Dim wk As String
back2:
wk = InputBox("geef weeknummer in ...", "weeknr", "voorbeeld 25 in")
if wk=""
then goto back2
else
end if
Range("n2").Select
ActiveCell = wk
End Sub

Alvast bedankt voor jullie hulp

 

[Wigi]

Sub test_()

    Dim wk As String
back2:
    wk = Application.InputBox("geef weeknummer in ...", "weeknr", 25, Type:=1)
    If wk = "" Then GoTo back2
    Range("n2").Select
    ActiveCell = wk
    
End Sub

En graag in het vervolg ook code tags rond je code hier op het forum zetten aub, dank.

Wigi

 

[kibus]

Alweer bedankt Wigi !
zal het in het vervolg in tags plaatsen!

edwin