Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
440to444
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
440to444
440to444
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

grafiken automatisch aus ordner

grafiken automatisch aus ordner
18.06.2004 12:36:32
petra
Hallo Lieblingsforum,
hab mal wieder ein kleines Problemchen...
Ich habe ein Arbeitsblatt, in spalte A stehen Artikelnummern (15000 Stück)
Ich habe einen Ordner mit Bildern, der Dateiname ist gleich der Artikelnummer.JPG
Ich möchte nun in Spalte B das entsprechende Bild angezeigt bekommen (als Thumbnail oder so, ich könnte die Bilder auch vorher alle kleiner Rechnen, wichtig ist nur das sie so groß sind wie die zelle, damit kein Chaos ausbricht)
Es sollte falls möglich eine einfache Lösung so wie ein "Hyperlink" sein,
allerdings soll er das Bild eben Direk anzeigen und nicht erst beim draufklicken öffnen) so was wie "wenn in meinem Bildordner ein entsprechendes Bild ist dann zeigs mir in dieser Zelle an"
es muss nicht zwangsläufig sein das alle Artikelnummern auch ein Bild besitzen)
es wäre seh nett wenn jemand ne Lösung hätte,
so etwas hat bestimmt schonmal jemand gemacht...
Grüße, wie immer ein klasse Forum

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: grafiken automatisch aus ordner
K.Rola
Hallo,
wenn du z.B. beim Öffnen der Datei alle 15.000 Bilder lädts, wirst du
vermutlich Trauer haben.
Überleg mal, ob es nicht möglich ist, das Laden der Bilder an bestimmte
Ereignisse zu binden, um die Bilder dann halt dynamisch zu laden.
Gruß K.Rola
AW: grafiken automatisch aus ordner
Veit
Moin, Moin,
also ich habe da mal was zusammengebaut (hat mich auch ein bisschen interessiert). Allerdings ist der Laufueitfaktor wie K.Rola schon schrieb echt nicht zu unterschätzen. Mein 3900 Testartikel brauchten 3min also wird das so ungefähr 12 min dauern. Kommt glaube ich auch ein bisschen auf die Maschine an, auf der das laufen soll.

Sub justalink()
With Sheets("Tabelle2")
.Cells(.Cells(1, 1).CurrentRegion.Rows.Count + 2, 1).Value = "Start"
.Cells(.Cells(1, 1).CurrentRegion.Rows.Count + 2, 2).Value = Now
.Cells(.Cells(1, 1).CurrentRegion.Rows.Count + 3, 1).Value = "Ende"
On Error Resume Next
.Shapes.SelectAll
Selection.Delete
Start_von_links = 82#
start_von_oben = 0#
Breite = 63.9
Höhe = 57.75
For i = 1 To .Cells(1, 1).CurrentRegion.Rows.Count
.Columns(2).ColumnWidth = 11.5
.Rows(i).RowHeight = 58.25
.Shapes.AddShape(msoShapeRectangle, Start_von_links, start_von_oben, 63.9, 57.5).Select
On Error Resume Next
Selection.ShapeRange.Fill.UserPicture "C:\test\" & .Cells(i, 1).Value & ".jpg"
ActiveSheet.Hyperlinks.Add Anchor:=Selection.ShapeRange.Item(1), Address:="C:\test\" & .Cells(i, 1).Value & ".jpg"
start_von_oben = start_von_oben + Höhe
Next i
.Cells(1, 1).Select
.Cells(.Cells(1, 1).CurrentRegion.Rows.Count + 3, 2).Value = Now
End With
End Sub

'Gruß
'Ein Veit
Anzeige
AW: grafiken automatisch aus ordner
18.06.2004 20:56:52
petra
Vielen lieben Dank ihr zwei,
das Makro funzt 1A ich habs erstmal mit 100 Bilder getestet das ist kein Problem...
bei dem großen Rutsch wirts wohl ne Weile dauern...
vielen Dank nochmal, echt ein spitzen Forum

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige