Søg
Avatar billede serverfriend Nybegynder
09. november 2006 - 20:48 Der er 6 kommentarer og
1 løsning

Laver store bogstaver til små

Jeg har et excel med 5 kolonner

A0A 1A0    | AQUAFORTE | NEWFOUNDLAND AND LABRADOR    | NL |709 |

Det jeg gerne vil have er:

- Kolonne B skal være med små bogstaver pånær det første
- Kolonne C skal være magen til

Så det ser sådan her ud:

A0A 1A0    | Aquaforte | Newfoundland And Labrador    | NL |709 |

Det vil være super dejligt hvis der er en der kan løse det.

Det skal være hele arket. Der er mange rækker.

Jeg vil gerne have en programkode hvis nogen kan finde ud af det :-)
Avatar billede excelent Ekspert
09. november 2006 - 20:59 #1
Sub Konv()
Dim t, r
r = Cells(65500, 2).End(xlUp).Row
For t = 1 To r
Cells(t, 2) = Application.WorksheetFunction.Proper(Cells(t, 2))
Cells(t, 3) = Application.WorksheetFunction.Proper(Cells(t, 3))
Next
End Sub
Avatar billede bak Forsker
09. november 2006 - 21:09 #2
eller noget hurtigere men ikke bedre

Sub myConv()
Dim rng As Range
Set rng = Range("B1:C" & Range("B65536").End(xlUp).Row)
rng.Value = Application.Proper(rng)
End Sub
Avatar billede excelent Ekspert
09. november 2006 - 21:12 #3
hvis det kun er forbogstav i første ord som må være med stort

Sub xKonv()
Dim t, r
r = Cells(65500, 2).End(xlUp).Row
For t = 1 To r
Cells(t, 2) = LCase(Cells(t, 2))
Cells(t, 2) = Application.WorksheetFunction.Proper(Left(Cells(t, 2), 1)) & Right(Cells(t, 2), Len(Cells(t, 2)) - 1)
Cells(t, 3) = LCase(Cells(t, 3))
Cells(t, 3) = Application.WorksheetFunction.Proper(Left(Cells(t, 3), 1)) & Right(Cells(t, 3), Len(Cells(t, 3)) - 1)
Next
End Sub
Avatar billede serverfriend Nybegynder
09. november 2006 - 21:23 #4
Smid et svar begge to :-)
Avatar billede bak Forsker
09. november 2006 - 21:24 #5
nej tak, point tilhører excelent. Han var først med det rigtige svar :-)
Avatar billede excelent Ekspert
09. november 2006 - 21:26 #6
ok :-)
Avatar billede serverfriend Nybegynder
09. november 2006 - 22:34 #7
Tak for hjælpen :-)
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
#OVERLØB! Af ABE15 i Excel 1 I går 20:05 I går 20:43
XOPSLAG i flere kolonner med samlet overskrift Af Dalsgaard i Excel 2 15/12/202515:41 16/12/202507:23
Tæl antal ud fra to kriterier Af ABE15 i Excel 6 14/12/202520:59 16/12/202523:46
Frys linier Af johnnylassen i Excel 1 07/12/202513:12 07/12/202513:17
I excel Hent data fra et regneark til et andet regneark Af jørn meyer i Excel 10 06/12/202519:49 08/12/202520:10
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
Seneste spørgsmål Seneste aktivitet
I går 20:05 #OVERLØB! Af ABE15 i Excel
I går 15:17 proxy server Af dcedata1977 i Andet netværk
I går 12:02 Kan ikke komme på nettet med nogen browser Af Malm i Windows
19/1216:11 ny til python Af dcedata1977 i Python
17/1213:47 Apps virker ikke korrekt. Skal jeg købe ny tablet ? Andre muligheder ? Af annam i Apps til Android
White papers
Flere white papers »