Makro für Excel-Hyperlink

Makro für Excel-Hyperlink
In einer Excel-Tabelle sind in einer Spalte Bild-Nrn. untereinander aufgelistet, welche mittels Makro einen Hyperlink zum jeweiligen Bild (.jpg-Datei) in einem Unterorder erhalten sollen.
Manueller Ablauf ist folgender:
Bild-Nr. in geöffneter Tabelle anwählen,
Hyperlink bearbeiten anwählen
Durchsuchen: Datei anwählen
Ordner der Bilder öffnen
unter Dateiname *.jpg oder *.* eingeben und mit ok bestätigen
aus den angezeigten Bildern entsprechende Bild-Nr. auswählen,
mit ok bestätigen und weiteres Fenster mit ok beenden.
Leider funktioniert das trotz eingeschaltetem relativem Verweis mit der einfachen Aufzeichnung bei mir nicht. Meine Makro-Kenntnisse reichen dafür nicht aus.
Es müsste doch möglich sein, die jeweils selektierte Bild-Nr. in der geöffneten Tabelle mit der Dateiendung .jpg zu ergänzen und in den Link zu übernehmen, um dann das Bild im Verzeichnis zu finden und somit mittels 1 Makro-Klick das Bild angezeigt zu bekommen. Die Dateiendung .jpg selbst ist mit einem Bildviewer bereits verknüpft - ein Aufruf eines entsprechenden Programms müsste m.E. nicht erfolgen.
Ich hoffe, es kann mir jemand helfen. Danke.
Gruß Paulo

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Paulo,
für die Formelvariante hast du ja schon eine Lösung gefunden.
Kann man auch anders lösen, indem man für den anzuzeigenden Text in der Formel "" & vor der Nummer einfügt.
Hier zusätzlich nooh zwei Makros zum Einfügen (EInzeln oder ganze Spalte) von Hyperlinks in der Spalte mit den Bild-Nummern.
Gruß
Franz

Sub Hyperlinks_Spalte_A_Formel()
Dim Zeile_1 As Long, Zeile_L As Long
Dim SpaNr As Long, SpaFormel As Long
Dim strPfad As String
If MsgBox("Formeln für Hyperlinks in Spalte ""A"" einfügen?", _
vbQuestion + vbOKCancel, "Hyperlink-Formeln einfügen") = vbCancel Then Exit Sub
'Verzeichnis mit den Bild-Dateien - Backslash "\" am Ende nicht vergessen!
strPfad = "C:\Users\Paulo\Bilder\"
'Spalte mit den Nummern der Bild-Dateinamen
SpaNr = 2 'Spalte B
'Spalte mit den Hyperlink-Formeln
SpaFormel = 1 'Spalte A
'1. Zeile in die Hyperlink-Formeleingefügt werden soll
Zeile_1 = 2
With ActiveSheet
'letzte Zeile mit Inhalt in der Spalte mit den Nummern
Zeile_L = .Cells(.Rows.Count, SpaNr).End(xlUp).Row
With .Range(.Cells(Zeile_1, SpaFormel), .Cells(Zeile_L, SpaFormel))
.FormulaR1C1 = "=HYPERLINK(""" & strPfad & """&RC[" & (SpaNr - SpaFormel) _
& "]&"".jpg"","""" & RC[" & (SpaNr - SpaFormel) & "])"
End With
End With
End Sub
Sub Hyperlinks_Spalte_B_Einfuegen()
'Hyperlinks für alle Nummern in der Spalte erzeugen
Dim Zeile_1 As Long, Zeile_L As Long
Dim SpaNr As Long, Zeile As Long
Dim strPfad As String
If MsgBox("Hyperlinks zu Bild-Nummern in Spalte ""B"" einfügen?", _
vbQuestion + vbOKCancel, "Hyperlinks einfügen") = vbCancel Then Exit Sub
'Spalte mit den Nummern der Bild-Dateinamen
SpaNr = 2 'Spalte B
'1. Zeile in die Hyperlinka eingefügt werden sollen
Zeile_1 = 2
'Verzeichnis mit den Bild-Dateien - Backslash "\" am Ende nicht vergessen!
strPfad = "C:\Users\Paulo\Bilder\"
With ActiveSheet
'letzte Zeile mit Inhalt in der Spalte mit den Nummern
Zeile_L = .Cells(.Rows.Count, SpaNr).End(xlUp).Row
For Zeile = Zeile_1 To Zeile_L
With .Cells(Zeile, SpaNr)
If .Text  "" Then
.Parent.Hyperlinks.Add Anchor:=.Range("A1"), _
Address:=strPfad & .Text & ".jpg", _
ScreenTip:="Bild: " & strPfad & .Text & ".jpg", _
TextToDisplay:=.Text
End If
End With
Next
End With
End Sub
Sub Hyperlink_Spalte_B_Einzeln()
'Hyperlink für aktive Zelle erzeugen
Dim strPfad As String
'Verzeichnis mit den Bild-Dateien - Backslash "\" am Ende nicht vergessen!
strPfad = "C:\Users\Paulo\Bilder\"
With ActiveCell
Select Case .Column
Case 2 'Spalte B - Spalte mit Bild-Nummern
If .Text  "" Then
.Parent.Hyperlinks.Add Anchor:=.Range("A1"), _
Address:=strPfad & .Text & ".jpg", _
ScreenTip:="Bild: " & strPfad & .Text & ".jpg", _
TextToDisplay:=.Text
End If
Case Else
MsgBox "Hyperlinks dürfen nur in Spalte B eingefügt werden!", _
vbInformation + vbOKOnly, _
"Makro - Hyperlink_Spalte_B_Einzeln"
End Select
End With
End Sub

Sub Hyperlink_Spalte_B_Selektion() 'Hyperlink für Zelle im selektierten Zellbereich erzeugen Dim strPfad As String Dim rngZelle As Range 'Verzeichnis mit den Bild-Dateien - Backslash "\" am Ende nicht vergessen! strPfad = "C:\Users\Paulo\Bilder\" strPfad = "C:\Users\Admin\Pictures\" For Each rngZelle In Selection.Cells With rngZelle Select Case .Column Case 2 'Spalte B - Spalte mit Bild-Nummern If .Text "" Then .Parent.Hyperlinks.Add Anchor:=.Range("A1"), _ Address:=strPfad & Format(.Value, "0") & ".jpg", _ ScreenTip:="Bild: " & strPfad & .Text & ".jpg", _ TextToDisplay:=Format(.Value, "0") End If Case Else MsgBox "Hyperlinks dürfen nur in Spalte B eingefügt werden!", _ vbInformation + vbOKOnly, _ "Makro - Hyperlink_Spalte_B_Selektion" Exit For End Select End With Next rngZelle End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Makro für Excel-Hyperlink

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

299 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread