Hyperlink variabel erzeugen

Forumthread: Hyperlink variabel erzeugen
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Hyperlink variabel erzeugen

13.01.2006 11:03:14

Zergio

hallo
Brauche eure Hilfe.
Also ich habe einen Button irgendwo. Dieser Button wenn er geklickt wird soll einen Hyperlink erstellen. Dieser soll immer in der 2. Spalte erstellt werden und in der Zeile in der gerade eine Zelle angeklickt ist. Der Hyperlink soll den Wert der Zelle behalten, in der er erzeugt wird(jeweilige Zeile, zweite Spalte). bekomm das nicht hin, hatte gestern auch schon ähnliches gepostet.
Ist nur ein kleiner Teil von einem macro aber ich denk so ist es besser zu verstehen
LG Cedric

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hyperlink variabel erzeugen

13.01.2006 11:11:25

Josef
AW: Hyperlink variabel erzeugen

13.01.2006 11:26:56

Zergio
AW: Hyperlink variabel erzeugen

13.01.2006 11:28:40

Josef

AW: Hyperlink variabel erzeugen

13.01.2006 11:11:25

Josef

Hallo Cedric!
Das hättest du aber mit dem Rekorder auch aufzeichnen können!

Sub CommandButton1_Click()
Dim strAdr As String
strAdr = ActiveCell.Text

If strAdr = "" Then Exit Sub

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=strAdr, TextToDisplay:="Neuer Link"

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Hyperlink variabel erzeugen

13.01.2006 11:26:56

Zergio

Ich glaube das ist nicht ganz was ich wollte. Hier wird odch aus der gerade geklickten Zelle ein hyperlink mit dem inhalt der aktiven zelle.
Ich würde gerne, dass egal wo man sich in einer Zeile befindet (welche Zelle in dieser Zeile angeklickt ist soll egal sein) dies mit dem Wert in der 2.ten spalte passiert.
Wäre super wenn du mir weiterhilfst. Wenn es nicht verständlich ist frag einfach nochmal.

AW: Hyperlink variabel erzeugen

13.01.2006 11:28:40

Josef

Hallo Zergio!
Dann halt so!

Sub CommandButton1_Click()
Dim strAdr As String
strAdr = Cells(ActiveCell.Row, 2).Text

If strAdr = "" Then Exit Sub

ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell, Address:=strAdr, TextToDisplay:="Neuer Link"

End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************