Storer bokstav i starten af et navn

STORT.FORBOGSTAV("forenede NATIONER") er lig med "Forenede Nationer"

dette er en funktion

kan du ikke bruge den i nogle kolonner til højre.

når du har gjort det, kopier dem og sig indsæt specielt værdier, så er formlen væk.

Pas pas pas.
Hvad er det du mener????

Og nu du er i gang, så ret forkortelsen af "Adresse" fra "Ard" til "Adr" ;o)

I en tom celle til højre skriver du

=STORT.FORBOGSTAV(A1)
den trækker du så til højre lige så mange kolonner som der er data i der skal oversættes.
maker alle formelerne og træk dem nedad indtil der ikke er flere data

Hvis kun det er det første bogstav i cellen der skal være stort, kan denne makro bruges,

Sub test()
Dim test1, test2 As String, C, K, SK, SC  As Integer
SK = 4 ' sidste kolonne der skal oversættes
SC = ActiveCell.SpecialCells(xlLastCell).Row ' finder sidste række
For C = 1 To SC
For K = 1 To SK
Cells(C, K) = Left(Cells(C, K), 1) & LCase(Right(Cells(C, K), Len(Cells(C, K)) - 1))
  Next K
  Next C

End Sub

Super kabbak, men hvad nu når jeg også skal have det første bogstav efter et mellemrum med stort??

Det må da være muligt at bruge len funktionen til at tælle sig frem til placeringen af et mellemrun og så lægge en til..

Jeg kan bare ikke finde funktionen der finder et mellemrun :-(

OK så der der fanme dømt spagetti, med det virker :-)

Sub mellemrum()
Dim navn As String
Dim antal As Integer
Dim i As Integer
Dim forbokstav As String
Dim fornavn As String
Dim fornavn2 As String
Dim pos As Integer
Dim efternavn As String
Dim efternavn2 As String
Dim mellemrum As Integer
Dim ferdig As String
Dim C, K, SK, SC  As Integer

SK = 4
SC = ActiveCell.SpecialCells(xlLastCell).Row
For C = 1 To SC
For K = 1 To SK

navn = Cells(C, K)
navn = LCase(navn)
antal = Len(navn)

fornavn = Left(navn, 1)
fornavn = UCase(fornavn)

pos = InStr(1, navn, " ")

If pos > 1 Then
    mellemrum = pos + 1
        efternavn = Mid(navn, mellemrum, 1)
        efternavn = UCase(efternavn)
        fornavn2 = Mid(navn, 2, (pos - 2))
        efternavn2 = Mid(navn, (mellemrum + 1))
    ferdig = "" & fornavn & "" & fornavn2 & " " & efternavn & "" & efternavn2 & " "

    Cells(C, K) = ferdig
   
Else
    Cells(C, K) = Left(Cells(C, K), 1) & LCase(Right(Cells(C, K), Len(Cells(C, K)) - 1))

End If


  Next K
  Next C

End Sub

Hvis i kan gøre det smartere, vil jeg tage mod det med glæde.'
Det må da kunne gøres nemmere....

Sub test()
Dim C, K, SK, SC, MYPOS As Integer
SK = 4 ' sidste kolonne der skal oversættes
SC = ActiveCell.SpecialCells(xlLastCell).Row ' finder sidste række
For C = 1 To SC
For K = 1 To SK
MYPOS = InStr(1, Cells(C, K), " ")
If MYPOS = 0 Then
Cells(C, K) = Left(Cells(C, K), 1) & LCase(Right(Cells(C, K), Len(Cells(C, K)) - 1))
Else
Cells(C, K) = Left(Cells(C, K), 1) & LCase(Mid(Cells(C, K), 2, MYPOS - 1)) & _
Mid(Cells(C, K), MYPOS + 1, 1) & LCase(Right(Cells(C, K), Len(Cells(C, K)) - (MYPOS + 1)))
End If
  Next K
  Next C
End Sub

her er den med et mellemrum
der kommer fejl hvis der der flere

Mange tak kabbak :-)

selv tak, det skulle absolut være en makro, hva' *LOL*