CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

nyhavn18 Mester

13. november 2018 - 15:18 Der er 9 kommentarer og
4 løsninger

Stort bogstav først i celle.

Lidt svært at lave en kort overskrift der beskriver det....

Hej alle sammen

Jeg søger formatering eller formel (VBA!) - der sørger for at det første bogstav i en celle altid står med stort.
Det skal ikke være en formel i et andet felt, men en kode der ændrer indhold i den celle man har tastet i så snart man forlader denne.

Eks.
Jeg markerer celle A1 og skriver "Christoffer", så snart jeg forlader cellen enten med 'enter' eller 'piletaster' så ændrer indholdet i cellen sig til "Christoffer"!

Denne formel skal gerne kunne dække en kolonne.

Har søgt vidt og bredt, men det er ikke lykkedes mig at finde noget der præcist dækker mine behov!

På forhånd tak for hjælpen.
Nyhavn18

Synes godt om

220661 Ekspert

13. november 2018 - 16:24 #1

Prøv at se om denne side her kan hjælpe dig på vej:
https://www.extendoffice.com/documents/excel/2771-excel-capitalize-first-letter-of-cell.html#a1

Synes godt om

jens48 Ekspert

13. november 2018 - 17:21 #2

Du kan markere et område og køre denne makro:

Sub StortBogstav()
For Each x In Selection
If x <> "" Then
x.Value = Application.Proper(x.Value)
End If
Next
End Sub

Synes godt om

store-morten Ekspert

13. november 2018 - 17:24 #3

Eller denne der retter ved ændring i kolonne A:

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Column <> 1 Then
Exit Sub
Else
Target.Value = UCase(Left(Target.Value, 1)) & LCase(Mid(Target.Value, 2, Len(Target.Value)))
End If
End With

End Sub

Synes godt om

1 synes godt om dette

nyhavn18 Mester

14. november 2018 - 10:07 #4

Hej alle tre!

Store Mortens forslag er umiddelbart den løsning jeg leder efter.
(så skal jeg bare lige have den til at virke...)

Så Store Morten, du skriver at den ændrer i kolonne A. Jeg får en fejlmeddelelse på denne linie: "if. Column <> 1 then", er der noget jeg skal ændre eller er det mig der gør noget forkert....(jeg kopierer din formel og sætter den ind i som en makro og når jeg sætter den til at køre så kommer fejlen!)

Nyhavn18

Synes godt om

store-morten Ekspert

14. november 2018 - 10:24 #5

Du skal sætte koden på det Ark den skal virke på.

Og når du ændre tekst i kolonne A retter den selv.
" når jeg sætter den til at køre så kommer fejlen! Du skal ikke sætte den til at køre?

Synes godt om

Max_P_Larsen Seniormester

14. november 2018 - 10:49 #6

Hvis dine celler skal indeholde navne, kan du bruge denne VBA-kode (i Store Mortens kode):

Target.Value = StrConv(Target.Value, vbProperCase)

Dette ændrer f.eks. "christoffer" til "Christoffer" og "anders and" til "Anders And".

Mvh Max

Synes godt om

store-morten Ekspert

14. november 2018 - 11:02 #7

Ja, hvis alle ord skal skrives med stort bogstav.

dette er en test
=
Dette Er En Test

Synes godt om

nyhavn18 Mester

14. november 2018 - 11:08 #8

Hej Store Morten

(og tak for ekstra hjælp Max_P...)

Der skal kun stå et enkelt navn i hver celle, en med fornavn og en med efternavn.

Og det var mig der lavede fejlen. Nu virker det i den skønneste orden! Perfekt, tak.

Nyhavn18

Synes godt om

Max_P_Larsen Seniormester

14. november 2018 - 11:40 #9

@store-morten
Og det var så grunden til, at jeg skrev "Hvis dine celler skal indeholde navne, ...." :-)

Synes godt om

1 synes godt om dette

store-morten Ekspert

14. november 2018 - 11:51 #10

Så kunne den også se sådan ud:

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Column <> 1 Then
Exit Sub
Else
Target = Application.Proper(Target)
End If
End With

End Sub

Synes godt om

nyhavn18 Mester

16. november 2018 - 08:20 #11

God morgen Store_Morten m.fl.

Må jeg være så fræk at komme med et mindre tillægsspørgsmål?

Jeg fandt ud af at ændre på hvilken kolonne jeg ville bruge formlen i, men hvad hvis jeg gerne vil have den til at virke på to kolonner? (i dette tilfælde D og E)

Ved ikke om du får besked om dette spørgsmål når du tidligere har været aktiv i en tråd. Men beklager at jeg sådan vækker den til live igen!

Nyhavn18

Synes godt om

Max_P_Larsen Seniormester

16. november 2018 - 09:13 #12

Private Sub Worksheet_Change(ByVal Target As Range)

With Target

Select Case .Column

' Kolonne D = 4, kolonne E = 5
Case 4, 5
Target = Application.Proper(Target)

Case Else
Exit Sub

End Select

End With

End Sub

Synes godt om

store-morten Ekspert

16. november 2018 - 09:27 #13

Private Sub Worksheet_Change(ByVal Target As Range)

With Target
If .Column <> 4 And .Column <> 5 Then
Exit Sub
Else
Target = Application.Proper(Target)
End If
End With

End Sub

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

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

Titel	Indlæg	Oprettet	Seneste aktivitet
Automatisk give specifikke point udfra placering Af jernrosen3 i Excel	5	19/12/202410:24	I dag 13:14
Delvis udfyld en celle, baseret på en %-sats fra anden celle Af Brian Nielsen i Excel	2	16/12/202415:27	17/12/202422:03
Hjælp til formatering af excel ark. Af Nicholas i Excel	23	13/12/202412:32	18/12/202415:44
To x-akser men kun ét datasæt? Af TheLibrarian i Excel	1	10/12/202409:17	10/12/202410:35
Isolere en dato i tekst/tal Af jernrosen3 i Excel	7	09/12/202408:59	09/12/202410:38

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

20/12

Netværkstest: Første mesh-sæt med komplette WiFi 7-features sætter nye rekorder for dækning og hastighed

20/12

Omsætning er steget med 100 millioner kroner på to år: Microsoft danske udviklingscenter har udbetalt milliarder i udbytte

20/12

Nørgaard: Copilot scorer pænt højt i min kendte 3D-test (Dyrt, Dumt, Dårligt)

20/12

Amazon ramt af største strejke nogensinde: Ansatte gået hjem

20/12

CISO Sarah Aalborg forlader Tivoli: Her er hendes planer for fremtiden

20/12

Sådan vil Domstolsstyrelsen nedbringe legacy og teknisk gæld: Her er den nye plan

20/12

Temu åbner stort varehus i Sverige og kan nu sende varer til danskerne endnu hurtigere: "Hvad vi frygtede, er sket"

20/12

Amerikansk spil-firma skal levere eSim-program til Forsvaret: Soldater skal lære at håndtere kampvogne på computer

20/12

Danmark har det hurtigste internet i Norden

20/12

Behov for mere vidensdeling om AI: Sådan bliver du bedre rustet

20/12

Julepynt, papkasser og drikkevarer flyder på politiets datacenter - og uautoriserede personer kan have haft adgang til serverrum

Vis flere artikler

IT-JOB

DSV

Manager - Operational Analytics - Enterprise Transformation

AP Pension

Business intelligence analytiker til BI afdeling

DSV

Shape DSV's Machine Learning journey as a Senior Data Platform Engineer

Udviklings- og Forenklingsstyrelsen

Projektkoordinator til Boligprogrammet

Banijay Denmark A/S

IT-supporter med M365 administratorerfaring til dynamisk medieproduktionsmiljø

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I går 22:16	Er "OneDrive" et "Must" ? Koster det penge ? Af Ikke-ekspert i Windows
I går 16:42	Windows Media Player - Hvilken version (Versioner) er gode til at afspille og kopiere ? Af Ikke-ekspert i Musik & videoafspillere
I går 12:54	Fejlfinding: Årsag til blank skærm og ingen BIOS fra Lenovo 90BH Af Mads i PC
I går 09:42	Outlook - kan ikke kopiere opgaver Af barth i Office & Kontorpakker
I går 00:26	Genhøre telefonsamtale Af anonym24 i Chat & Messaging