Thema Datum  Von Nutzer Rating
Antwort
25.07.2018 21:36:34 Max
NotSolved
25.07.2018 22:08:03 Gast15940
NotSolved
25.07.2018 22:14:43 AlterDresdner
Solved
25.07.2018 22:17:15 AlterDresdner
NotSolved
Rot Hyperlink Schleife
 26.07.2018 00:17:52 Max
NotSolved
26.07.2018 21:23:42 AlterDresdner
NotSolved
27.07.2018 20:08:05 Gast14331
Solved
30.07.2018 17:11:34 AlterDresdner
Solved

Ansicht des Beitrags:
Von:
Max		 Datum:
26.07.2018 00:17:52		 Views:
548		 Rating:
     
Antwort:
  Ja
Thema:
Hyperlink Schleife

Hallo,

danke erst einmal für die schnelle Antwort.

Ich bin mir nicht sicher wo mein fehler liegt jedoch funktioniert der code bei mir nicht.

kann mir jemand sagen wo mein fehler liegt.

Option Explicit
Sub Hyperlink()
 Const Dateipfad = "..\..\Bilder\Prüfung%200001\"
 Dim zeile As Long


    With ActiveSheet
      For zeile = 2 To 77
        Hyperlinks.Add Anchor:=.Cells(zeile, 8), Address:= _
          Dateipfad & zeile - 1 & "%20Gesamt.jpg", TextToDisplay:="1"
        Hyperlinks.Add Anchor:=.Cells(zeile, 9), Address:= _
          Dateipfad & zeile - 1 & "%20Detail%201.jpg", TextToDisplay:="2"
        Hyperlinks.Add Anchor:=.Cells(zeile, 10), Address:= _
        Dateipfad & zeile - 1 & "%20Detail%202.jpg", TextToDisplay:="3"
      Next zeile
    End With
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.07.2018 21:36:34 Max
NotSolved
25.07.2018 22:08:03 Gast15940
NotSolved
25.07.2018 22:14:43 AlterDresdner
Solved
25.07.2018 22:17:15 AlterDresdner
NotSolved
Rot Hyperlink Schleife
 26.07.2018 00:17:52 Max
NotSolved
26.07.2018 21:23:42 AlterDresdner
NotSolved
27.07.2018 20:08:05 Gast14331
Solved
30.07.2018 17:11:34 AlterDresdner
Solved