VBA - RegExp

Er det nødvendigt med RegExp her?

Hvad med følgende i Datavalidering:

=ELLER(VENSTRE(A1;2)=E1:E3)*(ELLER(--(MIDT(A1;3;2))=F1:F3))*(LÆNGDE(MIDT(A1;5;255))=5)

hvor E1:E2 indeholder AU, DK, NL og F1:F3 indeholder 12, 13, 14

eller er der noget jeg ikke har forstået?

Hans

Hej Hans

Jo - det kunne man jo godt. Men det er taget lidt ud af en sammenhæng, hvor jeg har brug for at gøre det med VBA.

Jeg har en knap, hvor man trykker og kan oprette en ny "kode", ved at taste ind i en input box. Hvis ikke koden opfylder ovenstående format, skal den sige at "den går ikke kammerat" og koden skal så ikke oprettes.

Public Sub Indtast()
    Dim Test As Variant, Data As String, I As Integer, Fortegn As String
    Test = Array("AU", "DK", "NL", 12, 13, 14)
Omigen:
    Data = InputBox("Indtast format(AU|DK|NL)(12|13|14)(?????)")
    If Len(Data) <> 7 Then
        MsgBox "Forkert antal tegn"
        GoTo Omigen
    End If
    Fortegn = Left(Data, 2)
    For I = 0 To UBound(Test)
        If Fortegn = Test(I) Then
            Exit Sub
        End If
    Next
    MsgBox "Forkert fortegn '" & Left(Data, 2) & "' er ikke gyldig"
End Sub

en rettelse i koden

Public Sub Indtast()
    Dim Test As Variant, Data As String, I As Integer, Fortegn As String
    Test = Array("AU", "DK", "NL", 12, 13, 14)
Omigen:
    Data = InputBox("Indtast format(AU|DK|NL)(12|13|14)(?????)")
  If Data = "" Then Exit Sub
    If Len(Data) <> 7 Then
        MsgBox "Forkert antal tegn"
        GoTo Omigen
    End If
    Fortegn = Left(Data, 2)
    For I = 0 To UBound(Test)
        If Fortegn = Test(I) Then
            Exit Sub
        End If
    Next
    MsgBox "Forkert fortegn '" & Left(Data, 2) & "' er ikke gyldig"
    GoTo Omigen
End Sub

Hej

Tak