Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
13.10.2025 10:37:47
Reihenfolge von Tabellenblättern fixieren
13.10.2025 08:03:03
Fortlaufende dynamische Nummerierung mit Text generieren
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit Makro direkten Link zum Bild erstell

Forumthread: Mit Makro direkten Link zum Bild erstell

Mit Makro direkten Link zum Bild erstell
09.03.2021 18:17:40
Heine
Hallo Liebe Excel-Gemeinde,
ich habe folgendes Problem:
In einer Tabelle stehen Namen von Bildern, die in einem Ordner gespeichert sind. Ich versuche gerade ein Makro zu schreiben, welches den Namen im Ordner sucht und den Inhalt der Zelle in einen Link umwandelt, mit dem das Bild direkt aufgerufen werden kann.
So richtig weiter komme ich da nicht, hat da vielleicht jemand eine Idee? :)
In Sachen VBA bin ich leider blutiger Anfänger, deswegen bin ich glücklich dieses Forum hier gefunden zu haben.
Lieben Gruß
Martin

Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 18:53:09
Nepumuk
Hallo Martin,
in welcher Spalte ab welcher Zeile stehen die Bildnamen? Stet die Endung mit dabei?
Gruß
Nepumuk

AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 19:05:34
Heine
Hallo Nepumuk,
danke für die rasche Antwort.
Die ganze Tabelle besteht im Grunde aus Namen, es geht um den Bestand. Die Tabelle geht von B4-AX58 wenn das hilft. Die Endung steht nicht mit dabei.
Gruß
Martin :)

Anzeige
AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 19:33:52
Nepumuk
Hallo Martin,
teste mal:
Option Explicit

Public Sub InsertHyperlinks()
    
    Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Bilder\" 'Anpassen - Backslash am Ende nicht löschen !!!
    
    Dim objCell As Range
    Dim strFilename As String
    
    For Each objCell In ActiveSheet.UsedRange
        
        If Not IsEmpty(objCell.Value) Then
            
            strFilename = Dir$(FOLDER_PATH & objCell.Text & "*.*")
            
            If strFilename <> vbNullString Then _
                Call ActiveSheet.Hyperlinks.Add(Anchor:=objCell, Address:=FOLDER_PATH & _
                strFilename, ScreenTip:=strFilename, TextToDisplay:=objCell.Text)
            
        End If
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 20:32:41
Heine
Hallo Nepumuk,
ich danke dir vielmals, funktioniert alles einwandfrei!!!!
Danke :)

AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 20:35:28
Heine
Eine Frage noch: Wie kann ich nur einen bestimmten Zeilen/Spaltenbereich auswählen?

AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 20:42:38
Nepumuk
Hallo Martin,
einen Bereich in der Tabelle mit der Maus markiert oder hart im Code eingetragen?
Gruß
Nepumuk

Anzeige
AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 20:44:38
Heine
Hallo Nepumuk,
am besten im Code verankert.
Gruß
Martin

AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 20:48:39
Nepumuk
Hallo Martin,
dann so:
Option Explicit

Public Sub InsertHyperlinks()
    
    Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Bilder\" 'Anpassen - Backslash am Ende nicht löschen !!!
    
    Dim objCell As Range
    Dim strFilename As String
    
    For Each objCell In Range("B4:AX58") 'Anpassen !!!
        
        If Not IsEmpty(objCell.Value) Then
            
            strFilename = Dir$(FOLDER_PATH & objCell.Text & "*.*")
            
            If strFilename <> vbNullString Then _
                Call ActiveSheet.Hyperlinks.Add(Anchor:=objCell, Address:=FOLDER_PATH & _
                strFilename, ScreenTip:=strFilename, TextToDisplay:=objCell.Text)
            
        End If
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Mit Makro direkten Link zum Bild erstell
09.03.2021 20:54:12
Heine
Hallo Nepumuk,
ich danke dir vielmals für deine großartige Hilfe!
Gruß
Martin
;

Forumthreads zu verwandten Themen

Bild von Zelle in Zelle verlinken
Zelle

Hi Leute
Ich habe in Tabelle1 Zelle A1 einen Text, und danach habe ich in die Zelle ein Bild eingefügt
Nun möchte ich die gesamte Zelle A1 (Bild und Text) in Zelle Z17 haben.
Bei normalen Texten geht es ja mit =A1 (wenn ich in Zelle Z17 stehe)
Gibt es diesen Befehl auch für mein...
04.11.2008 16:19:07
Thread-ID: 1021687
4 Beiträge
summe bilden in abhängigkeit von zelleneintrag
zelleneintrag

hallo zusammen
ich hätte gerne gemäss dem beispiel gewusst, wie ich eine summe bilde in abhängigkeit
eines zelleintrages.
gruess
https://www.herber.de/bbs/user/56754.xls
13.11.2008 17:23:00
Thread-ID: 1024309
4 Beiträge
Anzeige
Bild in Zelle einfügen
ray

Hallo,
hallo, ich möchte in einer Zelle ein Bildanzeigen/einfügen. Es liegt aber vor allen Zellen.
Viele Grüße aus dem schneeweißen Hamburg
Ray
21.11.2008 08:25:00
Thread-ID: 1026601
9 Beiträge
Bilder aus dem Web in Excel2007 anzeigen
Thomas

Hallo Experten,
seit Stunden habe ich jetzt recherchiert und probiert, aber noch keine Lösung gefunden.
In Excel 2000 und 2003 konnte ich per VBA Bilder aus dem Internet direkt als Bild in einer Excel-Tabelle anzeigen lassen und so einen Katalog erzeugen:
Set image = ActiveSheet.Pic...
13.03.2009 18:43:51
Thread-ID: 1059977
11 Beiträge
mit Hyperlink zum linken Bildrand
Deister

Hallo,
Folgendes zur aktuellen Situation:
Auf Blatt A sind +/- 1000 Namen in Kolonne A erfasst. Von den Namen (Zellen in Kolonne A) kann ich über Hyperlink die bezüglichen Zellen in Reihe 1 in den Blättern B bis E ansteuern.
In den Blättern B bis E sind die Kolonnen A bis D "freeze...
13.05.2009 12:09:02
Thread-ID: 1074779
8 Beiträge
Internetbild in Zelle anzeigen
stef@n

Hallo zusammen
bin auf der Suche nach einer Möglichkeit, ein Bild aus dem Internet in einer Zelle anzeigen zu lassen.
Ich habe es mit einem Hyperlink probiert z.b.
src="http: //www.google.de/intl/de_de/images/logo.gif" />
(Leerzeichen nach http: damit das Logo hier im Thre...
21.05.2009 15:50:09
Thread-ID: 1076569
9 Beiträge
Bilder aus Verzeichnis in Userform anzeigen
Rainer

Hallo,
jetzt hab ich nochmal eine Frage:
Gibt es eine Möglichkeit, Bilder nacheinander direkt aus einem Ordner (zB D:\Bilder) per Schaltflächen in einem Userform anzeigen zu lassen? Also im Prinzip wie bei einem Bildbetrachter:
Bei jeder Betätigung eines Vorwärts-Schalters werde...
16.06.2009 22:15:03
Thread-ID: 1082074
3 Beiträge
Bild hinter Zellen
joerg

Hallo Zusammen,
habe ein kleines Problem.
Gibt es in XLS eine Möglichkeit ein Bild "hinter" die Zellen zu legen, sodass eine Art Raster entsteht? Als Hintergrundbild ist etwas zu unflexibel, da es 3-4 Bilder auf einer A4 - Seite sein sollen.
Abhängig von der angewählten Zelle auf...
02.11.2009 16:11:56
Thread-ID: 1113879
2 Beiträge
Einfügen von Bildern in Kommentar geht nicht mehr
Bildern

Hallo zusammen,
ich habe ein Problem mit folgenden Codezeilen:
For spalte = 4 To 13
'*********
If Cells(zeile, spalte).Hyperlinks.Count 1 Then 'Abfrage, ob Hyperlink vorhanden
GoTo weiter2
Else
Dim mycom As Object
On Error Resume Next
Pfad = ActiveWorkbook.P...
30.11.2009 15:34:28
Thread-ID: 1121036
2 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
VBA Zwischensumme einfügen kombiniert mit Links | Herbers Excel-Forum
Julia
Hallo zusammen.
ich habe folgendes Problem, für das ich ein Makro haben möchte:
In Spalte A habe ich von Zeile 3 bis 9 verschiedene Kriterien, die über einen Zeitablauf
(Zeile 2, Spalte B bis M) verschiedene Werte tragen können.
Dynamisch halte ich den Zeitablauf und die Kriterien...
31.01.2010 20:28:46
Thread-ID: 1134675
2 Beiträge
VBA Zwischensumme einfügen kombiniert mit Links | Herbers Excel-Forum
Julia
Hallo zusammen.
ich habe folgendes Problem, für das ich ein Makro haben möchte:
In Spalte A habe ich von Zeile 3 bis 9 verschiedene Kriterien, die über einen Zeitablauf
(Zeile 2, Spalte B bis M) verschiedene Werte tragen können.
Dynamisch halte ich den Zeitablauf und die Kriterien...
31.01.2010 20:32:30
Thread-ID: 1134677
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige