Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
532to536
532to536
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bild in Verzeichnis suchen und einfügen

Forumthread: Bild in Verzeichnis suchen und einfügen

Bild in Verzeichnis suchen und einfügen
16.12.2004 12:18:03
Chris26
Hallo,
wer weiß wie ich mit VBA Excel beibringe das es mir den Bildnamen der Zelle A1 nimmt, dann ein Verzeichnis mit allen Unterordnern durchsucht und falls es gefunden wird an Stelle c5 einfügt.
Den Code zum durchsuchen habe ich:

Private Sub CommandButton1_Click()
Dim i As Long
With Application.FileSearch
.LookIn = "Verzeichnis 1"
.LookIn = "Verzeichnis 2"
.SearchSubFolders = True
.Filename = Cells(1, 1)
If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Item(i)
Next i
End If
End With
End Sub

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bild in Verzeichnis suchen und einfügen
Uduuh
Hallo,
warum 2x .LookIn? Es wird nur das letztere Verzeichnis durchsucht.
Bild einfügen kannst du dir prima aufzeichnen.
Gruß aus'm Pott
Udo
AW: Bild in Verzeichnis suchen und einfügen
Chris26
Hallo,
Das ist weil ich verschiedene Verzeichnisse auf verschiedenen Laufwerken habe.
Ich habe ein Eingabeblatt auf dem der Anwender eine Nummer eingibt. Nun soll mir VBA diese Verzeichnisse nach dem Namen des Bildes durchsuchen. Mit aufzeichnen ist da nicht viel getan. Ich brauch dazu den VBA Code. Er zeigt mir ja den Pfad an mit der MSGbox in dem das Bild steht. Nur wie bekomme ich das Bild nun ins Excel importiert?
gruß
Anzeige
AW: Bild in Verzeichnis suchen und einfügen
Uduuh
Hallo,
Genau die Frage beantwortet dir der Rekorder.
activesheet.pictures.insert(.foundfiles(i))
Gruß aus'm Pott
Udo

Danke
Chris26
Vielen Dank. Diesen Befehl suchte ich. Hat mir wirklich sehr geholfen.
Gruß zurück
AW: Frage
Chris26
Hallo nochmal
wie kann ich jetzt noch den einfügeort und die größe bestimmen?
Anzeige
AW: Frage
U_
Hallo,
indem du die top- left- height- und width-Eigenschaft entsprechend einstellst.
AW: Frage
Chris
Hallo,
ja, das wollte ich auch machen, aber ich habe hier einen grundlegenen Fehler drin. Ich komme nicht weiter. 

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim höhe
Dim breite
Dim I As Long
With Application.FileSearch
.LookIn = "H:\FT13\BERICHTE\Artikeldatenbank"
.SearchSubFolders = True
.Filename = Cells(20, 19)
If .Execute() > 0 Then
For I = 1 To .FoundFiles.Count
MsgBox .FoundFiles.Item(I)
ActiveSheet.Pictures.Insert (.FoundFiles(I))
.Shapes(.FoundFiles(I)).Select
breite = 358 / Selection.ShapeRange.Width        'angabe wie breit das Bild sein soll
höhe = 242 / Selection.ShapeRange.Height         'angabe wie hoch das Bild sein soll
Selection.ShapeRange.ScaleWidth breite, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight höhe, msoFalse, msoScaleFromTopLeft
Next I
End If
End With
Application.ScreenUpdating = True
End Sub

gruß Christian
Anzeige
AW: Frage
u_
ActiveSheet.Pictures.Insert (.FoundFiles(I)).select
with selection
.height=40
.top=40
.left=Range("C2").left
.top=Range("C2").top
end with
;

Forumthreads zu verwandten Themen

Makro - Suchen und Einfügen von Werten + Berechnun
Werten

Hallo zusammen!
Ich bin mal wieder auf der Suche nach Hilfe und zwar bei folgendem Problem:
Ich habe 3 Produkte (X, Y und Z) bei denen die Nachfrage für mehrere Monate gegeben ist und sich daraus die Auslastung der Kapazität ergibt.
Das Makro soll in einem ersten Schritt die jeweils...
31.12.2009 14:00:55
Thread-ID: 1126236
2 Beiträge
Anzeige
Verweis-Formel oder Makro: 2xSuchen und Einfügen
Chris

Hallo zusammen,
bin auf der Suche nach einer Formel oder einem Makro, was Folgendes erledigt:
Suche in einem Tabellenblatt (Quelle) einmal in einer Spalte (B) nach einem Wert ("A") sowie in einer Zeile (3) nach einem Datum. Entspricht dieser Wert dem Wert in einer bestimmten Zelle (B3)...
04.05.2010 15:49:03
Thread-ID: 1155368
6 Beiträge
Tage eines Monats suchen und die Summe bilden
Eva-Maria

Hallo zusammen,
Vielleicht hat jemand zeit und kann mir helfen, trotz WM ;o)
Damit ich meine Gutscheine unter kontrolle habe benötige ich die Summe vom Monat Jan, Feb......
Ich trage das Datum ein an dem ich einen Gutschein verkaufe. Die Gutscheine sind für drei Möglichkeiten untert...
21.06.2010 23:28:45
Thread-ID: 1163292
15 Beiträge
Inhalt suchen und woanders einfügen
Karsten

Hallo...
ich glaube, was ich benötige, ist bestimmt nur mit großem Aufwand zu schaffen, aber ich frage dennoch:
In Tabelle2 sollen bestimmte Inhalte aus Tabelle1 aufgelistet werden. Die gesuchten Werte haben immer den ColorIndex = 7. Wenn ein Inhalt in einer Spalte gefunden wird, soll i...
19.11.2010 23:57:47
Thread-ID: 1187885
25 Beiträge
Über Inputbox namen suchen, kopieren und einfügen.
Hans

Hallo liebe Experten.
Ich bin immernoch auf der Suche nach einem Code.
Und zwar möchte ich in einem Tabellenblatt nach einem Namen suchen der z.B. in Spalte K steht.
Dabei darf es keine Rolle spielen ob er groß oder klein geschrieben ist.
Die Zeilen die diesen Namen enthalten s...
11.07.2011 22:11:15
Thread-ID: 1221723
9 Beiträge
letzte gefüllte Zeile suchen und danach einfügen
Sandra

Hallo zusammen,
tja ... ich schon wieder. Ohne Eure Hilfe bekomm ich das nicht hin.
Ich habe ein Makro was auf ein Projekt zugeschnitten ist. Das läuft auch ganz prima. Eigentlich läuft es sogar so gut, dass ich es jetzt standardisieren muss. Und was das angeht wird es in meinen Augen...
12.07.2011 14:40:13
Thread-ID: 1221853
6 Beiträge
Makro Bild einfügen und positionieren
anja.fender@gmx.de

ich habe eine excel datei bei der per klick 6 bilder in vorgeschriebenen Zellen eingefügt und positioniert werden sollen. Da ich kaum VBA kentnisse habe benötige ich dringend fachliche Hilfe.
20.04.2012 18:43:43
Thread-ID: 1260312
4 Beiträge
Kriterium suchen und Summe bilden
Lutz

Hallo Ihr fleißigen Helfer,
ich habe eine Frage bzgl. der Summenbildung nach einem bestimmten Suchkriterium.
Genauer:
Ich habe eine Tabelle in der in der ersten Spalte die Kategorie (A,B oder C) steht. Dann habe ich ein paar Spalten weiter mehrere Spalten die Kosten enthalten. Ich s...
23.08.2012 21:31:25
Thread-ID: 1276222
4 Beiträge
Inhalt suchen und unterhalb einfügen
Valeri

Hallo Profis,
bräuchte mal wieder Hilfe von euch!
ich mache mit Hilfe von Excel Wochenauswertungen.
Ich möchte z.B. einen Wert aus Tabelle1 Zelle F11 kopieren, dann in Tabelle2 wechseln und die Zelle mit dem Inhalt "KW-36" suchen, und den kopierten Wert (ohne Formate) aus Tabelle1 g...
10.09.2012 09:08:46
Thread-ID: 1277985
3 Beiträge
Anzeige
Suchen und Wert einfügen
Gunni

Hallo
ich habe ein Problem beim suchen in einer Zelle mit mehreren Werten und anschließend soll ein Wert aus einer Matrix ausgegeben werden, siehe Anhang, ich komme einfach nicht weiter!
https://www.herber.de/bbs/user/87390.xlsx
Gruß Gunni
23.09.2013 16:17:39
Thread-ID: 1331933
7 Beiträge
Anzeige
Suchen und mehrere Ergebnisse einfügen
M.

Hallo alle zusammen,
ich beiße mir an folgendem Problem momentan die Zähne aus, da ich bis jetzt nur relativ bescheidene VBA Kenntnisse habe. Ich hoffe ihr könnt mir weiter helfen!
Ich möchte eine Spalte einer Tabelle auf dem WorkSheet "Monat u. Tag" nach einem bestimmten Wert durchsuc...
24.09.2013 09:19:53
Thread-ID: 1331993
3 Beiträge
Problem beim Bild einfügen und an Zelle anpassen?
Kasimir

Hallo an alle!
Mit folgendem Makro füge ich Bilder in eine Exceldatei ein. Allerdings werden die Bilder nicht so ganz eingefügt, wie ich es mir vorgestellt habe. Das Bild soll sich beim Einfügen über das Makro so verhalten, als ob ich es nach dem Einfügen an einem Eckpunkt anfasse und in de...
16.01.2014 15:50:20
Thread-ID: 1345497
9 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Bilder in Excel suchen und einfügen mit VBA

Schritt-für-Schritt-Anleitung

  1. VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Modul hinzufügen: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Code einfügen: Kopiere den folgenden VBA-Code in das Modul:

    Private Sub CommandButton1_Click()
   Application.ScreenUpdating = False
   Dim höhe As Double
   Dim breite As Double
   Dim i As Long

   With Application.FileSearch
       .LookIn = "Verzeichnis 1" ' Passe den Pfad an
       .LookIn = "Verzeichnis 2" ' Passe den Pfad an
       .SearchSubFolders = True
       .Filename = Cells(1, 1) ' Bildname aus Zelle A1

       If .Execute() > 0 Then
           For i = 1 To .FoundFiles.Count
               ActiveSheet.Pictures.Insert (.FoundFiles(i)).Select
               With Selection
                   .Height = 40 ' Höhe festlegen
                   .Top = 40 ' Top-Position festlegen
                   .Left = Range("C2").Left ' Position in Zelle C2
               End With
           Next i
       End If
   End With

   Application.ScreenUpdating = True
End Sub

  4. Button hinzufügen: Füge einen Button zu deinem Excel-Blatt hinzu und verlinke ihn mit dem obigen Makro.

  5. Makro ausführen: Klicke auf den Button, um das Bild zu suchen und einzufügen.

Häufige Fehler und Lösungen

  • Fehler: Bild wird nicht gefunden

    • Lösung: Stelle sicher, dass der Bildname in Zelle A1 korrekt ist und dass die Verzeichnisse, die du durchsuchen möchtest, existieren.

  • Fehler: Bild wird nicht eingefügt

    • Lösung: Überprüfe den Code auf Syntaxfehler und stelle sicher, dass die angegebene Höhe und Breite korrekt sind.

Alternative Methoden

  • Bild einfügen über die Benutzeroberfläche: Du kannst auch manuell ein Bild einfügen, indem du auf Einfügen > Bilder klickst. Dies ist jedoch weniger automatisiert als die VBA-Methode.

  • Excel-Add-Ins nutzen: Es gibt verschiedene Add-Ins, die das Suchen und Einfügen von Bildern erleichtern können.

Praktische Beispiele

  • Beispiel 1: Wenn du den Bildnamen in Zelle A1 als "urlaub.jpg" festlegst, wird der Code alle Unterordner in "Verzeichnis 1" und "Verzeichnis 2" durchsuchen und das Bild in Zelle C2 einfügen.

  • Beispiel 2: Du kannst die Position und Größe des Bildes dynamisch anpassen, indem du die .Top, .Left, .Height und .Width Eigenschaften entsprechend änderst.

Tipps für Profis

  • Verwendung von Variablen: Du kannst die Pfade als Variablen definieren, um den Code flexibler zu gestalten.

  • Fehlerbehandlung einfügen: Implementiere On Error Resume Next, um Fehler zu behandeln, falls ein Bild nicht gefunden wird.

  • Bilder in einer Schleife einfügen: Du kannst die Schleife erweitern, um mehrere Bilder nacheinander einfügen zu lassen, ohne den Code erneut auszuführen.

FAQ: Häufige Fragen

1. Wie kann ich die Suchkriterien anpassen?
Du kannst die .Filename-Eigenschaft ändern, um nach anderen Bildformaten oder Namen zu suchen. Beispiel: .Filename = "*.jpg".

2. Kann ich die Größe des Bildes anpassen?
Ja, du kannst die Höhe und Breite im Code anpassen, indem du die entsprechenden Werte bei .Height und .Width änderst.

3. Wie kann ich sicherstellen, dass das Bild immer an der gleichen Stelle eingefügt wird?
Setze die .Top und .Left Eigenschaften auf die gewünschten Zellpositionen, um eine konsistente Platzierung zu gewährleisten.

4. Funktioniert dies auch in Excel 365?
Ja, der Code sollte in Excel 365 sowie in anderen Versionen von Excel funktionieren, die VBA unterstützen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige