Anzeige

Anzeige

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Vorheriger Thread

Vorheriger Thread

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Nächster Thread

Nächster Thread

Vorwärts blättern

Anzeige

Inhaltsverzeichnis

Bilder aus Ordner in Zelle

Forumthread: Bilder aus Ordner in Zelle
5 Beiträge zu diesem Forumthread
Anzeige
Threads zu ähnlichen Themen

Forumthread: Bilder aus Ordner in Zelle

Bilder aus Ordner in Zelle

07.03.2025 11:51:15

Marcus Wuttke

Hallo und schönen guten Morgen,
ich hoffe es geht euch allen gut, das Frühstück war lecker und Ihr könnt mir jetzt gestärkt bei meinem Problem helfen.

Ich möchte gerne aus einem Ordner von Laufwerk "G" Bilder in eine Excel-Datei, Register 2 "Willkommen" in eine Zelle laden.

Ich treffe hierbei eine Auswahl aus einer Liste und der Pfad zum Bild erscheint in Zelle "AP5". Dieser Pfad aus "AP5", hier z.B.:
"G:\Allgemein\Winter\Bilder\Bild_0040809.jpg" soll im Bereich "O34:V44" als Bild passend angezeigt werden.
Wenn sich der Pfad dann ändert soll das alte Bild gelöscht und das neue Bild eingefügt werden.

Hat jemand eine Idee?

Grüße, Marcus

Anzeige

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Bilder aus Ordner in Zelle

07.03.2025 12:59:54

{Boris}
AW: Bilder aus Ordner in Zelle

07.03.2025 20:26:49

daniel
AW: Bilder aus Ordner in Zelle

07.03.2025 20:43:28

Marcus
AW: Bilder aus Ordner in Zelle

07.03.2025 14:54:15

Marcus Wuttke
AW: Bilder aus Ordner in Zelle

07.03.2025 16:08:00

Marcus Wuttke

Anzeige

AW: Bilder aus Ordner in Zelle

07.03.2025 12:59:54

{Boris}

Hi,

hab mal die KI hier gefragt mit:

Ich möchte Bilder, die einzeln in einem Ordner liegen, in ein Arbeitsblatt laden und als Bild in Zelle einfügen. Die Pfade zu den Bildern stehen in Spalte E ab E2. Die Bilder sollen in Spalte D erscheinen. Wie geht das mit VBA?

Folgende Antwort (nicht getestet, da grad nur am Handy):

Sub BilderInZellenEinfügen()

    Dim ws As Worksheet

    Dim rng As Range, cell As Range

    Dim BildPfad As String

    Dim shp As Shape

    Dim ZielZelle As Range

    Dim BildLinks As Double, BildOben As Double, BildBreite As Double, BildHöhe As Double

    

    ' Arbeitsblatt setzen (aktives Blatt oder explizit benennen)

    Set ws = ActiveSheet

    

    ' Bereich mit den Bildpfaden in Spalte E bestimmen (ab E2)

    Set rng = ws.Range("E2:E" & ws.Cells(ws.Rows.Count, 5).End(xlUp).Row)

    

    ' Alle bestehenden Bilder löschen (optional)

    For Each shp In ws.Shapes

        If Not Intersect(shp.TopLeftCell, ws.Range("D:D")) Is Nothing Then

            shp.Delete

        End If

    Next shp

    

    ' Schleife durch alle Zellen mit Bildpfaden

    For Each cell In rng

        BildPfad = cell.Value

        

        ' Prüfen, ob die Datei existiert

        If Dir(BildPfad) > "" Then

            ' Zielzelle in Spalte D (gleiche Zeile)

            Set ZielZelle = ws.Cells(cell.Row, 4)

            

            ' Bild einfügen

            Set shp = ws.Pictures.Insert(BildPfad)

            

            ' Position & Größe setzen (Zelle ausfüllen)

            With shp

                .LockAspectRatio = msoFalse ' Seitenverhältnis nicht beibehalten

                .Left = ZielZelle.Left

                .Top = ZielZelle.Top

                .Width = ZielZelle.Width

                .Height = ZielZelle.Height

            End With

        End If

    Next cell

    

    MsgBox "Bilder wurden erfolgreich eingefügt!", vbInformation

End Sub

VG Boris

Anzeige

AW: Bilder aus Ordner in Zelle

07.03.2025 20:26:49

daniel

Hi
erstmal manuell folgendes machen (einmalig notwendig)

1. ActiveX-Steuerlement "Bild" anlegen und über die gewünschten Zellen platzieren
2. Element anklicken und über Kontextmenü - Eigenschaften folgende Einstellungen machen (Entwurfsmodul muss aktiv sein):
PictureAlignment: 2 (Center)
PictureSizeMode: 3 (Zoom) (Zoom: Bild wird unverzerrt verkleinert, ggf graue Randbereiche, Strech: Bild wird auf Elementgröße gebracht und dabei ggf verzerrt)
Backcolor: Randfarbe (Relevant bei Zoom) oder Backstyle auf Transparent (kein grauer Rand bei Zoom)
BorderColor (naja, selbsterklärend)

wenn du das Steuerelement eingerichtet hast, kannst du das Bild per einfachem Code zuweisen:

Sheets("Tabelle1").Image1.Picture LoadPicture(Range("AP5").value)

den Code kannst du dann einem Button zuweisen oder über das Change-Event oder Calculate-Event automatisch auslösen lassen (je nachdem wie der Wert in AP5 zustande kommt)

Gruß Daniel

Anzeige

AW: Bilder aus Ordner in Zelle

07.03.2025 20:43:28

Marcus

Hallo Daniel,
das ist mal eine ganz andere Rangehensweise, vielen Dank, werde ich auf jeden Fall mal ausprobieren.
Die Datei ist aber auf meinem Arbeitsrechner, aber jetzt ist Wochenende.
Grüße, Marcus

AW: Bilder aus Ordner in Zelle

07.03.2025 14:54:15

Marcus Wuttke

Hallo Boris,

vielen Dank, leider nicht das gewünschte Resultat.

Hab auch schon ein wenig mit KI probiert, allerdings bis jetzt kaum was Brauchbares rausbekommen.

Allenfalls kann man en paar Schnipsel aus dem Code gebrauchen. :)

Ich bleib aber dran und finde noch die Lösung...

Anzeige

AW: Bilder aus Ordner in Zelle

07.03.2025 16:08:00

Marcus Wuttke

Habe jetzt selbst mal ChatGPT ausgenutzt, war eine gute Idee, und einfach meine Anfrage hier dort reinkopiert. Das kam dabei raus und klappt
sogar nach ein paar wenigen Anpassungen.

Sub BildEinfügen()

    Dim BildPfad As String

    Dim Bild As Picture

    Dim Zelle As Range

    Dim ZellenBreite As Double

    Dim ZellenHoehe As Double

    Dim SkalierungsFaktor As Double

    

    ' Den Pfad aus Zelle AP5 holen

    BildPfad = Range("AP5").Value

    

    ' Überprüfen, ob der Pfad gültig ist

    If Dir(BildPfad) > "" Then

        ' Löschen des alten Bildes, wenn vorhanden

        If Not LastImage Is Nothing Then

            LastImage.Delete

        End If

        

        ' Das Bild in den Bereich O34:V44 einfügen

        Set Zelle = Range("O34:V44")

        ZellenBreite = Zelle.Width

        ZellenHoehe = Zelle.Height

        

        SkalierungsFaktor = 1

        

        ' Bild einfügen und passend skalieren

        Set Bild = ActiveSheet.Pictures.Insert(BildPfad)

        With Bild

            ' Bildgröße anpassen

            .ShapeRange.LockAspectRatio = msoFalse

            .Top = Zelle.Top

            .Left = Zelle.Left

            .Width = ZellenBreite - SkalierungsFaktor

            .Height = ZellenHoehe - SkalierungsFaktor

        End With

        

        ' Das eingefügte Bild speichern, um es beim nächsten Mal löschen zu können

        Set LastImage = Bild

    Else

        MsgBox "Leider kein Bild vorhanden!", vbExclamation

    End If

End Sub

und damit alles von allein läuft:

Private Sub Worksheet_Change(ByVal Target As Range)

        Call BildEinfügen

End Sub

Euch allen ein schönes Wochenende.... :)

Anzeige

Forumthreads zu verwandten Themen

Viele Bilder in Tabelle einfügen

Hallo,

habe schon des öfteren Beiträge aus dem Forum verwendet um Makros zu basteln. Muss jetzt das erste Mal selber eine Frage stellen.
Ich habe mit meinem Halbwissen + Google + Makroaufzeichnen ein Makro gebastelt das meine Anforderungen so halb erfüllt.
Es geht darum, Bilder (so...

07.12.2023 16:24:33

Thread-ID: 1956904

Anzeige

Bild löschen bevor neues geladen wird

Hey All,
Ich lade mir über vorgegebenen Pfad ein Bild in meine Tabelle, was auch klappt.
jetzt würde ich aber gerne, wenn ich ein anderes Bild laden möchte, das er mir vorher das alte oder die geladenen Bilder löscht
bevor das neue Bild geladen wird. Dabei sollen aber nicht die Buttons g...

06.07.2025 23:41:10

Thread-ID: 2015497

Masterliste aus anderen Datei befüllen

Hallo an alle,
vorab, ich habe leider so gut wie gar keine VBA Erfahrung jedoch benötige ich hier bitte eure Hilfe.
Bisher habe ich, bei kleineren Aufgaben, immer quer durchs Internet gesucht und Code kopiert und angepasst oder den Makrorecorder benutzt.
Dies geht jetzt aber nicht...

01.05.2021 11:21:31

Thread-ID: 1828937

Anzeige

Bilder aus ext. Quelle einf. - komprimieren, lokal speichern

Ich habe folgendes Problem und bin mir sicher, für die eine oder den anderen unter euch Profis ist's ein Klacks.
(Suche mir hier seit Beginn der 2000er immer wieder Rat. Doch nun ist es das erste Mal, dass ich eine Anfrage stellen muss.)
--
Ich habe eine Excel-Liste mit beinahe 12'000 Z...

30.01.2025 19:44:35

Thread-ID: 2004262

Projekt Bilder einfügen

Guten Tag liebes Forum,
derzeit versuche ich mich VBA mir ein wenig Arbeit zu erleichtern, da ich demnächst sehr viele Daten in Listen aktualisieren/eintragen muss. Da ich aber ehrlich gesagt kaum Ahnung von VBA habe, bin ich derzeit eine CopyCat. Nur leider komme ich derzeit trotz stundenl...

23.11.2018 15:01:36

Thread-ID: 1659184

Anzeige

Auswertung einer Probandenbefragung

Hallo!
Ich hab echt einen Knoten im Hirn, aber ihr könnt mir sicher weiterhelfen. Es geht um einen psychologischen Fragebogen. Den Probanden werden Bilder gezeigt und sie sollen sagen welche Emotion die Person auf dem Foto zeigt. Das wird von den Leuten die die Fragen stellen in einer Excellis...

14.05.2023 11:18:52

Thread-ID: 1930882

Bilder einfügen

Hallo zusammen,
da der Trubel erst später zum Kaffe los geht beschäftige ich mich noch ein bissle mit Excel.
Folgende Frage:
In einer Excel Tabelle ermittle ich per Sverweis div. Daten aus einer ccsv Datei, das funktioniert soweit.
Nun sind in einem fest definierten Verzeichnis...

24.12.2010 17:24:21

Thread-ID: 1192752

Bilder einfügen

Hallo Excel Experten
Ich würde für die Arbeit gerne eine Excel Arbeitsmappe erstellen die bei dem erstellen von Arbeitslisten helfen sollte. (Reinigungslisten, Repaeraturen, ...)
Und zwar geht es darum mehrere Bilder gleichzeitig in einer bestimmten (auswählbaren Größe) untereinander in...

18.02.2017 20:35:31

Thread-ID: 1542465

Excel soll zählen, wieviele Bilder im Ordner sind

Hallo
Ich bin recht neu unterwegs was Excel angeht. Grundsätzlich komme ich ganz gut zurecht,
jetzt allerdings gehts hier gerade nicht weiter.
Folgende Situation:
Ich habe eine ganz bestimmte Ordnerstruktur.
Im Hauptsverzeichnis befindet sich die .xlsx datei, die gerade zur...

14.07.2015 23:59:10

Thread-ID: 1436405

Bild aus Excel-Zelle in Userform laden

Guten Tag
Mal wieder stehe ich vor einem unlösbaren Problem und hoffe auf eure Hilfe. Und zwar gehts diesmal um folgendes Vorhaben.
Eine UserForm zeigt in verschiedenen Textfeldern die Zellen-Inhalte einer Excel-Datei
Beispiel:
Textbox1.Text = Cell(40,1).Value
usw.
Nun m...

29.08.2011 14:18:51

Thread-ID: 1227892

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

Anzeige

Anzeige

Live-Forum - Die aktuellen Beiträge

Datum

Titel

14.05.2026 13:31:09

Zeichen ausblenden

14.05.2026 09:50:42

Makro für MacOs

13.05.2026 19:14:18

Gleichheitszeichen

13.05.2026 14:24:56

VBA Projekt Passwort automatisch eingeben

13.05.2026 08:49:41

Reale Berechnung ohne Nachkommawerte

Keine passende Antwort im Forumarchiv gefunden?

Stelle deine Frage im Live-Forum