Hyperlink

Question

Hallo zusammen,

funktioniert es, dass ich einer Zelle (einer WKN) jeweils einen Hyperlink zuordnen kann?

Wie mache ich dass bei einer großen Anzahl von Zahlen.

Die einzelne Zuordnung ist mir klar.

=HYPERLINK("http://www.onvista.de/search.html?SEARCH_VALUE="&C2)
=HYPERLINK("http://www.onvista.de/search.html?SEARCH_VALUE="&C3)

Answer 1

Hi,

meinst du vielleicht so etwas:

=HYPERLINK("http://www.onvista.de/search.html?SEARCH_VALUE=C"&ZEILE(A2))

Bis später,
Karin

Answer 2

Hallo Karin,

bislang habe ich die Hyperlinks in seperaten Zellen (z.B. in A1) und verweise darin per Hyperlink auf C2 usw.; ich möchte aber die Spalte A komplett löschen und direkt in den Zellen mit den (abzufragenden) Inhalten den Link im Hintergrund laufen lassen.

Also (nach dem löschen der aktuellen Zellen) =>

B1 123256

Wenn ich dann auf die Zahl (die WKN) klicke, kommt immer ein anderer Hyperlink zum tragen.

B2 123457
B3 123458
usw.

Lässt sich bestimmt irgendwie bewerkstelligen...

Answer 3

Hi,

also soll der Link in der Zelle sein, in der die Linkadresse steht? Ist das nun Spalte B oder C?

Bis später,
Karin

Answer 4

Hi,

genau, der Link soll in der Zelle sein, in der die Linkadresse steht.

Zur Zeit habe ich aber eine "Hilfsspalte", das ist jetzt A - die möchte ich dann löschen.

Dann wird die Zelle B die WKN enthalten (und im Hintergrund den Link).
Ich möchte nicht jede der Zellen manuell bearbeiten, denn das geht ja wohl...

Answer 5

Hi,

Sub LinksErstellen()
Dim lngZeile As Long
Dim strLink As String
strLink = "http://www.onvista.de/search.html?SEARCH_VALUE="
For lngZeile = 1 To 50 '<== Zeilen anpassen
ActiveSheet.Hyperlinks.Add anchor:=Cells(lngZeile, 3), _
Address:=strLink & Cells(lngZeile, 3)
Next lngZeile
End Sub

Bis später,
Karin

Answer 6

Danke für die Antwort,

allerdings habe ich (noch) keine Ahnung von VBA

also die Befehle sollen in VBA eingegeben werden?

Answer 7

Hi,

Rechtsklick auf den Tabellenreiter -> Code anzeigen, du gelangst in den VBA-Editor. Gehe dort in der Symbolleiste auf Einfügen -> Modul (nicht Klassenmodul!) und kopiere den Code in das rechte (obere) Codefenster.
Im Tabellenblatt kannst du dann im Register: Ansicht -> Befehlsgruppe: Makros -> Schalter: Makros anzeigen das betreffende Makro markieren und ausführen.

Bis später,
Karin

Answer 8

... funktioniert !!!

Vielen Dank an Karin

* Habe mir gleich erst mal ein VBA Buch bestellt!

Answer 9

Hallo,

ich finde die Lösung von Karin prima!
Wäre es denkbar, jetzt noch den aktuellen Kurs aus diesem link auszulesen und in das Excel-sheet zu kopieren. Der Kurswert steht ja im link immer an der selben Stelle... ich hab nur überhaupt keine Ahnung ob und wie man auf der Internetseite navigieren könnte.
Danke für jeden Tipp!!
Gruß Andreas