Do until not found ... agtigt

Kan selvfølgelig løses vha. VBA, men hvorfor ikke blot bruge Excels indbyggede søg-og-erstat? Søg: Ã og erstat med "" (intet)?

Fordi jeg kører mac excel og den laver krakkemut i æ,ø & å fra pc-filer og derfor har jeg lavet

Private Sub ErstatTegn()

Call FindOgErstat("Ã¥", "å")
Call FindOgErstat("ø", "ø")
Call FindOgErstat("æ", "æ")  '

End Sub
Private Sub FindOgErstat(f As String, r As String)

Sheets("Data").Select
Cells.Replace What:=f, Replacement:=r, LookAt:=xlPart, SearchOrder:=xlByRows,MatchCase:=False

End If

End Sub

Udfordringen er bare at æ bliver til Ã_ i vba ift æ i excel så cells.find kan ikke finde den så at sige, så nu må jeg søge istf og så strengmanipulere hver enkelt celle

- det er også derfor æ kommer til sidst i Sub erstatTegn for at undgå at fjumre med ø & å

øv

:o]

Sub FindogSletNoget()
Cells.Replace What:="Ã", Replacement:="", LookAt:=xlPart
End Sub

Så ikke dit svar - den indsatte er blot en simpel søg og erstat lavet ud fra en trimmet makro

:)

øv