VBA der skiller fornavn og navn

Jeg har ikke lige Excel foran mig, men efter hukommelsen: Prøv dette:

dim navnekolonne as range
dim HeleNavnet as string
dim bogstavNR as integer
dim positionEfternavn as integer

for each celle in Navnekolonne
  for bogstavNR = 2 to len(celle)
    if isText(mid(celle, bogstavNR, 1) then
      positionEfternavn = bogstavNR
    endif

    'fornavnet:
    celle.offset(0,5)= left(HeleNavnet, positionEfternavn -1)

    'efternavnet:
    celle.offset(0,6)= right(HeleNavnet, len(heleNavnet)-positionEfternavn)

  next
next

mvh finb

Rettelse: UCASE:

dim navnekolonne as range
dim HeleNavnet as string
dim bogstavNR as integer
dim positionEfternavn as integer

for each celle in Navnekolonne
  for bogstavNR = 2 to len(celle)
    if UCASE(mid(celle, bogstavNR, 1)= TRUE then
      positionEfternavn = bogstavNR
    endif

    'fornavnet:
    celle.offset(0,5)= left(HeleNavnet, positionEfternavn -1)

    'efternavnet:
    celle.offset(0,6)= right(HeleNavnet, len(heleNavnet)-positionEfternavn)

  next
next

mvh finb

Hej Finb

Tak. Det virker ikke helt det står: "Syntax error"
Mvh
P

Jeg har nu fundet ud af det:

Dim navnekolonne As Range
Dim celle As Range
Dim HeleNavnet As String
Dim bogstavNR As Integer
Dim positionEfternavn As Integer

Set navnekolonne = Selection

For Each celle In navnekolonne
    HeleNavnet = celle.Value
   
    For bogstavNR = 2 To Len(celle)
      Test = Mid(celle, bogstavNR, 1)
      If UCase(Test) = Test Then
        positionEfternavn = bogstavNR
        Exit For
      End If
    Next
    'fornavnet:
    celle.Offset(0, 5) = Left(HeleNavnet, positionEfternavn - 1)

    'efternavnet:
    celle.Offset(0, 6) = Right(HeleNavnet, Len(HeleNavnet) - positionEfternavn + 1)

 
Next

Tak for hjælpen :-)

Det var så lidt, point modtages

Mvh finb