[løst] Erstat æ til æ, ø til ø, o.s.v. - Eksperten (2025)

SammyJuniormester

02. februar 2022 - 09:40Der er29 kommentarerog
1 løsning

Hej

Er der nogen der kan hjælpe med en smartere måde at erstatte mystiske tegn i et excel ark til de bogstaver det skulle have været?

Jeg har en liste med, indtil videre, 25 tegn som: æ, ø, å, Æ, Ø, Å, é, Þ, ð, o.s.v. Det var de tegn der skulle have været i excel arket.
De kommer så ud som: æ - ø - Ã¥, o.s.v.

Det jeg gør nu er, at jeg går op på luppen i højre hjørne, pil ned og erstat. Der kan jeg så skive æ i søgefeltet og æ i ertat med feltet. Det var så ét ud af 25 tegn. Så mangler jeg bare de 24 andre. Det er en meget lang historie hver dag.

Så mit spørgsmål er om der findes en smart måde at rette alle 25 tegn på én gang? - Håber nogen kan hjælpe med dette.

Jeg ved godt, at bedste løsning er at der hvor excel arket bliver dannet, skal man vælge det rigtige format og ikke csv. Men nu har jeg kæmpet med det i 3 år. Og det bliver nok ikke anderledes. Der er for mange led i kommunikationen til at det åbenbart kan lade sig gøre.

Mvh
Sammy

Synes godt om

Annonceindlæg fra Infor

[løst] Erstat æ til æ, ø til ø, o.s.v. - Eksperten (2)

Global techanalyse: Succesfulde virksomheders opskrift på værdiforøgelse

Bedre, hurtigere, billigere. Det er ofte de gevinster, virksomheder stilles i udsigt, når de investerer i nye teknologier.

6. januar 2025

kim1aEkspert

02. februar 2022 - 10:06#1

Du kunne prøve at optage en makro når du retter et bogstav, så kan vi sikkert hjælpe dig med at bygge en makro der kan rette dem alle.
Det lyder som om det blot er noget du skal kunne køre, har du arbejdet med makroer før?

Synes godt om

ebeaEkspert

02. februar 2022 - 10:23#2

Har du prøvet når du åbner filen, som CSV, og så i det første vindue, vælge et andet karakter sæt "Filoprindelse" (Dropdown menu). Prøv at vælge "1252: Vesteuropæisk oprindelse" (helt nede i bunden af listen), og se om det gør en forskel.

Synes godt om

SammyJuniormester

02. februar 2022 - 10:37#3

Kim, Jeg er ikke lige med det med makroer.

ebea, jeg modtager filen som xlsx. Men den har sansynligvis været en csv fil, før jeg har fået den. Så jeg ved ikke om det med filoprindelse er en mulighed. Jeg støder ihvertfald ikke på det nogen steder, når jeg åbner filen.

Synes godt om

kim1aEkspert

02. februar 2022 - 11:47#4

Kan du uploade et eksempel til dropbox eller lignende hvor vi kan tilgå den, så skal jeg lave en makro der kan tricket og forklare hvordan du bruger den.

Synes godt om

ebeaEkspert

02. februar 2022 - 11:53#5

#3 - Nu nævnte du selv, at den var dannet som CSV i dit spørgsmål, så jeg gik ud fra det ;-)
Men når det er en .xlsx fil, er det ikke en mulighed, da data er dannet.

Synes godt om

xl-EnthusiastEkspert

02. februar 2022 - 12:05#6

Det er muligvis en "lidt-langt-ude" antagelse, men hvis du skulle have Microsoft 365 og er tilknyttet Office Insider (gratis for alle der har lyst) kan det nemt laves med en såkaldt Lambda funktion.

Synes godt om

acoreEkspert

02. februar 2022 - 12:56#7

Hvis det bare er en data fil med et sheet, kunne du prøve at gemme den som csv og så importere den igen med et andet tegnsæt, som foreslået af ebea i #2

Synes godt om

SammyJuniormester

02. februar 2022 - 13:32#8

ebea og acore
- Jeg har prøvet at gemme det som CSV og åbne det igen som CSV. Men det åbner jo bare. Såjeg forstår ikke lige det med "føste vindue"

xl-Enthusiast
- Kender ikke til Lambda funktion

kim1-a
- Her er et link til et Exel ark med 4 rækker. Alle 4 rækker indeholder et af de mystiske tegn og en forklaring på, hvilket tegn det skulle have været. https://1drv.ms/x/s!Ajemkpt7NcdzhOBk9OkF5ZsM6LSsQw?e=iQZ7q6
Jeg kan ikke sende det konkrete Excel ark, jeg sidder med, da det indeholder fortrolige oplysninger. Men hvis det kan lade sig gøre at skifte de 4 tegn ud til de rigtige, uden at søge og erstate på hvert tegn enkeltvis, kan det jo også lade sig gøre, når jeg sidder med et Excel ark med mange rækker og flere tegn.

Synes godt om

ebeaEkspert

02. februar 2022 - 14:06#9

#8 - Når du gemmer som en CSV fra en xlsx fil, bliver den som du har opdaget, åbnet igen uden at være en "rigtig" csv fil. Du skal gemme den som en .txt fil. Men jeg har afprøvet dit lille uploadede eksempel, og der er ingen tegnsæt, som kan erstatte de bogstaver du har problemet med.
Så løsningen er nok, som en tilpasset VBA løsning, som foreslået i #4.

Synes godt om

jens48Ekspert

02. februar 2022 - 14:31#10

Jeg har lavet en lille makro, som du kan lægge ind under Vis Koder, hvis du højrekikker på fanebladet. Den skifter karktererne ud i det valgte område - enten ved at du selv mærker området op, eller ved at du aktiverer og retter i linje 3.
Håber at jeg har fået alle karakterer med.

Sub Udskift()
Dim Garbage, Alfabet As String
'Range("A1:D100").select ' Ret selv området til
For i = 1 To 63
Garbage = Choose(i, "%C3 %81", "%C3 %8D", "%C3 %8F", "%C3 %90", "%C3 %9D", " í", " Ö", " ×", " È", " á", _
" æ", " è", " ï", " ô", " ø", " ÿ", " Ø", " Ñ", " Ò", " Â", " Ó", " Ô", " Ä", " Ë", " Û", " â", _
" ã", " ä", " å", " À", " ñ", " ë", " û", " ç", " é", " ì", " î", " ð", " õ", " ö", " ÷", " Å", _
" Æ", " Ç", " Õ", " É", " ü", " ý", " þ", " ù", " ò", " ó", " ê", " Ã", " ú", " Ì", " Ü", " Ê", _
" Ú", " Ù", " ß", " Î", " Þ")
Alfabet = Choose(i, "Ã", "Ã", "Ã", "Ã", "Ã", "í", "Ö", "×", "È", "á", "æ", "è", "ï", "ô", "ø", "ÿ", "Ø", "Ñ", _
"Ò", "Â", "Ó", "Ô", "Ä", "Ë", "Û", "â", "ã", "ä", "å", "À", "ñ", "ë", "û", "ç", "é", "ì", "î", "ð", "õ", "ö", _
"÷", "Å", "Æ", "Ç", "Õ", "É", "ü", "ý", "þ", "ù", "ò", "ó", "ê", "Ã", "ú", "Ì", "Ü", "Ê", "Ú", "Ù", "ß", "Î", "Þ")
Selection.Replace What:=Garbage, Replacement:=Alfabet, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
Next
End Sub

Synes godt om

SammyJuniormester

02. februar 2022 - 14:57#11

ebea
- #4 er den du skrev med at jeg skulle prøve at lægge et link op med ekempel. Så jeg er ikke helt med på den VBA løsning, du henviser til?

jens48
- Jeg synes ikke, jeg kan finde et faneblad der hedder "Vis Koder". Så jeg er sat af helt fra start på dette.

Synes godt om

jens48Ekspert

02. februar 2022 - 15:23#12

Du skal højreklikke på dit faneblad. Så dukker Vis Koder op

Synes godt om

ebeaEkspert

02. februar 2022 - 15:59#13

#11 - VBA løsningen, var den som #4 foreslog. Men Jens48 har lavet et eks. i #9, med en masse specialtegn.
Hvis det kan være nemmere for dig, har jeg lavet et lille eks. ud fra Jens48 kode i #9, og som du kan se i Linket, nederst her.
Der er lavet en lille knap, som du kan se, som fjerner og erstatter dine tegn.

Så giv jens48 kredit for det, og ikke mig, da han har brugt tiden på at indsætte tegn, som jeg blot har forenklet, for oversigtens skyld.

https://www.dropbox.com/scl/fi/hsdn8mv9to74b6fnfy45j/Mystiske-tegn-1.xlsm?dl=0&rlkey=cq3ayg67y2dwq1al7qo8cfjnz

Synes godt om

arne_vEkspert

02. februar 2022 - 16:09#14

Jeg ved ikke meget om Excel men det grundliggende problem er at UTF-8 er blevet indlæst som ISO-8859-1/WIndows-1252.

Og det burde være muligt at fixe det uden at opremse alle tegn (der er faktisk ca. 100000 tegn som kam encodes i UTF-8 !).

Kode snippet:

Set stm = CreateObject("ADODB.Stream")
stm.Open
stm.Charset = "iso-8859-1"
stm.WriteText s
stm.Position = 0
stm.Charset = "UTF-8"
s2 = stm.ReadText
stm.Close

burde fixe s i s2

(testet med VBS ikke VBA)

Synes godt om

SammyJuniormester

02. februar 2022 - 16:16#15

jens48
- Jeg fandt ud af, hvor koden skulle lægges ind. Tak for det.

ebea

Når jeg åbner dit Excel med knappen, skal jeg tage stilling til om jeg vil deaktivere eller aktivere makroer. Har prøvet begge dele. Ved ikke hvad jeg skal vælge der.

Der næst kan jeg kun åbne dokumentet som skrivebeskyttet eller annuller.
Når jeg trykker på knappen, sker der ikke noget.

Men jeg tænker, at jeg er ved at nærme mig noget rigtigt. Hvordan kommer jeg det sidste stykke?

Synes godt om

ebeaEkspert

02. februar 2022 - 16:18#16

#15 - I eksemplet, er du nødt til at aktivere makroer, for at kunne køre funktionen. Og når det er gjort, kan du bruge knappen, med funktionen.

Synes godt om

SammyJuniormester

02. februar 2022 - 16:21#17

arne_v
- Hvor skal jeg lægge den kode hen? Samme sted, altså højreklik på fanebladet og vis programkode?

Og jeg skal vel gøre noget mere det virker i cellerne? Hvis jeg gerne vil have skiftet tegn i hele arket. Hvad gør jeg så?

Synes godt om

SammyJuniormester

02. februar 2022 - 16:26#18

#16

Det har jeg så prøvet nu. Knappen virker stadig ikke. Er det fordi det er skriveneskyttet? Og hvordan får jeg det til ikke at være skrivebeskyttet?

Synes godt om

ebeaEkspert

02. februar 2022 - 17:01#19

#16 - Nej, arket skal ikke være skrivebeskyttet, da du jo så ikke kan lave ændringer i arket.

Synes godt om

SammyJuniormester

02. februar 2022 - 17:17#20

#19 Men jeg kan jo kun åbne arket, du linker til, som skrivebeskyttet. Og jeg kan ikke fjerne skrivebekyttelsen.

Synes godt om

ebeaEkspert

02. februar 2022 - 18:18#21

#20 - ja, nu har du fået aktiveret "Beskyttet visning".
Så gå op i menu linjen i "Filer", vælg "indstillinger", i indstillinger vælger du nederste funktion "Center for cyb...", og ude til højre, kan du se en knap "Indstillinger for center f.....". Inde i den nye menu der fremkommer, vælger du menulinjen "Beskyttet visning", og der fjerner du fluebenet fra de 2 øverste linjer.

Efter det, så prøv at downloade filen igen.

Synes godt om

SammyJuniormester

02. februar 2022 - 19:10#22

#21

Nu er det på Macbook jeg arbejder. Der hedder tingene nok ikke det samme. Men hvis jeg kliker filer og egenskaber, så kommer jeg her ind. Se skærmudklip på linket. Attributter: Skrivebeskyttet. Jeg har ikke mulighed for at fjerne fluebet.

file:///var/folders/00/zb5n62813bq2rwvxm4ywt9jr0000gn/T/TemporaryItems/NSIRD_screencaptureui_GcqCFY/Sk%C3%A6rmbillede%202022-02-02%20kl.%2019.07.38.png

Synes godt om

ebeaEkspert

02. februar 2022 - 19:13#23

#21 - Her kommer jeg til at hoppe af. Vi er på indlæg 22, og det er nok i overkanten ;-)
Og så virker dit Link du har lagt i #22, ikke.

Synes godt om

SammyJuniormester

02. februar 2022 - 19:26#24

Nå men tak for hjælpen alligevel til alle der har budt ind. Jeg tænker jeg alligevel har lært noget. Nemlig hvor man kan lægge sådan en kode ind. Så skal jeg bare finde ud af, hvordan jeg får det til at virke i cellerne.

Og lige til #23 - Jeg ved ikke hvorfor linket ikke virker. men hvis man kopierer linket og sætter det ind i browseren, skulle det gerne virke. Det har jeg testet i et Inkognitovindue :-)

Synes godt om

arne_vEkspert

03. februar 2022 - 01:37#25

Du kan vel lave en lille function med den indmad og så kalde den hvor der skal konverteres.

Som sagt kender jeg ikke meget til Excel VBA. Men jeg kender meget til UTF-8 og ISO-8859-1.

Synes godt om

ebeaEkspert

03. februar 2022 - 07:22#26

#25 - Det var faktisk hvad der var lavet i #13, blot ikke som en function.

Synes godt om

acoreEkspert

03. februar 2022 - 08:39#27

arne_v i #14 er som sædvanlig inde på det rigtige. Omskrevet lidt til excel kunne hans kode se sådan ud:

Sub cv()
For Each cell In Selection
Set stm = CreateObject("ADODB.Stream")
stm.Open
stm.Charset = "iso-8859-1"

stm.WriteText cell.Value
stm.Position = 0
stm.Charset = "UTF-8"
cell.Value = stm.ReadText
stm.Close
Next cell
End Sub

Den ændrer alle celler i det valgte range. Så fremgangsmåden er: Vælg range. Kør makro.

Den er ikke perfekt. For eksempel giver den fej, hvis der er tegn, der skal ændres, men som allerede er ændret. For eksempel, hvis teksten indeholder et "æ". Det kan sikkert fixes. Så husk backup før du bruger den.

Og så kan den helt sikert optimeres, så den bliver hurtigere.

Synes godt om

ebeaEkspert

03. februar 2022 - 09:58#28

#27 - Problemet ligger jo ikke i, om den ene kode, eller anden kode bruges. Den del virker jo. men problemet er, at OP ikke kan finde ud af at bruge det.
Som om du kommer med en ny kode, ændrer ingenting!

Synes godt om

acoreEkspert

03. februar 2022 - 10:19#29

Det kan du mene.

De foreslåede løsninger er, som arne_v indikerer, lappeløsninger, mens den her løsning er generisk. Det kunne jo være, at andre kunne lære noget af det.

Desuden er det et specifikt svar på spørgers request i #17.

Synes godt om

SammyJuniormester

03. februar 2022 - 11:34#30

Løsningen og en forklaring:

Jeg bruger Mac, og jeg troede ikke det gjorde en forskel, at man bruger Excel på Mac. Men kan godt se nu, at jeg burde have gjort opmærksom på dette tidligere. Macintosh har ikke ActiveX så derfor kan man ikke bruge streams.

Det er to-bogstavs kombinationer, dem kan man ikke skrive i VB, så derfor bliver det nødt til at stå på excel siden. De står så i kolonne N og O (14 og 15)

Så fik jeg også lige slået en flue mere i samme smæk, da jeg har et telefonnummer i kolonne B stående sådan her: "+4512345678. Og her ville jeg gerne have fjernet "+45. Det er også med i koden.

Jeg har haft en med forstand på Excel til at hjælpe mig. Han vil helst ikke hjælpe mig, før jeg har søgt andre løsninger først. Derfor startede jeg denne tråd i håb om at komme i mål den vej.

Men løsningen blev sådan her:

Sub Button1_Click()
Dim erstat, med As Variant
antal = Range("P1").Value()

Range("A1:A1000").Select ' Ret selv området til

For i = 1 To antal
erstat = Cells(i, 14).Value
med = Cells(i, 15).Value
Selection.Replace What:=erstat, Replacement:=med, LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
Next

Range("B1:B1000").Select ' telefon ret selv området til
Selection.Replace What:="+45", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=True
End Sub

Tak til alle der har budt ind i denne tråd.

Mvh
Sammy

Synes godt om

[løst] Erstat æ til æ, ø til ø, o.s.v. - Eksperten (33)Ny brugerNybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

[løst] Erstat æ til æ, ø til ø, o.s.v. - Eksperten (34)OpretPreview

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

TitelIndlægOprettetSeneste aktivitet
Betinget formatering - Ingen formatering hvis søgefeltet er tomt.Af Laugesen1 i Excel324/01/202520:5054 minutter siden
En formel som kan regne minutter om til timer...Af Oswald1 i Excel321/01/202512:0221/01/202512:52
Fejl meddelelse i excel 365Af boro23 i Excel521/01/202508:5723/01/202506:59
Meddelelse ved dubblering af indholdAf h_s i Excel320/01/202511:5320/01/202514:37
Kæder til områderAf jetpet88 i Excel120/01/202509:1120/01/202509:38

Se alle spørgsmål i kategorienOpret spørgsmål

[løst] Erstat æ til æ, ø til ø, o.s.v. - Eksperten (2025)

References

Top Articles
Latest Posts
Recommended Articles
Article information

Author: Gov. Deandrea McKenzie

Last Updated:

Views: 6033

Rating: 4.6 / 5 (66 voted)

Reviews: 81% of readers found this page helpful

Author information

Name: Gov. Deandrea McKenzie

Birthday: 2001-01-17

Address: Suite 769 2454 Marsha Coves, Debbieton, MS 95002

Phone: +813077629322

Job: Real-Estate Executive

Hobby: Archery, Metal detecting, Kitesurfing, Genealogy, Kitesurfing, Calligraphy, Roller skating

Introduction: My name is Gov. Deandrea McKenzie, I am a spotless, clean, glamorous, sparkling, adventurous, nice, brainy person who loves writing and wants to share my knowledge and understanding with you.