Rette store bogstaver i Excel

Tilmeldt 25. Jun 12

Indlæg ialt: 88

Morten2000 Skrevet 23-09-2013 kl. 20:31

Hvor mange stjerner giver du? :

Hej

Jeg sidder med et regneark, hvor der i en kolonne er ca. 20.000 produktoverskrifter. Problemet er, at de står med udelukkende store bogstaver.

Jeg kan selvfølgelig sætte mig til at lave "søg og erstat" på hele alfabetet, men så bliver alle overskrifterne med små begyndelsesbogstaver.

Er der en der kan hjælpe med en smart løsning?

/Morten

Tilmeldt 23. Sep 13

Indlæg ialt: 4

Nicolas de Teilmann Fra teilgroup Skrevet 23-09-2013 kl. 20:39

Hvor mange stjerner giver du? :

Hej Morten
Det nemmeste vil være at bruge funktionen =proper(A1) eller =STORT.FORBOGSTAV(A1), hvis du har dansk excel.
A1 referer til den celle med produktteksten. Så dobbelt klik på det højre hjørne, så kopierer den formlen hele vejen ned.
Bagefter markér hele kolonnen, og kopier og så indsæt speciel ved at ctrl+alt+v og vælg values/værdier.
Tager 10sek.
Held og lykke.

Tilmeldt 25. Jun 12

Indlæg ialt: 88

Morten2000 Skrevet 23-09-2013 kl. 21:17

Hvor mange stjerner giver du? :

Hej

Den kan jeg desværre ikke få til at virke.

Jeg går ud fra, at jeg skal bruge denne formel, når jeg har rettet alle store bogstaver til små bogstaver, for at lave forbogstaverne til store igen?

I mit tilfælde er overskrifterne flere ord. Vil denne formel virke så?

Jeg skal vel stå i A1, når jeg taster formlen ind?

/Morten

Tilmeldt 23. Sep 13

Indlæg ialt: 4

Nicolas de Teilmann Fra teilgroup Skrevet 23-09-2013 kl. 21:33

Hvor mange stjerner giver du? :

Hej Morten.
Du skal blot indsætte formlen i en tom kolonne, og derefter lade formlen pege på den første celle i den kolonne hvor produktteksterne står.
fx hvis produkteksterne står i kolonne A, så indsæt formlen =proper(A1) i celle B1, og derefter følg resten af trinene som forklaret.
Formlen gør at det første bogstav i hvert ord bliver capitalized (stort bogstav) og resten af bogstaverne bliver små, så nej der er ingen grund til først at lave din søg & erstat for at lave alle bogstaverne små.

Tilmeldt 4. Feb 08

Indlæg ialt: 1314

Kirsten E Fra Kirstens Quilt Skrevet 23-09-2013 kl. 21:56

Hvor mange stjerner giver du? :

Kopier hele kolonnen over i word, marker den, og vælg 'alle ord med stort begyndelsesbogstav' (findes under fanen 'startside', skrifttype).

Herefter kan du kopiere hele kolonne tilbage i Excel, og så skulle det se rigtigt ud.

MVH
Kirsten

Kirsten www.kirstensquiltshop.dk

Tilmeldt 25. Jun 12

Indlæg ialt: 88

Morten2000 Skrevet 23-09-2013 kl. 21:59

Hvor mange stjerner giver du? :

Hej

Det er sgu da smart :-)

Der er dog lige en hage ved det, som du måske også kan løse.

Overskrifterne består som sagt af flere ord. På denne måde kommer hvert ord i overskriften til at stå med stort forbogstav. Jeg vil jo helst, at det blot er det første ord i overskriften. Fx bliver "FLOT SPECIALBYGGET CARBON CYKEL" til "Flot Specialbygget Carbon Cykel".
Jeg så helst, at det blev til "Flot specialbygget carbon cykel".

Kan du også greje den?

Vh

Morten

Fra 7840 Højslev

Tilmeldt 21. Oct 08

Indlæg ialt: 282

Peter Braagaard Fra Supertekst Skrevet 24-09-2013 kl. 08:07

Hvor mange stjerner giver du? :

VBA kan gøre det ønskede
Hvilken kolonne er der tale om?
Vender tilbage lidt senere

Fra 7840 Højslev

Tilmeldt 21. Oct 08

Indlæg ialt: 282

Peter Braagaard Fra Supertekst Skrevet 24-09-2013 kl. 09:18

Hvor mange stjerner giver du? :

Rem Nedenstående VBA-kode kopieres og indsættes "under" det relevante ark:
Rem Højreklik på ark-fanen / Vis programkode / Indsæt det kopierede / Gem & luk VBA-vinduet
Rem For at udføre koden: Atlt+F8 / Klik på FraStoreTilSmåBogstaver" / Afspil
Rem Din Excel skal være indstillet til at køre med makro;
Rem Excel-indstillinger / Sikkerhedscenter

Const kolonne = "A"                                 'kan justeres
Dim antalræk As Long, ræk As Long, ptTekst As String, nyTekst As String
Public Sub FraStoreTilSmåBogstaver()
    antalræk = ActiveCell.SpecialCells(xlLastCell).Row

    Application.ScreenUpdating = False
    For ræk = 1 To antalræk
        ptTekst = Range(kolonne & ræk)
        nyTekst = Left(ptTekst, 1) & LCase(Mid(ptTekst, 2))
        Range(kolonne & ræk) = nyTekst
    Next ræk
End Sub

Tilmeldt 25. Jun 12

Indlæg ialt: 88

Morten2000 Skrevet 24-09-2013 kl. 19:06

Hvor mange stjerner giver du? :

Hold da op I er dygtige. Det ser ud til at virke fint.

Mange tak for jeres svar.

Vh

Morten