Makro til søg/erstat af specialkarakterer i Excel

Kender du VBA ?
Select Case
Case è
Case è
osv...

Nix, jeg er HELT blank i VBA.

Alle de tekster jeg skal søge og erstatte i ligger i kolonne A og nedad så langt øjet rækker. Her skal jeg "bare have udskiftet alle de tegn der kan tænkes at give problemer på forskellige platforme.

For en sikkerheds skyld 8selv om Windows måske efterhånden er blevet tolerant, er jeg nødt til at tage højde for, at min kundegruppe sidder med ret bedagede operativsystemer.

Det handler om filnavne for musikfiler, som vi sælger via download.

Prøv at markere celler og kør så makroen, sæt selv flere på i koden

Public Sub UdskiftTegn()
For Each C In Selection.Cells
C.Value = Replace(C, "è", "e")
C.Value = Replace(C, "ê", "e")
C.Value = Replace(C, "ä", "a")
'flere
Next
End Sub

husk at makrokørsel ikke kan fortrydes

Der må altså være noget med kuk med Mac/Excel/VBA angående specialtegn. Din makro erstatter IKKE de specialtegn du skriver i de tre linjer. Ændrer jeg derimod en af linjerne til at udskifte f.eks. 'a' med 'b', så fungerer det lystigt.

Hvis jeg, for kontrollens skyld, kopierer 'è' fra Excel-arket og paster det ind i makrokoden, skriver den 'e_' i stedet for.

De første testkørsler gik i øvrigt amok, musepilen blinkede og Excel var låst. Det gik op for mig at jeg havde markeret hele kolonnen og ikke bare de aktuelle celler, så den må været løbet ind i en uendelig løkke ;-)

Jeg bruger Excel 2011 for Mac.

Prøv at sætte tegnet alene ind i en celle og brug så funktionen KODE() for at se hvilket nummer den har

hvis jeg sætter tegnet è
ind i C2 og bruger formlen
=KODE(C2)

får jeg værdien 232
den kan bruges her

C.Value = Replace(C, chr(232), "e")

Aha, genialt. Nu ville det jo så være rart med et tabel over disse tegnnumre. Alle disse tegnsæt, UTF og hvad ved jeg, kan jeg ikke finde ud af.

Når JEG laver denne øvelse med 'è', så får jeg nummer 143.

Min Excel er på engelsk, så jeg skriver =CODE(A1), men det burde jo ikke gøre nogen forskel.

P.S. Hvis jeg bruger din fremgangsmåde, men skriver 'chr(143)', så sker der ingenting

prøv at bruge 232

Det virker fint her også som vist i #4

232 var (som jeg skrev) det første jeg brugte (din kode i #4) og det virkede ikke.

Jeg kan ikke hjælpe mere, jeg er blank.

Nå, kan ikke få vba til det, men dette virker:

1. I celle A1 står der bla. "Klavierstück".
2. Markér bogstavet ü
3. ctrl + c
4. ctrl + h
5. i "søg efter" siger du ctrl + v
6. i "erstat med" siger du u eller ue, efter smag.
7. klik "erstat alle". Nu er ü erstattet i ALLE celler.
8. Og sådan gør du med alle skæve tegn (jeg har en anden ide til vba -skriv, hvis du skal gøre dette ofte).
vh finb