søg og erstat

Kan du udpensle kravene lidt ?  :-)

Hvor skal der søges ?

Er det alle forekomster af et af bogstaverne a-z eller A-Z eller tallene 0-4 der skal erstattes med "blabla" ?

Kan du give nogle eksempler ?

Hej

jeg troede dette spg. var dødt og var lige ved at oprette et nyt da jeg endnu ikke har fundet en løsning - så rigtigt godt du kom forbi :)

hvis jeg har et ark det har følgende indhold

spade
skovl?
rive
hæk,
gras
hus
mad#
vin

Skal makroen søge efter de tegn jeg ikke har tilladt - eks hvis jeg kun tillader "a,b,c,d,e,f,g,h, osv." finder makro tegn som ?,# og erstatter dem med noget andet

det andet kunne eks være "blabla" sådan at listen kommer til at se sådan ud


spade
skovlblabla
rive
hækblabla
gras
hus
madblabla
vin

/søren

Prøv at teste denne makro.
Marker de celler der skal chekkes først og kør så makroen TestRemove


Sub TestRemove()
Dim c As Range
  For Each c In Selection
      c = MyReplace(c.Text)
  Next
End Sub

Function MyReplace(s As String) As String
Dim RegEx As Object
  Set RegEx = CreateObject("vbscript.regexp")
  With RegEx
      .Global = True
      .Pattern = "[^\a-zæøåÆØÅ1-4]+"
  End With
  MyReplace = RegEx.Replace(s, "Bla")
  Set RegEx = Nothing
End Function

Lige en lille ændring til .Pattern linien

.Pattern = "[^\a-zA-ZæøåÆØÅ1-4]+"

Det ser ud til at virke rigtig godt - det er nogle tegn jeg gerne vil tillade eks bindestreg (-) kan det lade sig gører at skrive det ind i makroen ?

Du skal bare indsætte det i .pattern, der indeholder de tilladte tegn (Her - som sidste tegn)

    .Pattern = "[^\a-zA-ZæøåÆØÅ1-4-]+"

ok så er det fordi det ikke helt virker :)

jeg prøvede at skrive dette i en celle

^\a-zA-ZæøåÆØÅ1-4-

Når jeg køre makro skal der i teorien ikke ske noget synligt - men det blev til

BlaaBlazABlaZæøåÆØÅ1Bla4Bla

/søren

Jeg får Blaa-zA-ZæøåÆØÅ1-4-
Hvilket også er korrekt idet [^\ er styretegn for resten

du har ret det virker helt perfekt

mange tak for hjælpen

(svar)

ok :-)