Tekst toevoegen aan reeds bestaande cel vanuit andere cel

[dannydko]

Hallo,

Ik loop voor mijn data sheet nog tegen 1 probleem je aan,

Ik wil het volgende bereiken.

In kolom A staan artikelnummers, deze nummers zijn niet altijd uniek.

In Cel B staat een link naar een afbeelding, echter bevat deze link nog niet de tekst uit cel A

http://webshop.geheimpje/Webstore Images/500-1000_1.jpg

De tekst in het rood dient per regel het artikelnummer vanuit de desbetreffende cel in Kolom A te bevatten.

Ik heb dit geprobeerd met de samenvoegen functie maar niet gelukt.

Zie voorbeeld bestand.Bekijk bijlage Helpmij forum, samenvoegen.xlsx

alvast bedankt!

 

[dannydko]

De simpele oplossing doormiddel van samenvoegen van teksten heb ik reed gevonden, het liefst zou ik hiervoor een Macro gebruiken, kan iemand deze misschien schrijven ?

Alvast bedankt

 

[Ginger]

Zoiets in cel C2?

=HYPERLINK(SUBSTITUEREN(B2;"_";A2&"_"))

=HYPERLINK(SUBSTITUTE(B2;"_";A2&"_"))

 

[HSV]

Of moet het in de betreffende cel zelf komen (kolom B)?

Sub hsv()
Dim cl As Range
For Each cl In Columns(2).SpecialCells(2)
 If InStr(cl, cl.Offset(, -1)) = 0 Then
  cl = Replace(cl, Split(cl, "/")(UBound(Split(cl, "/"))), cl.Offset(, -1) & Split(cl, "/")(UBound(Split(cl, "/"))))
 End If
Next cl
End Sub

 

[Ginger]

@HSV, pas op dat je onderliggende hyperlink daarmee nog niet is aangepast.

 

[HSV]

Misschien heb je gelijk Leo.
Ik lees; Er staat een hyperlink die nog niet de tekst bevat uit kolom A.
Misschien is die niet af zodat het niet werkt (voor mij niet duidelijk genoeg).

Voor de zekerheid dan maar.
Zo wordt elke regel in kolom B een link, of het geldig is of niet, en moet het naar behoren werken volgens mij.

Sub hsv()
Dim cl As Range, adres As String
For Each cl In Range("B2", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(2)
  If InStr(cl, cl.Offset(, -1)) = 0 Then
     cl = Replace(cl, Split(cl, "/")(UBound(Split(cl, "/"))), cl.Offset(, -1) & Split(cl, "/")(UBound(Split(cl, "/"))))
     Blad1.Hyperlinks.Add cl, cl
  End If
Next cl
End Sub

Of TS bedoelt alleen TextToDisplay.

Sub hsv()
Dim cl As Range, tekst As String
For Each cl In Range("B2", Cells(Rows.Count, 2).End(xlUp)).SpecialCells(2)
 If InStr(cl, cl.Offset(, -1)) = 0 Then
   tekst = Replace(cl, Split(cl, "/")(UBound(Split(cl, "/"))), cl.Offset(, -1) & Split(cl, "/")(UBound(Split(cl, "/"))))
   Blad1.Hyperlinks.Add cl, cl, "", "", tekst
  End If
Next cl
End Sub