Userform+dato+comboboks
HejsaJeg kalder nedenstående linie ved min userform_activate:
Me.f_dato = Format(Date, "dd-mm-yy") (sætter dags dato som default)
Og har denne Sub:
Private Sub f_dato_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If Not IsDate(Me.f_dato) Then
MsgBox "Dette er ikke et godkendt format for dato. Indtast venligst som dd-mm-åå.", vbExclamation, "Dato"
Cancel = True
Else
Me.f_ugenr = Format(Me.f_dato, "ww", vbMonday, vbFirstFourDays)
End If
End Sub
MEN jeg vil meget gerne have, at man KUN kan taste datoen som i dette format. Den godtager nemlig også andre formater (bla. uden åå).
Denne værdi bliver gemt i det bagvedliggende Excel ark hvor datoformattet SKAL være det samme.
Hvordan sikrer jeg mig det ?
Jeg tillader mig også et lille nemt bonusspørgsmål. Jeg har på samme userform en Comboboks som henter værdierne fra en Excelliste. Hvordan får jeg den til ikke at absolut vil have en værdi. Hvis man nu har aktiveret boksen og ikke valgt fra listen skriver den nemlig en fejl når man prøver at gå til en anden del af userformen ?
Håber i kan hjælpe.
