Supportnet / Forum / Tabellenkalkulation
Excel Problem
Frage
Hallo, ich möchte einen Zellbezug machen, und zwar habe ich in der Zelle in die ich den Zellbezug machen möchte einen Link zu einem Bild stehen der so aussieht:
http://images.XXXXXXXXXXXXX/67/66868/ean3337871311704.jpg
und in anderen Zellen habe ich die ean Codes stehen der am Schluss steht, das sind 497 Stück, ich habe immer die selben Links, muss nur die ean Nummer ändern in der Linkadresse.
Gibt es dafür eine Formel weil sonst müsste ich alle 497 per Hand kopieren ;-)
Vielen Dank im Vorraus
Marco
Antwort 1 von rainberg
Hallo Marco,
ich verstehe zwar Dein Problem nicht so richtig, aber nur soviel:
Eine Zelle kann immer nur einen Wert enthalten, entweder einen Link oder einen Bezug, beides geht nicht.
Gruß
Rainer
ich verstehe zwar Dein Problem nicht so richtig, aber nur soviel:
Eine Zelle kann immer nur einen Wert enthalten, entweder einen Link oder einen Bezug, beides geht nicht.
Gruß
Rainer
Antwort 2 von Marie
Dieser Code (im Beispiel in Tabelle 2) sollte tun was Du wolltest.
Private Sub Teilstring()
'in Zelle(1,1) steht der ganze Link
'in Spalte B (2)stehen die .jpg Namen,
'in Spalte C (3) soll der entsprechende Link eingetragen werden
Dim Zeile As Integer
Dim strRechtsString As String
Dim strLinksString As String
Dim inti As Integer
strRechtsString = Tabelle2.Cells(1, 1)
strLinksString = ""
Do While InStr(1, strRechtsString, "/") > 0
inti = InStr(1, strRechtsString, "/")
strLinksString = strLinksString & Left$(strRechtsString, inti)
strRechtsString = Right$(strRechtsString, Len(strRechtsString) - inti)
Loop
'strLinksString ist der Pfadname
'strRechtsString ist der Dateiname
Zeile = 1
While Tabelle2.Cells(Zeile, 2) <> ""
Tabelle2.Cells(Zeile, 3) = strLinksString & Tabelle2.Cells(Zeile, 2)
Zeile = Zeile + 1
Wend
End Sub
Private Sub Teilstring()
'in Zelle(1,1) steht der ganze Link
'in Spalte B (2)stehen die .jpg Namen,
'in Spalte C (3) soll der entsprechende Link eingetragen werden
Dim Zeile As Integer
Dim strRechtsString As String
Dim strLinksString As String
Dim inti As Integer
strRechtsString = Tabelle2.Cells(1, 1)
strLinksString = ""
Do While InStr(1, strRechtsString, "/") > 0
inti = InStr(1, strRechtsString, "/")
strLinksString = strLinksString & Left$(strRechtsString, inti)
strRechtsString = Right$(strRechtsString, Len(strRechtsString) - inti)
Loop
'strLinksString ist der Pfadname
'strRechtsString ist der Dateiname
Zeile = 1
While Tabelle2.Cells(Zeile, 2) <> ""
Tabelle2.Cells(Zeile, 3) = strLinksString & Tabelle2.Cells(Zeile, 2)
Zeile = Zeile + 1
Wend
End Sub
Antwort 3 von Aliba
Hi Marco,
alternativ als Formel:
EAN-Nrn. stehen in A1 abwärts:
=HYPERLINK("http://images.XXXXXXXXXXXXX/67/66868/ean"&A1&".jpg")
und entsprechend weit nach unten kopieren.
CU Aliba
alternativ als Formel:
EAN-Nrn. stehen in A1 abwärts:
=HYPERLINK("http://images.XXXXXXXXXXXXX/67/66868/ean"&A1&".jpg")
und entsprechend weit nach unten kopieren.
CU Aliba
Antwort 4 von Marie
Jo Aliba, warum einfach, wenns auch umständlich geht. Soweit hab ich natürlich nicht gedacht, dass er ja in der einen zelle die Nummer händisch abschneiden könnte, dann könnte er nämlich auch den einen & den anderen Zellinhalt nehmen.
Gruß Marie
Gruß Marie
Antwort 5 von Marie
Hm, ach so, Du meinst er hat da nur die Nummer stehen, dann müsste er, falls er den Code nehmen möchte, natürlich abändern:
Tabelle2.Cells(Zeile, 3) = strLinksString & "ean"& Tabelle2.Cells(Zeile, 2) & ".jpg"
Zeile = Zeile + 1
Wend
End Sub
Tabelle2.Cells(Zeile, 3) = strLinksString & "ean"& Tabelle2.Cells(Zeile, 2) & ".jpg"
Zeile = Zeile + 1
Wend
End Sub