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
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
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.