Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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 :)

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

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

300 Forumthreads zu ähnlichen 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
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
Anzeige
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
Zeilen einfügen - Formel übernehmen
Frank

Hallo Zusammen und einen schönen Rest-Sonntag!!!
Irgendwie stehe ich auf dem Schlauch. In Spalte A und F stehen Formeln. Jeweils in A1 und F1 eingegeben und dann runter kopiert. Nun kann es erforderlich werden, dass ich irgendwo eine Zeile einfügen muß und dann ist in der neuen Zeile keine...
12.07.2009 20:27:29
Thread-ID: 1088023
7 Beiträge
Bilder automatisch einfügen in Zelle
SimonB

Hallo zusammen,
ich habe ein Problem in Excel, welches ich auch durch diverse VBA-Makros aus dem Netz nicht lösen kann:
Ich möchte in der Spalte A eines Tabellenblattes über ein Makro ein JPG einfügen lassen, welches durch eine immer 6-stellige Artikelnummer in der Spalte H des selben B...
30.09.2009 12:57:23
Thread-ID: 1106400
8 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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
8
10
7
8
2
6
7
1
1
4
3
1
3
7
7
4
1
1
7
3
2
1
2