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
Excel åbner fil i kæmpe format Af Aske i Excel	8	I dag 06:10	I dag 11:56
Summere beløb pr. dato Af TTA i Excel	2	I går 12:37	I går 15:30
Betinget formattering af flere celler vandret og lodret. Af Sussie i Excel	10	30/10/202408:41	30/10/202417:18
Ombrydning af tekst i en celle efter et tegn Af FinnLauridsen i Excel	8	29/10/202411:50	29/10/202414:18
Tidsintervaller i Excel Af Karsten KTL i Excel	3	29/10/202411:47	30/10/202414:20

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

01/11

Test af Apple Watch Series 10: Apples jubilæums-model er blevet lidt af en mester af det hele

01/11

Google Clouds netop fratrådte topchef har fundet sit nye job: Bliver en af de mest magtfulde personer hos ServiceNow

01/11

Nu går OpenAI efter struben på Google: ChatGPT fungerer nu også som en AI-søgemaskine

01/11

Nørgaard: Agenterne kommer, og jeg er klar: Måske bliver min gamle drøm snart virkelighed

01/11

Staten vil selv udvikle kæmpe it-system til 650 millioner kroner: Nu tvinges regeringen til at lægge vigtige dokumenter frem

01/11

Det går fantastisk på det danske Dynamics-marked: NNIT-selskabet Scales kan vælge og vrage mellem opgaver

01/11

Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre

01/11

Skelsættende GDPR-sag ændrer definitionen af 'følsomme oplysninger'

01/11

Google indlemmer sin AI Gemini i Google Maps, Google Earth og Waze: Det kommer det til at betyde

01/11

Microsoft: Tvungen skift til Windows 11 kan udskydes med et år, hvis du betaler os 200 kroner

01/11

Sådan blev Margrethe Vestager ’Silicon Valleys største fjende’

Vis flere artikler

IT-JOB

Itm8

CRM-konsulent

Svendborg Kommune

Vi søger en engageret og kompetent IT-konsulent, der skal være med til at løfte Cybersikkerheden i Svendborg Kommune

Danske Spil A/S

Product owner til digital udvikling hos Danske Spil

HOUSE4IT A/S

System- og netværkskonsulent til en professionel IT-virksomhed i Kolding

Cognizant Technology Solutions Denmark ApS

Test Manager

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 06:10	Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00	Datafordeler Af Lsk i PHP
I går 12:37	Summere beløb pr. dato Af TTA i Excel
31/1022:44	Tilslutte chassic fans Af viking69 i PC
31/1020:28	LED lysstofrør Af ErikHg i Fri debat