Vreemde tekens weren uit een cel

[boppe]

Hallo

Omdat een cel onderdeel uitmaakt van een bestandsnaam, mogen er geen vreemde tekens (zoals slash, backslash, komma, punt ed) worden ingevuld.
Dit veld is betreft een serienummer van iets.
De ene keer heeft het 3 karakters, de andere keer bijvoorbeeld 15. Dan letters, dan cijfers dan een combinatie en soms met een vreemde teken.

Een - teken of liggend streepje gaat nog wel.

Ik ben even bezig geweest met gegevensvalidatie. Maar ik kan daar niet kiezen welke tekens niet mogen. En een lijst maken met a;b;c; etc werkt niet.

Wie heeft een beter idee

 

[VenA]

Misschien dat dit je een beetje op weg helpt.

=SUBSTITUTE(A1;"/";"")

 

[edmoor]

Ik gebruik er dit voor:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Then Exit Sub
    
    Application.EnableEvents = False
    Target.Value = ValidFilename(Target.Value)
    Application.EnableEvents = True
End Sub

Function ValidFilename(p_file As String) As String
    Dim nChars As String
    Dim i As Integer
    
    nChars = "<>|\/|*?:{}"
    ValidFilename = p_file
    For i = 1 To Len(nChars)
       ValidFilename = Replace(ValidFilename, Mid(nChars, i, 1), "", 1, -1, vbBinaryCompare)
    Next i
End Function

Probeer het maar eens in kolom A van dit document:
Bekijk bijlage Goedenaam.xlsm

Eventuele andere ongewenste tekens kan je zelf aan nChars in de functie toevoegen.

 

[E v R]

Ik ben even bezig geweest met gegevensvalidatie. Maar ik kan daar niet kiezen welke tekens niet mogen. En een lijst maken met a;b;c; etc werkt niet.

Wie heeft een beter idee

Middels gegevensvalidatie bijv.:
tbv cel c3:

=NOT(ISNUMBER(SUMPRODUCT(SEARCH(MID($C$3;ROW(INDIRECT("1:"&LEN(A1)));1);"/*\][{};*#@"))))

 

[snb]

Maak een routine waarin een bestandsnaam wordt gegenereerd onafhankelijk van de inhoud van enige cel.