Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1448to1452
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1448to1452
1448to1452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hyperlink/Shapes

Hyperlink/Shapes
11.10.2015 15:25:53
Sascha-Christian
Hallo Zusammen,
ich bin noch Anfänger was VBA angeht. Ich habe ein eine Prozedur geschrieben die es mir erlaubt den Hyperlinktext automatisch beim Speichern in "Bitte hier klicken" zu ändern. Dieses geschieht durch klicken auf ein Bild wobei dann noch eine PDF erstellt wird. Außerdem ist eine E-Mail Funktion und Kalender enthalten, die eine Serienmail mit dem Link und dem jeweiligen Datum erstellt. Nun komme ich leider nicht weiter. Ich habe Shapes eingefügt, die den Link Text aus der Zelle übernehmen (Bitte hier klicken). Ich würde gerne, dass wenn man auf den Shapes klickt, zur jeweiligen Website geleitet wird. Ich schaffe es nicht, dem Image die Hyperlink Adresse aus der Zelle zuzuweisen.
Ich würde mich sehr freuen wenn mir jemand dabei weiterhelfen kann :)
Liebe Grüße Sascha

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hyperlink/Shapes
11.10.2015 17:44:42
Tino
Hallo,
kennen Deine Tabelle nicht aber Grundsätzlich müsste so gehen.
  • Tabelle1 = der Codename der Tabelle, oder auch so Sheets("Tabelle1")

  • Tabelle1.Shapes("Picture 1") = Dein Bild

  • Tabelle1.Range("A2").Value = die Zelle wo der Linkt steht.

    • Tabelle1.Hyperlinks.Add Tabelle1.Shapes("Picture 1"), Tabelle1.Range("A2").Value
    Gruß Tino

    AW: Hyperlink/Shapes
    11.10.2015 18:31:03
    Sascha-Christian
    Hey,
    vielen Dank für deine schnelle Antwort! Die Grundfunktion springt an. Leider nimmt er den Pfad der Arbeitsmappe inkl. die Display Text (Bitte hier klicken) (file://C:\User\\Hugo\Desktop....\Bitte hier klicken).
    Wenn möglich würde ich auch gerne an dem Punkt wo der Cursor ist (Shape und Zelle immer zusammen) den Link generieren (also by selection) :=)
    Über ein Feedback würde ich mich sehr freuen :)

    Anzeige
    AW: Hyperlink/Shapes
    11.10.2015 18:52:40
    Tino
    Hallo,
    Hyperlinks.Add hat noch andere Parameter, schau mal hier.
    https://msdn.microsoft.com/de-de/library/office/ff822490.aspx
    Gruß Tino

    AW: Hyperlink/Shapes
    11.10.2015 20:35:37
    Sascha-Christian
    Hey,
    da war ich auch schon :) Leider konnte ich nicht die richtige Folge ermitteln. Hat jemand noch eine Idee?
    Gruß
    Sascha

    AW: Hyperlink/Shapes
    11.10.2015 20:43:57
    Sepp
    Hallo Sascha,
    angenommen die Links stehen in Spalte I (9) und die Shapes liegen in der selben Zeile, dann z.B. so.
    Der Code gehört in das Modul der Tabelle!
    ' **********************************************************************
    ' Modul: Tabelle2  Typ: Element der Mappe(Sheet, Workbook, ...)
    ' **********************************************************************

    Option Explicit

    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, _
      ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal _
      lpDirectory As String, ByVal nShowCmd As Long) As Long


    Sub shapeClick()
    Dim objShp As Shape
    Dim result As Long
    Dim strLink As String

    Set objShp = Me.Shapes(Application.Caller)

    strLink = Cells(objShp.TopLeftCell.Row, 9).Text

    result = ShellExecute(0&, "Open", strLink, "", 0&, 1)

    Set objShp = Nothing
    End Sub

    Gruß Sepp

    Anzeige
    AW: Hyperlink/Shapes
    12.10.2015 08:32:54
    Sascha
    Lieber Sepp,
    vielen Dank für deine Nachricht :) Ich habe den Code soweit in das Modul eingefügt. Jetzt ist er etwas zickig :) Er sagt mir Fehler beim Kompilieren: Unzulässige Verwendung des Schlüsselworts Me.
    Muss ich das "Me" noch irgendwie auflösen?
    Ich freue mich auf euer Feedback :)
    LG Sascha

    Modul der Tabelle! o.T.
    12.10.2015 09:19:05
    Sepp
    ,

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige