Office: (Office 2016) Nach Bildern im Unterordner suchen

Helfe beim Thema Nach Bildern im Unterordner suchen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Guten Morgen, ich habe folgenden Code, um nach Bildern mit bestimmtem Namen in einem Ordner zu suchen. Das funktioniert aber nur, wenn ich die... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Kurzpeter, 13. November 2019.

  1. Nach Bildern im Unterordner suchen


    Guten Morgen,

    ich habe folgenden Code, um nach Bildern mit bestimmtem Namen in einem Ordner zu suchen. Das funktioniert aber nur, wenn ich die Bilder direkt in dem Ordner des Workbooks habe. Wie kann ich den Code so verändern, dass er auch in Unterordnern sucht?
    Code:

    Sub Bildeinfuegen()
    Dim rngZiel As Range
    Dim strPfad As String
    Dim strBild As String

    strPfad = ThisWorkbook.Path & ""
    strBild = Dir(strPfad & "*" & Range("B29").Value & "*.jpg")
    If strBild = "" Then
    MsgBox "Es wurde kein Bild gefunden."
    Else
    Set rngZiel = Range("B26").MergeArea
    Application.ScreenUpdating = False
    With ActiveSheet.Pictures.Insert(strPfad & strBild).ShapeRange
    .LockAspectRatio = True
    .Top = rngZiel.Top
    .Left = rngZiel.Left
    .Height = Application.CentimetersToPoints(8)
    End With
    Application.ScreenUpdating = True
    End If
    End Sub
     
    Kurzpeter, 13. November 2019
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    das kannst du z.B. so lösen:

    Code:
    Option Explicit
    Dim strOrdner As String
    
    Sub Bildeinfuegen()
        Dim rngZiel As Range
        Dim strPfad As String
        Dim strBild As String
        strPfad = ThisWorkbook.Path & ""
        strBild = Dir(strPfad & "*" & Range("B29").Value & "*.jpg")
        If strBild = "" Then
            OrdnerAuswahl strPfad & "\", Range("B29").Value & ".jpg"
        Else
            strOrdner = strPfad
        End If
        If strOrdner <> "" Then
            Set rngZiel = Range("B26").MergeArea
            Application.ScreenUpdating = False
            With ActiveSheet.Pictures.Insert(strOrdner & "\" & Range("B29").Value & ".jpg").ShapeRange
                .LockAspectRatio = True
                .Top = rngZiel.Top
                .Left = rngZiel.Left
                .Height = Application.CentimetersToPoints(8)
            End With
            Application.ScreenUpdating = True
        Else
            MsgBox "Bild " & Range("B29") & " nicht gefunden"
        End If
    End Sub
    
    Sub OrdnerAuswahl(varSuchordner, strMappe As String)
       Dim fso As Object
       Dim Ordner
       Dim UnterOrdner
       Dim lngUnterOrdner As Long
       Dim blnVorhanden As Boolean
       Dim objFile As Object
       Dim strName As String
       Dim intSpalte As Integer
       intSpalte = 2
       Set fso = CreateObject("Scripting.FileSystemObject")
       Set Ordner = fso.getfolder(varSuchordner)
       On Error Resume Next
       lngUnterOrdner = Ordner.subfolders.Count
       If lngUnterOrdner <> 0 Then blnVorhanden = True
       On Error GoTo 0
       If blnVorhanden Then
            For Each UnterOrdner In Ordner.subfolders
                If Dir(UnterOrdner & "\" & strMappe) <> "" Then
                    strOrdner = UnterOrdner & "\"
                    Exit For
                End If
                OrdnerAuswahl UnterOrdner, strMappe
            Next
            blnVorhanden = False
       End If
       Set fso = Nothing
       Set Ordner = Nothing
    End Sub
    Bis später,
    Karin
     
  3. Vielen Dank für die schnelle Lösung.
    Gruß
    Kurzpeter
     
    Kurzpeter, 15. November 2019
    #3
Thema:

Nach Bildern im Unterordner suchen

Die Seite wird geladen...
  1. Nach Bildern im Unterordner suchen - Similar Threads - Bildern Unterordner

  2. Bilder in Zelle mit Autofilter mitverschieben!

    in Microsoft Excel Hilfe
    Bilder in Zelle mit Autofilter mitverschieben!: Hallo Excel Kollegen! Ich habe folgendes Problem. Ich füge per vba ein PDF Symbol als .jpg Datei ein. Soweit funktioniert alles. Wenn ich aber diese Tabelle mit dem Autofilter filtere bleibt das...
  3. Bild in Kopfzeile schützen

    in Microsoft Word Hilfe
    Bild in Kopfzeile schützen: Hi Leute, Ich bräuchte bitte mal euere Hilfe. Ich nun einige Zeit erfolglos versucht, eine Word Vorlage zu erstellen, wo die Kopfzeile & Fusszeile schreibgeschützt ist. Damit keiner mehr etwas...
  4. Comboox Bilder

    in Microsoft Excel Hilfe
    Comboox Bilder: Hallo Leute Habe in der Userform eine Combobox eingebaut. Wenn ich auf die Combobox klicke erscheint das gewünschte Bild. Wie kann ich ein zweites Bild aufrufen? Also es darf immer nur ein Bild...
  5. "dynamisches Bild" in Excel

    in Microsoft Excel Hilfe
    "dynamisches Bild" in Excel: Hallo Leute, ich verzweifele bald, ich versuche seit heute morgen es hinzubekommen (hab eine Beispieltabelle erzeugt auf die ich mich jetzt direkt beziehe), dass ich in der A2 Zelle per Dropdown...
  6. Eingefügtes Bild in einer Tabelle verschiebt den Text

    in Microsoft Word Hilfe
    Eingefügtes Bild in einer Tabelle verschiebt den Text: Guten Abend, ich habe eine Tabelle, die aus einem einzigen Feld besteht und in diesem Feld steht ein Zahl. Die Tabelle hat das Layout, dass der Text "zentriert ausgerichtet" ist. Die Zahl...
  7. Bilder einfügen

    in Microsoft Access Hilfe
    Bilder einfügen: Hallo, ich habe mir aus einer Vorlage, mit viel Mühe und herum experimentieren, etwas zusammen gebastelt Bin soweit auch mit dem Werk zufrieden (für jemanden die keine Ahnung hat) ist es okay,...
  8. Gruppieren von Formen und Bildern in Word 2016

    in Microsoft Word Hilfe
    Gruppieren von Formen und Bildern in Word 2016: Hallo! Ich versuche gerade in Word 2016 ein Bild mit einer Form zu gruppieren. Ich möchte, dass das rote Viereck mit dem Bild gruppiert wird, so dass sie zusammen gehören. Mit Strg+Mausklick...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden