Backslash verboden

[DieBe]

Ik heb een invullijst in excel. De gegevens worden bij het opslaan weggeschreven naar een ander werkblad. Nu mogen er in de cel geen bijzonder tekens staan zoals backslash, slash, * en ! . Met welke code controleer ik dit?

 

[gast0660]

Zoiets:
ActiveCell eventueel vervangen door uw cel

Sub dotchie()
   Dim CellName As String
    Dim CellCharacter As String
    CellName = ActiveCell.Value
    For X = 1 To Len(ActiveCell.Value)
        CellCharacter = Mid(ActiveCell, X, 1)
        If CellCharacter Like "[</*\?>:]" Then
            CellName = Replace(CellName, CellCharacter, "", 1)
        End If
    Next X
    MsgBox CellName
    ActiveCell.Value = CellName
End Sub

 

[DieBe]

met uw reactie kom ik er niet uit. Misschien een andere oplossing.
Op dit moment wordt als ik de opslaan knop aanklik eerst gecontroleerd of bepaalde cellen "gevuld" zijn met de volgende code:

'controleer onderwerp

If Range("F27") = Empty Then MsgBox ("Onderwerp invullen"), Range("F27").Select: Exit Sub

( dit doe ik voor iedere cel die ik in onderstaande code nodig heb).

Dat werkt goed. De inhoud van de cel wordt gebruikt om een map mee aan te maken met de volgende code:


Dim stPath As String
With Sheets("melding")
stPath = "G:\VBA\voorbeelden"
stPath = stPath & .Range("J10").Text & " " & .Range("F10").Value & " - " & .Range("F27").Value & ""
With CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(stPath) Then .CreateFolder stPath

End With

U snapt dat als in een cel bijvoorbeeld test\2017 typ het dan fout gaat omdat door de backslash een ander pad wordt aangeduid. De controle op de inhoud wil ik dus uitbreiden met een controle op de gebruikte tekens.

 

[gast0660]

Zet in dit stukje de tekens die je niet wilt heben: [</*\?>:]

 

[DieBe]

Nog een keer geprobeerd en nu lukt het wel..... voor 1 cel.
Ik moet de controle uitvoeren op cel F10 en F27. Hoe pas ik de code aan zodat deze voor beide cellen werkt?

 

[gast0660]

Sub dotchie2()
Dim rng As Range
Set rng = Range("F10,F27")
   Dim CellName As String
    Dim CellCharacter As String
    CellName = rng.Value
    For X = 1 To Len(rng.Value)
        CellCharacter = Mid(rng, X, 1)
        If CellCharacter Like "[</*\?>:]" Then
            CellName = Replace(CellName, CellCharacter, "", 1)
        End If
    Next X
    MsgBox CellName
    rng.Value = CellName
End Sub

 

[snb]

Je kunt het zelf wel aanvullen lijkt me.

Private Sub Worksheet_Change(ByVal Target As Range)
   if instr("$F$10$F$27",target.address) then
      application.enableevents=false
      target=replace(replace(replace(target,"[",""),"<",""),"/","")
      aplication.enableevents=true
  end if
End Sub

 

[DieBe]

Ik heb al een andere oplossing. Gewoon een controle op de cel met gegevensvalidatie.

=(ISFOUT(VIND.ALLES("/";F27))+ISFOUT(VIND.ALLES("";F27))=2)

Bedankt in ieder geval voor het meedenken.