Bilder mit Excel VBA in Zelle einfügen (und formatieren)

Подписаться 26 тыс.

Просмотров 20 тыс.

50% 1

In unsere Excel-Datei können wir anhand der aktiven Zelle automatisiert Bilder aus einem Ordner an einer bestimmten Position über ein VBA-Makro einfügen. Dabei können wir nicht nur die Position, sondern auch die Größer der Bilder verändern.
Downloadlink Teppiche.xlsm + Bilddateien: vbatrainer.mykajabi.com/Bilde...
Kostenloser VBA-Einstiegskurs: vbatrainer.mykajabi.com/offer...
VBA-Coaching: www.vbatrainer.de/
Zum Blogbeitrag: vbatrainer.de/bilder-einfuege...
________
LINKS zu den Excel VBA Grundlagenvideos
► Anfänger-Tutorial: www.vbatrainer.de/anfaenger-t...
► If-Anweisung: vbatrainer.de/if-anweisung/
________
Timestamps
0:00 Ziel des Videos
0:19 Ausgangslage in Excel und Einfügen der Bildpfade
1:33 Vorbereitungen in VBA und Einfügen der Prozedur
1:56 Auslesen der Bildpfade
2:57 Überprüfung ob das Bild tatsächlich vorhanden ist
3:45 Bild einfügen & Testlauf
4:57 Position und Größe des Bildes verändern
7:42 Löschen bereits vorhandener Bilder
9:06 Makro ausführen bei Klick in die Tabelle

Опубликовано:

21 июл 2024

Ссылка:

Скачать:

Готовим ссылку...

Добавить в:

Мой плейлист

Посмотреть позже

Комментарии : 64

@patrikroos6416 2 года назад

Wenn nur jeder das Thema so gut erklären könnte. Da können sich die meisten Dozenten noch was abschauen. Freue mich auf weitere Videos!

@KaiWeissmann 2 года назад

Hallo Patrik, vielen Dank für deinen Kommentar. Da macht das Produzieren weiterer Videos direkt noch mehr Spaß :) LG Kai

@Marvball 2 года назад

Deine Videos sind wirklich sehr toll. Umfang des Inhalts passt immer perfekt und ist mega verständlich erklärt 👍 Herzlichen Dank dafür

@KaiWeissmann 2 года назад

Hallo Marvball, freut mich, dass dir meine Videos gefallen :) LG Kai

@mattri483 2 года назад

Vielen Dank für das Video und die Zeit, die du immer ins Detail in die Erklärungen investierst. 👍

@KaiWeissmann 2 года назад

Hallo Matt, sehr gerne. Dir vielen Dank für deinen anhaltenden Support!

@SwissMarkus Год назад

wie immer super erklärt .. eine wahre Freude deine Tutorials👍

@KaiWeissmann Год назад

Vielen Dank!

@robertwalter3454 2 года назад

Wirklich tolle Präsentation. Danke. Weiter so.

@KaiWeissmann 2 года назад

Freut mich. Danke dir für dein Feedback :)

@fabbobby2547 2 года назад

Sehr starkes Video, hast mir immens weitergeholfen! Danke Dir

@KaiWeissmann 2 года назад

Hey FaB Bobby! Danke für dein Feedback und dein Abo! Lg, Kai

@kolavithonduraski5031 2 года назад

echt cool 👍😊

@KaiWeissmann 2 года назад

Hallo Kolavit, freut mich, dass es dir gefällt :)

@ThegrayBall 2 года назад

Herzlichen Dank fürs Video! Genau das Bilder einfügen kann ich gerade gut gebrauchen. Wie schaffst du es bloß dir diese ganzen Befehle zu merken ^^".

@KaiWeissmann 2 года назад

Hey, freut mich, dass du das Video gebrauchen kannst. Da ich täglich ziemlich viel Zeit mit der Programmierung verbringe, kommt das von alleine. Außerdem bereite ich die Videos auch gründlich vor :) LG Kai

@dariuschfamili4576 3 месяца назад

Tolles Video!... Wie bekommt man das Bild via VBA den in der Zelle fixiert abhängig von der Position... Zum weiteren sortieren und filtern?

@TorstenUeberbach 2 года назад

Hallo Kai, ich bin vor ein paar Tagen auf deinen Kanal aufmerksam geworden. Echt Super!! Einige Sachen konnte ich auch schon umsetzen.

@KaiWeissmann 2 года назад

Hey Torsten! Danke für dein Feedback! Es freut mich, dass du einiges schon umsetzen konntest! Lg, Kai

@topfundus1093 Год назад

Danke, gut gemacht! Zur Lösung über die Fehlerbehandlung - ich nutze sie nur als letzte, gewaltsame Option - gibt es vielleicht noch eine andere gute Lösung: Über eine Schleife die Namen vorhandener Shapes ermitteln lassen, wird der jeweilige Shapename gefunden, dann diesen löschen + Austieg aus der Schleife.

@denniszefferer3509 Год назад

Hallo Kai! Großes Lob und vielen Dank an dieser Stelle für diese Leistung, du bist nach meinem Empfinden der mit Abstand kompetenteste und begabteste Content-Ersteller für VBA auf RU-vid. fehlendes Wissen in folgender Thematik, deshalb Vorschlag (vielmehr Bitte) an dich RU-vid-Tutorials zu folgenden Themen zu produzieren: 1. Wie ist es mit dem umgekehrten Weg? Also Bilder, Graphiken, Formeln aus dem Formeleditor, die in Excel mittels VBA erstellt wurden, dann als Bilder in einem Ordner zu speichern 2. Excel Formeleditor (graphische Darstellung mathematischer Formeln) über VBA steuern Es würde mich (und vielleicht auch viele andere), sehr freuen, wenn Du eines deiner nächsten Videos diesen Themen widmen könntest Vielen Dank und mach weiter so! Dennis Zefferer

@marcogartner3308 2 года назад

Hallo Kai, ich hoffe, Du hast die Weihnachtsfeiertage gut überstanden :-D Mal wieder ein richtig tolles Video, das Du da auf die Beine gestellt hast. Könnte ich dann auch theoretisch das Bild in einem Word Serienbrief ohne weiteres verknüpfen, oder geht das nicht so ohne weiteres ? Liebe Grüße Maco

@user-kr2be5nw3m Год назад

Hall Kai, danke für die vielen super erklärenden Videos! Wie kann ich gescheit Protraitformal-Bilder positionieren ?

@miladalhabib5220 Год назад

super erklärt, vielen lieben Dank. ich habe noch eine Frage, wenn ich diese Excel Tabelle mit jemandem, der kein Zugriff auf meinem Desktop bzw. auf meinem Rechner hat, funktioniert noch die Tabelle mit den Bildern?!

@mstichling 11 месяцев назад

Super Video. Vielen Dank. Besteht die Möglichkeit die Bilder nicht aus einem Pfad auszulesen, sondern in die Datei einzubinden (z.B. in einem ausgeblendeten Blatt)?

@Andy.1303 2 года назад

Hallo Kai, Deine Videos sind sehr gut gemacht. Ich würde das Blatt gerne mit einem Blattschutz versehen, aber ich bekomme dann immer eine Fehlermeldung. Die Sub läuft dann nicht mehr , With tb_Inventar.Pictures.Insert(Bildpfad) wird als Fehler angezeigt. Woran liegt das ?

@aligarept 6 месяцев назад

Hallo ich finde deine Videos super. Eine Frage gibt es auch die Möglichkeit Bilder in eine Zelle der Tabelle zu packen so das diese mit gefiltert werden? Lg

@farmerandy568 Год назад

Hallo Kai. Genau das habe ich gesucht. Allerdings soll er bei mir ein Bild einfügen, wenn in der Zelle ein bestimmte Zahl erscheint. Dann soll er aus den verschiedenen Bildern genau das dazu gehörige auswählen. Hast du da einen Tip?

@ingostoter5490 2 месяца назад

hallo kai, wie schaffe ich es per combobox in der userform mit abhängigkeit, ein foto anzeigen zulassen wenn die adresse befindet sich sich in einer intiligente tabelle. Foto ist entweder auf ein nas-server oder internet(https). gruß

@renesfoodpassion Год назад

Ich hab folgendes problem. ich frage gezielt nur eine Zelle ab und lese dort den Pfad des Bildes aus, wenn vorhanden. Der Pfad wird über Wenn abgleich mit sverweis aus einer anderen Datei abgeholt, folglich steht immer ein code in der Zelle. und da das kein Pfad ist, macht das scheinbar Probleme. Ich weiß aber nicht was ich einfügen könnte, dass das Makro in diesem Fall einfach stoppt oder noch besser garnicht startet...

@ponchoponcho2779 2 года назад

Hey hey mega Video danke 🙏🏼 ich habe jedoch das Problem das wenn ich es testen will wie du auf dem Video mit f5 dass er mir dann im Fenster mehrere Tabellen anzeigt die ich auswählen kann anstatt die Bilddatei wie bei dir hmee kann mir jemand helfen wäre megaaa

@ponchoponcho2779 2 года назад

Bei F5 im VBA Modul sagt er mir Dateiname oder Nummer falsch 😑

@xzxf3q 2 года назад

Hallo, ich möchte aus einem Ordner mit Bildern in Excel Bilder anzeigen lassen nach Namen. EXCEL: F4/Bildangezeigt I4/name aus sverweis Ordner:x:\JPG ame-jpg

@ninnick-nick Год назад

👌👌👌👍🏾

@KaiWeissmann Год назад

👌

@andreasbiesenbach9947 2 года назад

Danke für das Video... gabs heute ne Nachtschicht? Schöne Feiertage!

@KaiWeissmann 2 года назад

Gerne :) Ich wünsch dir ebenfalls schöne und besinnliche Feiertage!

@Do_not_judge_me 10 месяцев назад

Guten Abend, Kurze frage würde es bei Selection change nicht genügen nur das macro mit call Bild_Einfügen aufzurufen ? Da ja in dem Macro das bild ja immer entfernt wird. Und sollte in der Spalte G kein Link vorhanden sein, dann wird auch keines angezeigt. Zeitstempel : 10:44 Danke schonmal vorab für die Antwort 😊

@KaiWeissmann 10 месяцев назад

Danke für deine Frage. Das Makro würde dann auch immer durchlaufen werden, wenn nicht in die Tabelle geklickt wird und eben kein Bild anzeigen. Grundsätzlich sollte das zu keinen Problemen führen, kann aber bei umfangreicheren Codes die Anwendung verlangsamen. Ich hoffe das hilft dir weiter.

@michaelsorel5911 2 года назад

Das ist echt Super, aber ich würde gerne den Ort also die Bildquelleauch in der Exceldatei haben. Habe nur 50 Bilder bzw. ARTIKEL

@konradnowak598 2 года назад

Hallo Kai, vielen Dank für dieses Beispiel. Ich habe mir eine Datenbank für Vögel damit angelegt. Meine Bitte: Wenn man ausserhalb der Einträge in der Tabelle klickt, kommt ein Laufzeitfehler. Kann man den irgendwie abfangen? Danke

@KaiWeissmann 2 года назад

Hallo Konrad, freut mich, dass dir das Beispiel gefällt. Der Laufzeitfehler sollte nicht auftreten, wenn du im SelectionChange-Event die Databodyrange angibst. LG Kai

@konradnowak598 2 года назад

@@KaiWeissmann Hallo Kai, danke für die schnelle Antwort! Du hattest natürlich recht. Ich habe die Tabelle benannt und im Databodyrange eingetragen. Alles Bestens!!!

@KaiWeissmann 2 года назад

@@konradnowak598 super, dass du das Problem so lösen konntest :)

@PascalIttermann Год назад

Hi - Supper Video. Ich hab ein Makro das in jede Zeile ein Bild mit AddPicure einfügt. Eine Frage, wenn auf dem Bildschirm eine Skalierung drauf ist (rechtsklick auf Desktop "Anzeigeneinstellung") wie kann man verhindern das Irgendwann die Bilder außerhalb der Zellen sind. Visuell werden diese immer ein Stück weiter runtergeschoben. Wenn man aber die Werte (Positionen) abfragt scheinen die Bilder in der richtigen Zelle zu sein.. Ist die Skalierung auf 100%, passiert das nicht. Kennst Du das oder hast dazu auch ein Video, das ich noch nicht gefunden habe?

@KaiWeissmann Год назад

Vielleicht hilft dir dazu mein Video zum Thema Bild vergrößern bei klick: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-eW2bZLMuuog.html Lg, Kal

@MrTerrier23 6 месяцев назад

Hallo Kai. Erstmals möchte ich dir danken für all deine gut erklärten Videos. Hab schon sehr viele sinnvoll nutzen können. Momentan steh ich vor einem kleinen Problem und hoffe, dass du es vl lösen kannst. Ich möchte eine Userform erstellen, indem der User selbst ein Bild von seinem Computer einfügen kann. ZB gibt er seinen Namen und Alter ein und daneben ein Bild von sich selbst. Gibt es dafür auch einen speziellen Code dafür? Ich wäre für Tipps und Ratschläge sehr erfreut. Danke schon mal und weiterhin viel Spaß und Erfolg mit deinen Videos. Freu mich auf ein widersehen/hören!

@kaigallenkamp7666 2 года назад

Hallo Kai and User wie kann ich zu diesem Code noch zusätzlich was einfügen bzw. im Code sagen wenn kein Bild da dann bitte immer das Bild 9999.jpg anzeigen. Wäre mega wenn Du mir da helfen könntest. Wünsche noch einen mega schönen Sonntag LG aus dem Sonigen 🤔 Frankfurt Kai

@KaiWeissmann 2 года назад

Hallo Kai, dazu am besten einen Else-Teil in die If-Bedingung packen. Falls du dazu Fragen hast, schau dir gerne mein Video an: vbatrainer.de/if-anweisung/ LG Kai

@kochenmitlustundliebe9889 9 месяцев назад

Ja Hallo Kai 😊 Danke für deine Tips und Tricks! nach dem Code den du da geschrieben hast, funktioniert es. Doch wenn ich keine Bilddatei hinterlegt habe, schreit VBA Laufzeit 1004 die insert-eigenschaft des Pictures-Objektes kann nicht zugeordnet werden. Wie wäre das problem zu lösen? Danke für dein Tipp im voraus!

@KaiWeissmann 9 месяцев назад

Bei Timestamp 2:57 legen wir genau dafür die If-Bedingung mit der Dir Funktion an. Gehe deinen Code am besten per F8 Schritt für Schritt durch, um zu sehen, wo genau der Fehler auftritt. ich hoffe das hilft dir weiter.

@kochenmitlustundliebe9889 9 месяцев назад

Der Fehler tritt auf, wenn ich (F8) zu dieser Zeile Komme "With AlleMieter.Pictures.Insert(Bildpfad)" in Spalte (bei mir) BS ist kein Foto gespeichert, dann kommt die fehler Meldung, Mein Code bzw Deiner ;-) Sub Bild_Einfuegen() 'Bild loeschen falls vorhanden On Error Resume Next AlleMieter.Shapes("Büro").Delete On Error GoTo 0 Dim Bildpfad As String 'Bildpfad auslesen Bildpfad = AlleMieter.Range("BS" & ActiveCell.Row).Value 'Existiert die Bilddatei? If Dir(Bildpfad) "" Then 'Bild einfügen With AlleMieter.Pictures.Insert(Bildpfad) .Height = 230 .Name = "Büro" End With With AlleMieter.Shapes("Büro") .Top = AlleMieter.Range("H1").Top .Left = AlleMieter.Range("H1").Left End With End If End Sub ist ein Foto hinterlegt, läuft es fehlerfrei @@KaiWeissmann

@KaiWeissmann 9 месяцев назад

D.h. du springst also im Fall wenn kein Bild vorhanden ist an der IF-Abfrage vorbei doch in den "Bild Vorhanden Teil". Somit stimmt etwas nicht mit der If Bedingung. Hast du Zwischen den beiden "" ein Leerzeichen? Versuche das einmal damit zu lösen.

@kochenmitlustundliebe9889 9 месяцев назад

Das " " hat leider nicht funktioniert. Ich habe herraus gefunden, wenn in der Zelle (BS) kein Pfad hinterlegt ist gibt es die Fehlermeldung. Ist in der Zelle (BS) der Pfad z.b. H:\...xx.jpg hinterlegt und dort gibt es kein Bild, gibt es auch keine Fehlermeldung. Wie kann ich nun die leere Zelle mit einbeziehen, wenn diese leer belibt, so das es keine Fehlermeldung mehr gibt? 🙏 @@KaiWeissmann

@Joker1SH 2 года назад

Klasse, wie alle bisher angesehenen Videos ist das wieder einfach super präsentiert. Ob ich eine Frage beantwortet haben könnte? So wie in Minute 03:30 (if dir...) kann ich den Pfad anzeigen lassen, aber beim " if dir.. " gibt es eine Fehlermeldung ( strPfad = ActiveWorkbook.Path & "\Mitglieder-Liste.xlsx" ). Da ich auf einem Onedrive-Verzeichnis arbeite, wird das ein ellenlanger kryptischer Name, der die Funktion zum Absturz bringt. Vewende ich den im Explorer sichtbaren Klarnamen mit Verzeichnis, funktioniert es. Und auch ein "Workbooks.Open" funktioniert mit dem kryptisch erstellten Namen, nur eben " if dir.. " nicht. Ob es da eine Lösung gibt? Vielen Dank im Voraus.

@robertwalter3454 2 года назад

Wenn ich kurz aushelfen darf: in Cloudspeichern wie OneDrive ist der Slash "/" das Trennzeichen für Pfade. Versuch mal statt dem Backslash "\" den APPLICATION.PATHSEPARATOR, der sollte passend zum Speicherort das richtige Trennzeichen ausgeben.

@KaiWeissmann 2 года назад

Danke Robert :)

@LebenWerden Год назад

Wie macht man das mit Bildern, wenn ich die Makrodatei jemanden senden möchte?

@KaiWeissmann Год назад

Z.B. Bilder mit dazu senden und das Verzeichnis auslesen aus einer bestimmten Zelle. ich hoffe das hilft dir weiter.

@quirinsch 9 месяцев назад

Sehr gutes Video, wie mache ich das gleiche mit einem Text?

@KaiWeissmann 7 месяцев назад

Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-Kl9vcB3ejgk.html Ich wünsche dir für deine Projekte alles Gute.

@LuFendtFan 9 месяцев назад

Hallo, Ich habe Bereits Sub BarcodeSuchen in der Tabelle und möchte jetzt das noch hinzufügen. Bei mir funktioniert es soweit, bis auf das er die Bilder löscht. Kann mir hier jemand weiterhelfen? Es funktioniert aber auch so nicht bei mir, wo ist der Fehler? Danke im Voraus

@KaiWeissmann 8 месяцев назад

Vielleicht hilf dir mein Video zum Thema Barcode Scannen und Bild anzeigen weiter: ru-vid.com/video/%D0%B2%D0%B8%D0%B4%D0%B5%D0%BE-SemfcDpJCsg.html