Fjern efternavn

Her er en løsning med left/venstre indsat i celle B1

=LEFT(A1;FIND(" ";A1)-1)
eller fordansket:
=VENSTRE(A1;FIND(" ";A1)-1)

Hvis det er en makro du søger, skulle denne fjerne alt til mellemrummet i det område du har markeret.

Sub fjernnavn()
    Dim rangeToChange As Range
    Dim cell As Range
    Dim iLoc As Integer
    For Each cell In Selection
        iLoc = InStr(cell.Value, " ")
        If iLoc > 0 Then
          cell.Value = Left(cell.Value, iLoc - 1)
        End If
    Next cell
End Sub

Makroen virker kun hvor der er mere end et navn efter fornavn.

Det forstår jeg ikke, kørt på dette lille eksempel:

a3    peter dskjl dslj
a4    søren h
a5    go jjs
a6    kjsl ljslf ljolds
a7    jlksjf ljlsf

får jeg dette resultat:

a3    peter
a4    søren
a5    go
a6    kjsl
a7

i celle b7 er der en blank foran: jlksjf ljlsf

jeg smutter for idag, min kone henter mig nu!

Fejlen ligger her hos mig.

De navne jeg har, er delt med et eller andet, som ikke er et almindeligt mellemrum.
Hvis jeg fjerner mellemrummet, og indsætter et nyt, så virker det.

Alle de navne jeg har, er kopieret fra en telefonbog på firmaets intranet.
Måske det er der fejlen ligger.

Du skal ha tak for hjælpen.
Og så bliver jeg vel nødt til at fjerne efternavnene på den hårde måde.

Hvis du er en haj til html kode, kan du måske gennemskue hvad der går galt.

Her er et udsnit fra intranettet.
Lettere redigeret, Polle Fra Snave, arbejder ikke her.

Polle Fra Snave

Du kunne lave en søg/erstat.

Markér det "snavs" du får ind (f.eks." ") , tast Ctrl+C.

Markér den kollonne der skal "renses".

Vælg søg/erstat fra Rediger-menuen (Ctrl+h i den engelske version), indsæt det kopierede med Ctrl+v i den første linie og lav et mellemrum i erstat med, og vælg erstat alle.