Hejsan
Mitt problem består av att jag vill kunna selektera ut versaler i en cell(cell1) som innehåller både versaler och gemener därefter skriva ut endast veralerna i en annan cell(cell2) tex.


cell 1: PELLEsoft

cell 2: PELLE


Jag hittar ingen bra lösning på detta. Finns det någon annan som har det ?

Tack på förhand
Thomas

Skapa en egen funktion, t ex

Function ExtractCaps(str)
  Dim i,ch
  ExtractCaps = ""
  For i = 1 To Len(str)
    ch = Mid(str,i,1)
    If ch = uCase(ch) Then
      ExtractCaps = ExtractCaps & ch
    End If
  Next
End Function

Hejsan Stefan
Tack för det snabba svaret, får det dock inte att fungera, får svaret #NAME? vad kan det vara för fel?

MVH
Thomas

Excel verkar inte hitta igen din funktion. Var la du funktionen?
Den bör ligga i en egen modul...
<info>
* Starta VB Editor (Alt+F11)
* Välj Infoga -> Modul
* Lägg funktionen där
* Spara och återgå till arbetsboken
</info>

Jag har lagt den i en egen modul. den fungerar ända inte ?

Hej igen Stefan
Jag har hittat felet. Felet var att jag tog och kopierade din funktion och därefter klistrade in den i modulen. efter det klistrade jag in det som skall stå i cellen. och det var där det blev ett litet fel. det har smygit sig in ett extra "c" i funktionsnamnet som den kallar på. ExctractCaps(A1) när det skulle stå ExtractCaps(A1). Nu fungerar den perfekt !

tack skall du ha

Med vänliga hälsningar
Thomas

Hoppsan... har du sett... "nyckfelstrisse" har varit framme... ;)
Ändrar i mitt exempel...

Bra att det löste sig...