Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
796to800
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
796to800
796to800
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bilder laden in tabelle

Bilder laden in tabelle
07.09.2006 20:39:50
achim
Hallo Excel Leute
Wer kann unterstützen bzw helfen?
habe in einer tabelle Sheet("Artikel").Range("B2") den teil des namen einer
bildatei stehen z.b. TN-2000.
nun soll wenn in b2 TN-2000 steht das entprechende bild TN-2000.jpg in der Zelle H2 erscheinen.(die bilder befinden sich im gleichem ordner wie die excel datei)
nun ist es so das man ja nicht nur ein artikel hat sondern ganz viele.
d.h. von b2:bis b100 und fortlaufend auch bilder
danke
achim h.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder laden in tabelle
07.09.2006 20:43:16
olaf
wie heißen denn die anderen Bilder ?
TN-2001.jpg
TN-2002.jpg
...
oder wie?
AW: Bilder laden in tabelle
07.09.2006 21:03:29
achim
hallo olaf
danke für die rüchmeldung
Nee haben wie du siehst verschiedene namen.
DR-2000
TN-3060
gruß
achim h.
AW: Bilder laden in tabelle
07.09.2006 21:24:07
olaf
Dann denke ich, hast Du sicher viel Tipp-Arbeit vor Dir ;-)
AW: Bilder laden in tabelle
07.09.2006 22:59:23
Josef
Hallo Achim!
Das geht z.B. so.
Sub bilder()
Dim rng As Range
Dim objPic As Object

With Sheets("Tabelle1")
  For Each rng In .Range("B1:B" & .Cells(Rows.Count, 2).End(xlUp).Row)
    If Dir(ThisWorkbook.Path & "\" & rng.Text & ".jpg") <> "" Then
      Set objPic = .Pictures.Insert(ThisWorkbook.Path & "\" & rng.Text & ".jpg")
      With objPic
        .Left = rng.Offset(0, 6).Left
        .Top = rng.Top
      End With
      Set objPic = Nothing
    End If
  Next
End With

End Sub


Gruß Sepp

Anzeige
Danke für die intensive hilfe, klappt
08.09.2006 08:48:51
achim
Hallo Josef
danke für die rückmeldung
genau das was ich brauche und es funzt super
danke für die mithilfe
gruß
achim h.

178 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige