Makro til copy af værdi til andet felt

Marker celle med værdi der skal skilles og kør kode

Sub Udskil()
x = ActiveCell.Value
tegn1 = InStrRev(x, "/") ' sidste tegn før tal
tegn2 = InStr(x, ".") ' første tegn efter tal
MsgBox Mid(x, tegn1 + 1, tegn2 - tegn1 - 1)
Rem ActiveCell.Offset(0, 1) = Mid(x, tegn1 + 1, tegn2 - tegn1 - 1)
End Sub

Ok men det skulle kopires over i felt 2 ikke fra felt 2 til 1

ActiveCell.Offset(0, -1) = Mid(x, tegn1 + 1, tegn2 - tegn1 - 1)

Har du hele formlen ?

det er ikke en formel men en kode
hvad er Felt 1 og hvad er Felt 2 ?
og i hvilken er /images/2900050019305.jpg

Felt1 = 2900050019305
Felt2 = /images/2900050019305.jpg

Sub Udskil()
tegn1 = InStrRev(Felt2, "/") ' sidste tegn før tal
tegn2 = InStr(Felt2, ".") ' første tegn efter tal
Felt1 = Mid(Felt2, tegn1 + 1, tegn2 - tegn1 - 1)
End Sub

Jeg tror ikke du helt forstår hvad jeg mener

I A2 har jeg værdien 2900050019305, i B2 vil jeg have lavet så der står /images/2900050019305.jpg  altså skal 2900050019305 indsættes imellem /images/ og .jpg

Du kan lave det uden brug af makro, hvis dette er nemmere. Indsæt denne i den ønskede celle og sæt "D2" til den celle hvor nummeret står.

="/images/"&D2&".jpg"

Den omdanner dog formateringen til tekst.

lerskov det var løsningen

super. Et svar

Jeg har lget lidt og lavet en makro der kører hvergang der ændre i kolonne A.

indsæt dette i programkoden på det ark du bruger.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("a:a")) Is Nothing Then
        kaedcell
    End If
End Sub

Public Sub kaedcell()

Dim strfilnavn As String

Range("a65536").Select
Max = Selection.End(xlUp).Row
Range("a1").Select

For x = 1 To Max
    gammel = "a" & x
    ny = "b" & x
    strfilnavn = "/Images/" & Range("a" & x) & ".jpg"
    Range(ny) = strfilnavn
Next x


End Sub

lukketid ???