Søg
Avatar billede passiflora Juniormester
08. april 2011 - 15:25 Der er 4 kommentarer og
1 løsning

Udskifte tegn i tekst

Hej.

Jeg skal opbygge nogle filnavne, hvori der ikke må være æøå og mellemrum ...

Jeg vil gerne om der findes en funktion, kunne være en makro, da der bliver tale om mange celler.

Jeg kunne bruge FIND og ERSTAT, findes der noget smartere ... så ja tak ...
Avatar billede supertekst Ekspert
08. april 2011 - 16:09 #1
Funktionen "Replace" kunne anvendes i forbindelse med en makro, hvis du selv kan "skrue en sammen"

Hvordan er de pågældende celler placeret?
Avatar billede iver_mo Nybegynder
08. april 2011 - 16:54 #2
Tryk alt + F11 for at komme ind i VBA'en

Dobbeltklik på det ark du gerne vil fjerne tingene i og kopier understående kode ind i arket og kør koden.
-----------------------------------------------------
Sub remove_chars()

my_col_s = "A"      'startkolonne
my_row_s = 1        'startrække
my_col_e = "Z"      'slutkolonne
my_row_e = 100      'slutrække

my_æ = ""
my_ø = ""
my_å = ""
my_space = ""

    For Each c In Range(my_col_s & my_row_s, my_col_e & my_row_e).Cells
        my_str = Replace(c.Value, "æ", my_æ)
        my_str = Replace(my_str, "ø", my_ø)
        my_str = Replace(my_str, "å", my_å)
        my_str = Replace(my_str, " ", my_space)
        c.Value = my_str
    Next

End Sub
-----------------------------------------------------
Avatar billede passiflora Juniormester
08. april 2011 - 17:18 #3
Tak iver_mo

Takker ... syns det ser fint ud ...
Sender du ikke lige et svar ...
Avatar billede iver_mo Nybegynder
08. april 2011 - 17:20 #4
Tryk alt + F11 for at komme ind i VBA'en

Dobbeltklik på det ark du gerne vil fjerne tingene i og kopier understående kode ind i arket og kør koden.
-----------------------------------------------------
Sub remove_chars()

my_col_s = "A"      'startkolonne
my_row_s = 1        'startrække
my_col_e = "Z"      'slutkolonne
my_row_e = 100      'slutrække

my_æ = ""
my_ø = ""
my_å = ""
my_space = ""

    For Each c In Range(my_col_s & my_row_s, my_col_e & my_row_e).Cells
        my_str = Replace(c.Value, "æ", my_æ)
        my_str = Replace(my_str, "ø", my_ø)
        my_str = Replace(my_str, "å", my_å)
        my_str = Replace(my_str, " ", my_space)
        c.Value = my_str
    Next

End Sub
-----------------------------------------------------
Avatar billede iver_mo Nybegynder
08. april 2011 - 17:21 #5
Og velbekomme :-)
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Excel kurser
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig
Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel Indlæg Oprettet Seneste aktivitet
Samle data fra flere kolonner i 1 Af FinnLauridsen i Excel 4 17/04/202616:11 18/04/202608:16
Træk data fra ny lokation ved måneds skift Af Hezo i Excel 6 13/04/202614:32 15/04/202611:04
Makro der gemmer vedhæftet fil fra Msg og omdøber filen Af lokesa i Excel 2 31/03/202610:22 31/03/202611:47
Stempel ur start og stop Af lurup i Excel 2 23/03/202613:24 31/03/202610:27
Hvordan bruges indeks & sammenlign når der skal søges over flere kolonner? Af Laugesen1 i Excel 4 08/03/202611:56 08/03/202613:57
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
IT-JOB
Seneste spørgsmål Seneste aktivitet
24/0417:35 Kan ikke resette PC med Windows 8.1 Af TTA i Office & Kontorpakker
24/0413:33 Lukning af Microsoftkonto Af ErikHg i Windows
23/0416:10 Bat file. Af johnnylassen i Andet programmering
23/0410:28 “Signe” Svindel omtalt i medier Af nu_igen i Mobiltelefoner
22/0420:59 RAID controller virker ikke ved tilslutning af alle 4 harddiske Af Strawberry i Andet hardware
White papers
Flere white papers »