Cellers indhold skal verificeres af regulært udtryk

Du kan i hvert fald lave nogle betingede formateringer, så det bliver meget synligt, når data er forkert. Du kan også lave f.eks. if-statements (hedder hvis i den danske version), der kan ændre indholdet, hvis det ikke falder indenfor dine rammer.

Hvad hvis jeg foreksempel kun vil have gyldige emailadresser på formatet string@string.string  hvor string er en hvilken som helst string.

Prøv denne formel i A1 under datavalidering, brugedefineret, formel

=IKKE(ER.FEJL(SØG("*@*.*";A1)))

Det ser meget fornuftigt ud men jeg bruger den engelske version af excel

Denne tror jeg er bedre.
=IKKE(ER.FEJL(SØG("?@?*.??*";G7)))
De engelske funktioner må jeg blive dig svar skyldig. Prøv at kigge i din funktionsoversigt om du kan finde NOT, ISERROR, SEARCH, så må det være noget i den retning.

Jeg kan indtaste =NOT(ISERROR(SEARCH("?@?*.??*";G7))) som en gyldig formel men jeg kan ikke skrive noget i feltet der accepteres. Hvad gør A1 og G7 egentlig?

Aarhh sorry. Formlen skal indsættes under datavalideringen for cellen G7 f.eks. Den første var for A1. Altså i den celle indtastningen skal valideres.

Nu virker det :-)
Ved du hvordan man angiver tegn der ikke må forekomme (f.eks. mellemrum) og tegn der kun må forekomme en gang i træk (f.eks. punktum).

Havde helt glemt denne
Kopier flg. kode ind i arkets kodemodul.
Den virker på alt hvad du indtaster i kolonne A, ellers tilret området


Private Sub worksheet_change(ByVal target As Range)
Set rng = Range("A:A")
If Intersect(rng, target) Is Nothing _
Or target.Value = "" Then
Exit Sub
End If
If Right(target, 3) = LCase(".dk") Then
    antal = Len(target)
    For i = 1 To antal
        tegn = Mid(target, i, 1)
        If tegn = "@" Then
            tæl1 = tæl1 + 1
        End If
        If tegn > Chr(123) Or tegn < Chr(96) Then
            If tegn > Chr(57) Or tegn < Chr(48) Then
                If tegn <> Chr(46) And tegn <> Chr(64) Then
                    GoTo fejl
                End If
            End If
        End If
    Next i
    If tæl1 = 1 Then
        Exit Sub
    End If
End If
fejl:
MsgBox "Ugyldig indtastning"
target.Select
Application.SendKeys ("{F2}")
End Sub

*