Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink variabel erzeugen

Forumthread: Hyperlink variabel erzeugen

Hyperlink variabel erzeugen
13.01.2006 10: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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink variabel erzeugen
13.01.2006 10: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!
'******************************

Anzeige
AW: Hyperlink variabel erzeugen
13.01.2006 10: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.
Anzeige
AW: Hyperlink variabel erzeugen
13.01.2006 10: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!
'******************************

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige