Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2024 11:05:44
datum automatisch ändern und einfügen
28.04.2024 10:11:19
Nur aktuelle und direkte Unterordnen durchsuchen
28.04.2024 10:01:02
Rang aus zwei Datumsspalten ermitteln
28.04.2024 09:02:18
Dateiordner auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1892to1896
1892to1896
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bildpfad im Ordner finden und ausgeben

Bildpfad im Ordner finden und ausgeben
17.08.2022 15:41:19
Lapos
Hallo Gemeinde,
ich benötige eure Hilfe bezüglich eines Dateipfad import in eine Spalte.
Ich habe einen Ordner mit 100erten Bildern.
In meiner ExcelDatei habe ich eine Spalte(A) mit Artikelnummern wie z.B. A-10910-100, A-10913-100, C-10923-4 und weiteren 300 Nummern.
In meinem Bilder Ordner habe ich Bilder mit Dateinamen wie z.B A10910HAAS2857Bl.jpg , A10913HAAS2857Bl , CBD10923HAAS2857Bl und weitere 300 Datein.
Ich benötige ein VBA Script das mir die Bildpfade zu den jeweiligen Artikelnummern raussucht und in Spalte(K) den Pfad zum Bild einträgt. Teile der Artikelnummern sind immer auch Teile des Dateinamens.
Ich Danke euch schon mal im vorraus.
LG Lapos

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bildpfad im Ordner finden und ausgeben
17.08.2022 15:57:50
Nepumuk
Hallo Lapos,
teste mal:

Option Explicit
Public Sub SearchPath()
Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Bilder\" ' Anpassen, Bachslash am Ende nicht löschen !!!
Dim lngRow As Long
Dim strFilename As String
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
strFilename = Dir$(FOLDER_PATH & Left$(Cells(lngRow, 1).Text, 1) & "*" & Split(Cells(lngRow, 1).Text, "-")(1) & "*.jpg")
If strFilename  vbNullString Then Cells(lngRow, 11).Value = FOLDER_PATH & strFilename
Next
End Sub
Gruß
Nepumuk
AW: Bildpfad im Ordner finden und ausgeben
17.08.2022 16:15:30
Lapos
Chapeau! an den findigen Programierer Nepumuk.
Das Funktioniert nahezu perfekt.
Mein Fehler war es zu erwähnen das es von einigen Artikeln mehrere Bilder gibt in denen die gleichen Teile der Artikelnummer vorkommen. Gibt es da eine möglichkeit mit den anderen Bildern auf die nächsten Spalten(L,M,N....) auszuweichen und alle Pfade darzustellen?
Anzeige
AW: Bildpfad im Ordner finden und ausgeben
17.08.2022 16:22:20
Nepumuk
Hallo,Hallo Lapos,
so?

Option Explicit
Public Sub SearchPath()
Const FOLDER_PATH As String = "G:\Eigene Dateien\Eigene Bilder\" ' Anpassen, Bachslash am Ende nicht löschen !!!
Dim lngRow As Long, lngColumn As Long
Dim strFilename As String
For lngRow = 2 To Cells(Rows.Count, 1).End(xlUp).Row
lngColumn = 11
strFilename = Dir$(FOLDER_PATH & Left$(Cells(lngRow, 1).Text, 1) & "*" & Split(Cells(lngRow, 1).Text, "-")(1) & "*.jpg")
Do Until strFilename = vbNullString
Cells(lngRow, lngColumn).Value = FOLDER_PATH & strFilename
lngColumn = lngColumn + 1
strFilename = Dir$
Loop
Next
End Sub
Gruß
Nepumuk
Anzeige
AW: Bildpfad im Ordner finden und ausgeben
17.08.2022 16:35:24
Lapos
Das trifft es voll und ganz.
Herzlichen Dank für deine Hilfe!!!!!
AW: Bildpfad im Ordner finden und ausgeben
20.08.2022 02:08:05
Lapos
Hallo nochmal,
könnte man als Folder Path auch einen FTP-Server angeben?
Und wenn ja wie?
Herzlichen Dank
AW: Bildpfad im Ordner finden und ausgeben
20.08.2022 12:10:06
Nepumuk
Hallo Lapos,
kann man wahrscheinlich, aber damit habe ich noch nie gearbeitet und auch keine Möglichkeit das zu testen.
Ich lass die Frage offen, vielleicht findet sich ja jemand.
Gruß
Nepumuk
AW: Bildpfad im Ordner finden und ausgeben
24.08.2022 16:05:53
Lapos
Hallo Nepumuk,
ich habe deinen Code in einem 2. Projekt eingefügt und habe dort ein Problem. Er kann die Dateinamen aus den Bilderordner nich zuordnen. Die Dateinamen haben auch eine andere Aufteilung z.B "116365_LALOND_023_AW22_Steel_Grey_425_001.jpg" in dem neuen Projekt steht die Artikelnummer ganz vorne an der Datei.
In dem neuen Projekt sind die Artikelnummern folgender maßen aufgebaut "Gesdf-116365" .
Ich habe mich schon etwas an deinem Code versucht. Bekomme es aber nicht hin. Es müsste ja meiner laienhaften Meinung nach dieses Stück Code angepasst werden. Richtig?

strFilename = Dir$(FOLDER_PATH & Left$(Cells(lngRow, 1).Text, 1) & "*" & Split(Cells(lngRow, 1).Text, "-")(1) & "*.jpg")
Vielleicht könntest du mir diese Zeile etwas näher erläutern damit ich den Code verstehen , und ihn zukünftig selbsständige anpassen kann.
Vielen Dank!
Anzeige
AW: Bildpfad im Ordner finden und ausgeben
24.08.2022 16:13:37
Nepumuk
Hallo Lapos,
versuch es mal so:

strFilename = Dir$(FOLDER_PATH & "*" & Split(Cells(lngRow, 1).Text, "_")(0) & "*.jpg")
Gruß
Nepumuk
AW: Bildpfad im Ordner finden und ausgeben
24.08.2022 16:27:00
Lapos
Leider funktioniert es nicht.
:-(
AW: Bildpfad im Ordner finden und ausgeben
24.08.2022 16:32:27
Nepumuk
Hallo Lapos,
zeig doch mal ein paar Artikelnummernbeispiele.
Gruß
Nepumuk
AW: Bildpfad im Ordner finden und ausgeben
24.08.2022 16:39:37
Lapos
Artikelnummern:
Gesdf-116753
Gesdf-120363
Gesdf-120364
Dateinamen der Bilder:
116753_WEE_029AW22_bddd_White_4251917479573_040.jpg
120363_NINJA_021AW22_Sage_4251917494751_040.jpg
120364_FUNNEL_013AW22_Lavender_4252010116366_040.jpg
AW: Bildpfad im Ordner finden und ausgeben
24.08.2022 16:45:33
Nepumuk
Hallo Lapos,
alle klar, dann so:

strFilename = Dir$(FOLDER_PATH & Split(Cells(lngRow, 1).Text, "-")(1) & "*.jpg")
Gruß
Nepumuk
Anzeige

305 Forumthreads zu ähnlichen Themen

An Zellengröße anpassen in Verbundenen Zellen
Kai

Hallo
Ich habe folgendes Problem.
Ich habe die Zellen D12-G23 verbunden.
Darin soll ein längerer Text stehen, welcher mit sverweis geholt wird.
Wenn ich die Zelle mit Zeilenumbruch formatiere, dann ist der Text zu lang (unten fehlt was).
Wenn ich den Text mit "An Zellengröße...
18.08.2008 17:09:00
Thread-ID: 1002694
3 Beiträge
Anzeige
Script um auf jeden Blatt eine Zelle zu markieren
Eddie

Hallo, ich habe eine eigentlich ganz einfache sache, aber irgendwie ruft wohl eher das WE in meinen Kopf :-)
Ich will eigentlich nur ein kleinen VBA Code ... der in jeden vorhandenen Tabellenblatt die Zelle A1 markiert
Vielleicht kann mir jemand da etwas sagen ?
gruß Eddie
22.08.2008 15:11:53
Thread-ID: 1003910
15 Beiträge
Hintergrundfärbung in UserForm Textbox in Zelle...
Josef

Guten Morgen!
wie ich Daten über Userform TextBoxen in die Zellen zurückschreibe, dafür habe ich bereits eine Lösung.
Is es jedoch möglich einen gefärbten Hintergrund einer TextBox in die dafür vorgesehene Zelle zu übertragen?
Wenn ja, wie würde dann bitte eine VBA Lösung lauten?
28.08.2008 06:57:47
Thread-ID: 1005257
10 Beiträge
Anzeige
Zellen ausblenden mit Wert 0 in Zelle
Ulrich

Hallo zusammen,
wie kann ich einem Tabellenblatt alle Zeilen ausblenden, bei denen in der ersten Zelle eine 0 (null) steht? Geht sowas überhaupt?
Viele Grüße,
Ulrich
01.09.2008 11:08:49
Thread-ID: 1006360
6 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Zelle mit heutigem Datum finden
Steffi

Hallo liebe Spezialisten,
hier im Forum hat man mir den unten stehenden Code gezeigt um im Bereich "F:F" die Zelle mit dem heutigen Datum zu finden. Das klappt soweit auch prima :-)
Wenn das Datum jedoch per Formel wie z.B. =HEUTE() erzeugt wurde, funktioniert der Code nicht.
Könnt...
05.09.2008 11:46:00
Thread-ID: 1007634
12 Beiträge
Bild in UserForm dynamisch aus Internet laden
Ben

hallo,
ich möchte in folgender Codezeile ein Bild aus dem Internet laden, statt von der Festplatte.
Wenn ich jedoch einfach C:\... durch eine "http" Resource ersetze bekomme ich eine Fehlermeldung.
UserForm.DYNAMISCH_PIC.Picture = LoadPicture("C:\temp\bild.jpg")
Weiss jemand w...
05.09.2008 12:55:00
Thread-ID: 1007652
2 Beiträge
gleich Zellen finden
Johannes

Hallo Excel-Kenner,
mein Sohn hatte gerade in der Schule bei der Bruchrechnung die Aufgabe vier verschiedene Brüche in aufsteigender Folge zu sortieren. Klarer Fall "kleinstes gemeinsames Vielfache" suchen und entsprechend erweitern und dann vergleichen.....
Aber für die Nenner mit 35,...
15.09.2008 15:29:00
Thread-ID: 1009809
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
14
9
2
5
5
11
1
2
4
5
4
2
2
1
8
7
9
3
3
6
15
2
5