NessPJ
Active Member
- Joined
- May 10, 2011
- Messages
- 414
- Office Version
- 365
Hi all,
I have a (numeric) value in VBA declared as String, yet when user inserts the number in the Inputbox Excel still seems to store this as a number.
Ergo an input like "010120" will result in a value of "10120".
Is there any way around this ?
I have a (numeric) value in VBA declared as String, yet when user inserts the number in the Inputbox Excel still seems to store this as a number.
Ergo an input like "010120" will result in a value of "10120".
Is there any way around this ?
Code:
Sub Invoer()
Dim THT1 As String, DataCheck As String
THT1:
THT1 = InputBox("Voer of scan de THT Datum in van Pallet 1 (DDMMYY)", "THT invoeren (DDMMYY)")
If StrPtr(THT1) = 0 Then
Exit Sub
ElseIf THT1 = vbNullString Then
MsgBox "Deze waarde mag niet leeg zijn! Vul een geldige waarde in!", vbCritical, "Ongeldige waarde"
GoTo THT1
End If
'THT 1:
DataCheck = InStr(1, THT1, "(15)")
If DataCheck > 0 Then
THT1 = Mid(THT1, InStr(THT1, "(15)") + Len("(15)"), 6)
Else
THT1 = THT1
End If
Sheets("Menu").Range("H6").Value = THT1
End