URL aus Zelle hervorholen

20/11/2008 - 11:15 von walterschmidt | Report spam
Hallo,

ein Bespiel: Ich habe mir in Ebay unter "mein Ebay" die Liste der
Artikel, die ich gerade online habe, anzeigen lassen. Mit Copy-Paste
habe ich die Liste in Excel kopiert. In einer Spalte werden z.B. die
Titel angezeigt. Geht man mit der Maus über die Zellen der Spalte,
sieht man die dahinterliegende URL.

Meine Frage, wie kann man die Spalte oder die einzelnen Zelle so
umwandelt, dass die URL zum Vorschein kommt?
 

Lesen sie die antworten

#1 Michael Franke
20/11/2008 - 21:16 | Warnen spam
Hallo Walter,

On 20 Nov., 11:15, wrote:
Hallo,

ein Bespiel: Ich habe mir in Ebay unter "mein Ebay" die Liste der
Artikel, die ich gerade online habe, anzeigen lassen. Mit Copy-Paste
habe ich die Liste in Excel kopiert. In einer Spalte werden z.B. die
Titel angezeigt. Geht man mit der Maus über die Zellen der Spalte,
sieht man die dahinterliegende URL.

Meine Frage, wie kann man die Spalte oder die einzelnen Zelle so
umwandelt, dass die URL zum Vorschein kommt?



Deine Artikel stehen im Tabellenblatt "Tabelle1" in Spalte A. Mit
folgender Prozedur kannst Du die URL in Spalte B "zaubern":

Public Sub Hyper()

Dim Blatt As Worksheet
Dim Zàhler As Integer
Dim Hyperlinkzahl As Integer
Set Blatt = ThisWorkbook.Sheets("Tabelle1")
Hyperlinkzahl = Blatt.Hyperlinks.Count
If Hyperlinkzahl > 0 Then
For Zàhler = 1 To Hyperlinkzahl
Blatt.Cells(Zàhler, 2) = Blatt.Hyperlinks(Zàhler).Address
Next
End If
Set Blatt = Nothing
End Sub

Gruß, Michael

Ähnliche fragen