Bilder in einem Ordner auslesen und sortieren

Florian · 2017-08-09T16:26:57+00:00

Hallo Community, ich benötige Hilfe bei einem Excel Makro. Ich möchte dass alle Bild-Daten aus einem Ordner ausgelesen werden (Bild Name). Der Link der zu dem Ordnerführt soll in einer Msgbox eingegeben werden oder gleich über diese ausgewählt werden. Ich habe mehrere Bilder die zu einem Artikel gehören, das Hauptbild ist nur nach unserer Nummer benannt und alle fortlaufenden Bilder dann nach Nummer.01 /02 /03 .. bis maximal .10 benannt, diese sollen dann auch gleich nebeneinander dargestellt werden. Vorgehensweise wäre also folgende: 1. Makro über Schaltfläche aktivieren 2. Pfad zum Ordner in MsgBox eingeben 3. Bilddaten im Ordner werden ausgelesen 4. Zusammengehörende Bilder werden Nebeneinander dargestellt (bis max 10 Bilder, wenn es mehr sind die anderen nicht aufnehmen) 5. Usw. 6. End Sub ;) Schon mal Danke für die Hilfe!

Hallo,
erst mal ein großes Kompliment, dass ist das erste Forum in dem ich tatsächlich mal eine Antwort auf eine Frage/Beitrag bekomme.
Ich habe das Ganze vielleicht etwas verwirrend erklärt.
Ich habe einen Ordner in dem sich Bilddaten zu unseren Artikel befinden, zu manchen Artikeln gibt es nur ein Bild, zu den meisten gibt es mehrer Bilder.
Ich möchte nun das alle Bildnamen in einer Exceltabelle aufgelistet werden.
Diese Makro Habe ich schon:

Sub Auslesen()
Dim fs As Object
Dim fVerz As Object
Dim fDatei As Object
Dim fdateien As Object
Dim strDat As String
Dim Zeile As Integer
Set fs = CreateObject("scripting.FileSystemObject")
Set fVerz = fs.getFolder("Link/zum/Ordner")
Set fdateien = fVerz.Files
For Each fDatei In fdateien
If InStr(fDatei, "") > 0 Then
Zeile = Zeile + 1
Cells(Zeile, 1) = fDatei.Name
End If
Next fDatei
End Sub

Das passt aber nicht so gut.
Es wäre gut wenn ich den Link zu dem Ordner in z.B. in Zelle C2 eintrage und das Makro dies dann erkennt und die Bildnamen ausließt, noch besser wäre wenn ich den Link zum Ordner direkt in einer MsgBox eintrage.
Und dann kommt der 2te Schritt:
Die Bildnamen werden in der Tabelle fortlaufen untereinander Dargestellt und zusätzlich werden Bilder die zum selben Artikel gehören in den Spalten neben dem Hauptbild dargestellt.
Ich versuch gerade mal schnell eine Excel Liste hochzuladen dort kann man in Tabellenblatt 2 sehen wie ich mir das Ergebnis Vorstelle.
Was man zusätlich noch beachten sollte ist, dass es zu manchen Artikeln mehr als 10 Bilder gibt ich benötige aber dann nur die Bildnamen der ersten 10.
Vorab schon mal vielen lieben Dank für die Hilfe!

Hallo Florian,
...folgenden Code auf Basis Deiner Bsp-Datei:

Sub a()
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets("Beispiel")
Dim Dlg As FileDialog, Dic As Object
Dim Pfad$, Datei$, Rw&, Sp&, Idx$
Application.ScreenUpdating = False
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Bitte Bilder-Pfad wählen"
.AllowMultiSelect = False
If .Show  -1 Then
MsgBox "Vorgang abgebrochen", vbInformation
Exit Sub
Else: Pfad = .SelectedItems(1) & "\"
End If
End With
Set Dic = CreateObject("Scripting.Dictionary")
Datei = Dir(Pfad & "*.*", vbNormal)
With Ws
Do While Datei  ""
If LCase(Right(Datei, 3)) = "jpg" Or LCase(Right(Datei, 3)) = _
"png" Then
Idx = Left(Datei, InStr(1, Datei, ".") - 1)
Rw = .Cells(.Rows.Count, 8).End(xlUp).Offset(1, 0).Row
'Hauptdatei
If InStrRev(Datei, ".", Len(Datei) - 4) = 0 Then
If Not Dic.exists(Idx) Then
Dic.Add Idx, Rw
.Cells(Rw, 8) = Datei
.Cells(.Rows.Count, 6).End(xlUp).Offset(1, 0) = Datei
Else:
.Cells(Dic(Idx), 8) = Datei
.Cells(.Rows.Count, 6).End(xlUp).Offset(1, 0) = Datei
End If
'Folgedatei bis #10
Else:
Sp = CLng(Mid(Datei, InStr(1, Datei, ".") + 1, 2))
If Sp

Pfad zum Ordner in MsgBox eingeben
Warum eine Inputbox (!), wenn man gleich einen Pfad-Auswahl-Dialog aufrufen kann; ist jetzt so im Code.
Noch eines: In Deiner Bsp-Datei listest Du in F:F alle Dateien auf, in H:H die Hauptdateien (ohne die zusätzliche Nummerierung), d.h. wenn Du neben den Hauptdateien die Folgedateien bis inkl. Nummerierung 10 willst, muss bis Spalte R eingetragen werden (ist in meinem Code auch so).
Gib Bescheid!
LG
Michael

Bilder in einem Ordner auslesen und sortieren

Forumthread: Bilder in einem Ordner auslesen und sortieren

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial