Problem Excel

Forumthread: Problem Excel

Problem Excel

16.01.2005 12:40:40

Peter

Hallo
habe folgendes Problem:
möchte aus einer sechstelligen zahl einen Link generieren...
Beispiel:
Zahl in Spalte J= 888560
daraus soll erstmal 888-560 werden
dann ein punkt JPG angefügt werden
dann ein http://www.testseite.de/ vorangestellt werden
Der Link sollte dann so aussehen: http://www.testseite.de/888-560.jpg
Kann man sowas mit einem Makro machen ?
Die Liste ist ca. 5000 Zeilen lang ...
Gruß Peter

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Problem Excel

16.01.2005 13:01:03

chris
AW: Problem Excel

Ramses
AW: Problem Excel

16.01.2005 13:44:46

chris
AW: Problem Excel

Ramses
AW: Problem Excel

chris
AW: Problem Excel

Ramses
AW: Problem Excel

16.01.2005 13:56:45

chris
AW: Problem Excel

Peter

AW: Problem Excel

16.01.2005 13:01:03

chris

Einfach in den VBA-Edito kopieren !
Sub neu() For x = 1 To 5000 wert1 = Left(Cells(x, 10), 3) wert2 = Right(Cells(x, 10), 3) If wert1 = "" Then GoTo nexte: Cells(x, 10) = <a href=""http://www.testseite.de/"">"http://www.testseite.de/"</a> & wert1 & "-" & wert2 & ".jpg" nexte: Next End Sub

AW: Problem Excel

Ramses

Hallo
Ist das nun ein Darstellungsfehler im Browser, oder läuft das bei dir tatsächlich so wie du hier geschrieben hast ?
Gruss Rainer

AW: Problem Excel

16.01.2005 13:44:46

chris

Mist ,,, das was ich hier renkopiere geht.Nur irgendiwe wandelt der Webbrowser das ganze um in HTML :(((
Hmm wie füge ich das ganze jetzt richtig ein ..? Nochn versuch
Sub neu() For x = 1 To 5000 wert1 = Left(Cells(x, 10), 3) wert2 = Right(Cells(x, 10), 3) If wert1 = "" Then GoTo nexte: cb = <a href=""http://www.testseite.de/"">"http://www.testseite.de/"</a> & wert1 & "-" & wert2 & ".jpg" Cells(x, 10) = cb nexte: Next End Sub
sehs in der vorschau klappt auch nicht :(
Wandelt meinen Code immer in HTML um

AW: Problem Excel

Ramses

Hallo

Option Explicit
Sub neu()
Dim x As Integer
Dim lStr As String, rStr As String
For x = 1 To 5000
    If Cells(x, 10) <> "" Then
        lStr = Left(Cells(x, 10), 3)
        rStr = Right(Cells(x, 10), 3)
        Cells(x, 10).FormulaR1C1 = "=Hyperlink(""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"",""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"")"
    End If
Next x
End Sub

Gruss Rainer

AW: Problem Excel

chris

AW: Problem Excel

Ramses

Hallo
Sorry,... ich wollte dir nicht auf die Füsse treten.
Aber wo ist das Problem:

	A	B
1	898989
2	234556
3

Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
und nachher

	A	B
1	http://www.testseite.de/898-989.jpg
2	http://www.testseite.de/234-556.jpg
3
4

Formeln der Tabelle

A1 : =HYPERLINK("http://www.testseite.de/898-989.jpg";"http://www.testseite.de/898-989.jpg")
A2 : =HYPERLINK("http://www.testseite.de/234-556.jpg";"http://www.testseite.de/234-556.jpg")

Excel Tabellen einfach im Web darstellen Excel Jeanie HTML 3.0 Download
und hier noch der code mit den angespasten Variablen :-)

Option Explicit
Sub neu()
Dim x As Integer
Dim lStr As String, rStr As String
For x = 1 To 5000
    If Cells(x, 1) <> "" Then
        lStr = Left(Cells(x, 1), 3)
        rStr = Right(Cells(x, 1), 3)
        Cells(x, 1).FormulaR1C1 = "=Hyperlink(""http://www.testseite.de/" & lStr & "-" & rStr & ".jpg"",""http://www.testseite.de/" & lStr & "-" & rStr & ".jpg"")"
    End If
Next x
End Sub

Gruss Rainer

AW: Problem Excel

16.01.2005 13:56:45

chris

So gehts !

Sub neu()
Dim x As Integer
Dim wert1 As String, wert2 As String
For x = 1 To 5000
    If Cells(x, 10) <> "" Then
        wert1 = Left(Cells(x, 10), 3)
        wert2 = Right(Cells(x, 10), 3)
        Cells(x, 10).FormulaR1C1 = "=Hyperlink(""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"",""http://www.testseite.de/" & wert1 & "-" & wert2 & ".jpg"")"
    End If
Next x
End Sub

AW: Problem Excel

Peter

vielen vielen Dank ...
klappt wunderbar ....
wusste gar nicht das sowas mit Excel geht.
Gruß Peter

Beliebteste Forumthreads (12 Monate)

Forumthread: Problem Excel

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread