funktion til udskiftning af 5 textstrenge med tilhørende talkode i en enkelt kolonne

=ERSTAT()
se syntax under hjælpeknappen "fX"

Mvh finb

Det er syntaxen jeg giver points for

=erstat(cellenMedTeksten;begyndMedTegnNr;antalTegnSomSkalErstattes;deNyeTegn)

eksempel:

Teksten i celle A1 er "sommerdag".
Du vil udskifte "sommer" med "efterårs":

=erstat(A1;1;6;"efterårs")

Tak for det. Jeg prøver igen.

jeg skal bruge en funktion til udskiftning af 5 textstrenge til en  talkode istedet for, i en enkelt kolonne.

Er det så noget idenne retning du søger?

En funktion der i en udvalgt kolonne(eller flere) kan udskifte en eller  flere værdier i cellerne.

Sub erstat()

Dim cc As Range
Columns("F:F").Select

For Each cc In Selection.Cells
    'ret i nedenstående linier for tekst der skal udskiftes - lav evt flere linier efter behov
    cc.Replace What:="Ekstern", Replacement:="0000", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
    cc.Replace What:="Intern", Replacement:="9999", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Next

End Sub

lige nøjagtigt. Tak Kurt.

En fornøjelse at kunne hjælpe :-)

læg et svar  :-)

Et svar :-)