Förste bogstav som versal (Makro)

Prøv denne

Sub stb()
  For Each c In Worksheets(2).UsedRange.Cells
      c.Value = UCase(Left(c.Value, 1)) & LCase(Mid(c.Value, 2, Len(c.Value)))
      Next c
End Sub

Den laver første bogstav med stort, øvrige bogstaver med småt.

Skal øvrige bogstaver forblive som de allerede er, så brug denne variant

Sub stb()
  For Each c In Worksheets(2).UsedRange.Cells
      c.Value = UCase(Left(c.Value, 1)) & Mid(c.Value, 2, Len(c.Value))
      Next c
End Sub

Det virker desværre ikke :-( Jeg får en fejl...

Hvilen fejl?

En eller anden slags komplimeringsfejl. Den markerer Sub stb() og oplyser, at der er en fejl.

Hvilken version af Excel taler vi om?

Funktionen proper() kan også klare dette.

Rigtigt. Så denne makro er nok i virkeligheden bedre:

Sub stb()
For Each c In Worksheets(2).UsedRange.Cells
c.Value = WorksheetFunction.Proper(c.Value)
Next c
End Sub

Jeg får svaret "udefineret variabel" og c i "for each c" blev highlighted.
Jeg har Excel version 2002

OK. Har du "options Explicit" øverst i dit modul.

Under alle omstændigheder prøv med

Sub stb()
dim c
For Each c In Worksheets(2).UsedRange.Cells
c.Value = WorksheetFunction.Proper(c.Value)
Next c
End Sub

Ja, det har jeg - som en anden makro :-)

Og det virker bare perfekt :-)))

Tusind mange tak for hjælpen og fortsat god dag :-)

I ligemåde- og velbekomme ;-)