Bilder zu URLs anzeigen

Hallo zusammen,
ich suche nach einem einfachen Makro für meine persönliche Mappe, um Bilder aus den URLs anzeigen zu lassen.
Mein Tabellen-Aufbau:
A2 bis A27: Artikelnummer
B2 bis A27: Buchstabe
C2 bis A27: URL (URL setzt sich zusammen aus Text sowie Eingabe in den Spalten A und B)
D2 bis A27: hier sollen die Bilder zu den URLs aus der Spalte C angezeigt werden
Im Internet habe ich eine Lösungsvariante über Funktionen gefunden:
https://www.computerbase.de/forum/threads/internet-bild-link-in-excel-anzeigen.1215653/
Code lautet:


Function InsertPicFromURL(URL As String) As String
With ActiveSheet.Pictures.Insert(URL)
.Top = Application.Caller.Top + 1
.Left = Application.Caller.Left + 1
.Height = Application.Caller.Height - 2
End With
InsertPicFromURL = ""
End Function

Über diese Formel ab D2 lassen sich die Bilder tatsächlich anzeigen:


=PEROSONAL.XLSB!nsertPicFromURL(C2)

Was mir bei dieser Lösung nicht gefällt:
Wenn ich neue Daten in A und B eingebe bzw. einkopiere, dann verändern sich meine zusammengesetzten Hyperlinks in der Spalte C, aber in der Spalte D werden keine neuen Bilder automatisch erzeugt. Dafür muss man die Zellen D2 bis D27 mit Enter abschließen oder jeweils F2 drücken. Das ist umständlich.
Man könnte mit diesem Makro das Blatt neu berechnen: ActiveSheet.Cells.Dirty
aber diese Prozedur beansprucht viel Leistung und dauert recht lange oder es ist diese Funktion, die Prozesse verlangsamt.
Darum die Frage: Gibt es eine bessere Lösung, die nicht soviel Rechnerleistung beansprucht? Nach einer Eingabe/Einkopieren neuer Daten in A und B sollen neue Bilder in D in Abhängigkeit der URLs in C angezeigt werden, vorher müssen aber die alten Bilder gelöscht werden.
Mir ist es egal, ob die Bilder interaktiv zu den URLs angezeigt werden oder erst nach Ausführen des Makros.
Viele Grüße
Kisska

Hallo Franz,
zunächst vielen Dank für deine Zeit und die Lösungsvorschläge.
Ich habe deine "Textdatei mit den Makros für die persönliche Makroarbeitsmappe" getestet, jedoch werden alle Werte aus der Spalte B 1:1 kopiert statt nur diejenigen, wo die Bilder tatsächlich existieren.
Ich habe inzwischen meine Tabelle um 2 Spalten nach rechts verschoben und mehr Zeilen hinzugefügt für die Anzeige der Bilder gleich für 7 Artikel (diese können potentiell jeweils Bilder A bis Z haben).
Hierfür verwende ich folgende Makros:
1) Makro um Bilder zu finden ohne Funktionen


'Quelle: https://superuser.com/questions/940861/how-can-i-display-a-url-as-an-image-in-an-excel-cell
Option Explicit
Dim rng As Range
Dim cell As Range
Dim Filename As String
Sub URLPictureInsert()
Dim theShape As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
'Alle vorhandenden Bilder l?schen
For Each theShape In ActiveSheet.Shapes
theShape.Delete
Next theShape
Set rng = ActiveSheet.Range("E2:E183")   '  0 Then   '

2) Nachdem die Bilder nach dem ersten Makro angezeigt sind, kopiere ich die jeweiligen Buchstaben maniell in die Spalte G ein.
3) Makro für Transponieren


Sub TransponierenOhneLeere()
'Artikel1
With ActiveSheet
.Range("G2:G27").Copy
.Range("J1").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J1:AI1").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
'Artikel2
With ActiveSheet
.Range("G28:G53").Copy
.Range("J2").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J2:AI2").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
'Artikel3
With ActiveSheet
.Range("G54:G79").Copy
.Range("J3").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J3:AI3").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
'Artikel4
With ActiveSheet
.Range("G80:G105").Copy
.Range("J4").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J4:AI4").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
'Artikel5
With ActiveSheet
.Range("G106:G131").Copy
.Range("J5").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J5:AI5").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
'Artikel6
With ActiveSheet
.Range("G132:G157").Copy
.Range("J6").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J6:AI6").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
'Artikel7
With ActiveSheet
.Range("G158:G183").Copy
.Range("J7").PasteSpecial Paste:=xlValues, Transpose:=True
.Range("J7:AI7").SpecialCells(xlCellTypeBlanks).Delete shift:=xlToLeft
End With
End Sub

Ich wünschte, ich könnte auf den manuellen Schritt 2 verzichten und alles in einem Rutsch machen.
Kannst du mir dabei helfen?
VG, Kisska

Forumthread: Bilder zu URLs anzeigen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Bilder aus URLs in Excel anzeigen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)