Udskiftning af cifre

Hvis der kun er tale om max 8 forskellige cifre, der skal skiftes, kan det gøres med =HVIS()

Det kunne eksempelvis se sådan ud

=hvis(højre(A1;1)="1";venstre(a1;7)&"G";Hvis(højre(A1;1)="2";venstre(a1;7)&"H";=hvis(højre(A1;1)="3";venstre(a1;7)&"I";=hvis(højre(A1;1)="4";venstre(a1;7)&"J";=hvis(højre(A1;1)="7";venstre(a1;7)&"K";=hvis(højre(A1;1)="8";venstre(a1;7)&"L";""))))))

Det er max. 6 forskellige. Jeg havde håbet på en løsning, da jeg ikke er nogen Xl ørn...

jeg har da givet dig en løsning...........

Hvordan får jeg den til at køre som en løkke ?
Skal jeg kopiere den lange smøre ind i celle A1?
What to do ??

der er ikke tale om en løkke, men derimod en formel.

Formlen tilføjes i en ny kolonne, og cellereferencen A1 rettes til den celle, hvor du har dit produktnummer. Herefter kopierer du formlen ned i dit regneark. Og vupti, så skulle du gerne have dit nye produktnummer *S*

har tilføjet ny kolonne og rettet A1 til A2 og kopieret cellen ned. Virker ikke !!

dumt, dumt. Det er en UK udgave jeg har. Kan jeg rette ventsre til left og højre til right og hvis til if ?

Prøv denne makro.

Public Sub ReplaceChar()
    Dim rCell As Range
   
    For Each rCell In Range("A1").CurrentRegion.Columns(1).Cells
        Select Case Right(rCell.Value, 1)
            Case 1
                rCell.Value = Replace(rCell.Value, 1, "G")
            Case 2
                rCell.Value = Replace(rCell.Value, 2, "H")
            Case 3
                rCell.Value = Replace(rCell.Value, 3, "I")
            Case 4
                rCell.Value = Replace(rCell.Value, 4, "J")
            Case 7
                rCell.Value = Replace(rCell.Value, 7, "K")
            Case 8
                rCell.Value = Replace(rCell.Value, 8, "L")
        End Select
    Next rCell
    Set rCell = Nothing
End Sub

Eller denne formel:


=REPLACE(A1;8;1;VLOOKUP(VALUE(RIGHT(A1;1));E6:F14;2;FALSE))

E6 til E14 indeholder værdierne 1-9 og
F6 til F14 indeholder værdierne G,H,I,J,5,6,K,L,9

Formlen lægges ind i B1 og kopieres ned.

På dansk hedder formlen:
=ERSTAT(A1;8;1;LOPSLAG(VÆRDI(HØJRE(A1;1));E6:F14;2;FALSK))

Hov, så ikke lige du har en UK-udgave.
Så kan du bruge mit første svar.

Hov2, hvis den skal kopieres ned skal den lige hedder:
=REPLACE(A1;8;1;VLOOKUP(VALUE(RIGHT(A1;1));$E$6:$F$14;2;FALSE))

Flemming :
Det var dette har jeg ledte efter men...
D63111F1 bliver til D63GGGFG men skulle have været :

D63111FG
Din macro tager altså ikke højde for at det kun er det 8. ciffer der skal skiftes.

Jan:
jeg har ikke prøvet din endnu

Du kan jo blot tilføje nogle flere CASE linier - det er nemt.

Ja, det lyder jo nemt. men hvordan får jeg fortalt den at den kun skal kigge på 8. ciffer ??

Public Sub ReplaceChar()
    Dim rCell As Range
   
    For Each rCell In Range("A1").CurrentRegion.Columns(1).Cells
        If Len(rCell.Value) = 8 Then
            Select Case Right(rCell.Value, 1)
                Case 1
                    rCell.Value = Replace(rCell.Value, 1, "G")
                Case 2
                    rCell.Value = Replace(rCell.Value, 2, "H")
                Case 3
                    rCell.Value = Replace(rCell.Value, 3, "I")
                Case 4
                    rCell.Value = Replace(rCell.Value, 4, "J")
                Case 7
                    rCell.Value = Replace(rCell.Value, 7, "K")
                Case 8
                    rCell.Value = Replace(rCell.Value, 8, "L")
            End Select
        End If
    Next rCell
    Set rCell = Nothing
End Sub

Jeg fik jo ikke læst din kommentar ordenligt først.... :-) skulle tro at det er mandag morgen!!!

Stadigt det samme galt. Macroen skifter alle cifre

hmmm.... man skal ikke være væk i mange minutter, før det går helt grassat ;-)

Men for at svare på dit spørgsmål fra kl. 08.36.34, så er svaret ja. Hvis erstattes af IF, Højre af Right og venstre af Left. Og så vidt jeg hsuker, skal semikolon ændres til komma....

Nej - det er ikke rigtigt - har du fået slettet den gamle. Her sker kun noget HVIS længden af celle-værdien er 8

Har slettet den gamle. Stadigt samme problem...

rigtigt - det gør den jo også.......Zzzzzzzzzzzzz

Public Sub ReplaceChar()
    Dim rCell As Range
   
    For Each rCell In Range("A1").CurrentRegion.Columns(1).Cells
        If Len(rCell.Value) = 8 Then
            Select Case Right(rCell.Value, 1)
                Case 1
                    rCell.Value = Left(rCell.Value, 7) & "G"
                Case 2
                    rCell.Value = Left(rCell.Value, 7) & "H"
                Case 3
                    rCell.Value = Left(rCell.Value, 7) & "I"
                Case 4
                    rCell.Value = Left(rCell.Value, 7) & "J"
                Case 7
                    rCell.Value = Left(rCell.Value, 7) & "K"
                Case 8
                    rCell.Value = Left(rCell.Value, 7) & "L"
            End Select
        End If
    Next rCell
    Set rCell = Nothing
End Sub

tak for hjælpen alle.
Jan : din replace virker ikke

Jo, selvfølgelig virker den.
Den er testet ......