Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1444to1448
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Per Makro ein Klick auf Zelle mit Link ausführen

Per Makro ein Klick auf Zelle mit Link ausführen
08.09.2015 07:30:50
Ingo
Hallo
Ich habe eine Excel-Tabelle.
In Spalte A befinden sich Vornamen.
In Spalte B befinden sich Nachnamen.
In Spalte E befinden sich E-Mail-Adressen.
In Spalte L befinden sich mailto-Links zu den E-Mail-Adressen aus Spalte E.
Inklusive der Namen aus den Spalten A und B.
Die Formel für Spalte L lautet:
=WENN(K2="";"";HYPERLINK("mailto:"&A2&" " &B2&" ";"E-Mail"))
Der daraus resultierende Link schaut dann so aus:
Vorname Nachname
Nun möchte ich gerne ein Makro erstellen.
Das Makro soll bei Ausführung den Link in Spalte L anklicken.
Und zwar immer in der gerade aktiven Zeile.
Ist das machbar?
Da ich leider nur VBA-Anfänger bin, würde ich mich freuen, wenn Ihr mir da helfen könntet.
Gruß
Ingo

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Per Makro ein Klick auf Zelle mit Link ausführen
08.09.2015 14:10:20
Beverly
Hi Ingo,
versuche es mal so:
Sub HyperlinkAusfuehren()
ActiveWorkbook.FollowHyperlink Cells(ActiveCell.Row, 12).Hyperlinks(1).Address
End Sub


AW: Per Makro ein Klick auf Zelle mit Link ausführen
08.09.2015 14:19:33
Ingo
Hallo Karin
Danke für Deine Hilfe.
Ich habe das soeben probiert.
Beim Ausführen des Makros bekomme ich die Fehlermeldung:
"Laufzeitfehler '9': Index außerhalb des gültigen Bereichs"
Woran kann das denn liegen?
Gruß

Per Makro ein Klick auf Zelle mit Link ausführen
08.09.2015 17:10:44
Rudi
Hallo,
das kannst du nicht aus der Formel ableiten.
Sub aaa()
Dim r As Long
r = ActiveCell.Row
ActiveWorkbook.FollowHyperlink "mailto:" & Cells(r, 1) & " " & Cells(r, 2) & " "
End Sub

Gruß
Rudi

Anzeige
Ich habe es hinbekommen. Danke für Eure Hilfe
09.09.2015 00:03:43
Ingo
Ich habe es hinbekommen.
Danke für Eure Hilfe

322 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige