HERBERS Excel-Forum - die Beispiele

Thema: Grafikdateien suchen

Home

Gruppe

Datei

Problem

Die in Spalte B benannten Dateien (die Suffix *.jpg wird automatisch angefügt) sollen in einem vorgegebenen Verzeichnis gesucht werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Sub DateienFinden()
   Dim iRow As Integer, iRowL As Integer
   Dim sPathS As String, sPathT As String
   Dim sFileS As String, sFileT As String
   sPathS = Range("B2").Value
   sPathT = Range("C2").Value
   iRowL = Cells(Rows.Count, 1).End(xlUp).Row
   For iRow = 2 To iRowL
      sFileS = sPathS & "\" & Cells(iRow, 1).Value & ".jpg"
      sFileT = sPathT & "\" & Cells(iRow, 1).Value & ".jpg"
      If Dir(sFileS) = "" Then
         Cells(iRow, 1).Interior.ColorIndex = 6
      Else
         Name sFileS As sFileT
      End If
   Next iRow
End Sub

Beiträge aus dem Excel-Forum zu den Themen Datei und Suchen

Suchen und Löschen Suchen und Löschen
Excel/PDF Datei unter bestimmten Pfad abspeichern mehrere Wörter suchen VBA
Zeile nach Wert durchsuchen aus excel Worddatei nach Wert durchsuchen
Split-Funktion beim Einlesen TXT-Datei Datei löschen mit unterschiedlichen Zahlen im Name
Objekt mit XML Inhalt durchsuchen Datei löschen mit unterschiedlichen Zhalen im Name
geöffnete Worddatei und Word aus Excel beenden Spalte durchsuchen + IF
Höchsten Wert suchen Excel-Datei nicht im Projekt-Explorer
Suche nach jüngster Datei Begriffe in Zeile suchen
Inhalte von einer PDF suchen und den Text kopieren Mehrere Zellen in mehreren Dateien ersetzen
Zwei Bedingungen suchen Datei öffnen mit variablen im Namen
Vergleichen zweier Dateien und aktualisieren Datei langsam durch Formel
Dateien aus Unterordner öffnen Daten import aus txt--Datei
VBA Suchen, kopieren, einfügen Dateipfad öffnen mit VBA
Datei-Verknüpfungen Masterdatei erschaffen?
Mehrere Datenblätter als PDF-Datei ausgeben Makro bei Erstellen einer Datei aus einer Vorlage
Wert suchen und ab Wert Zahlen addieren Zusammenführung aus mehreren Dateien
Rechteck per Button in andere Datei einfügen. Alle Dateien in einem Unterordner öffnen
VBA: MsgBox: yes/no. Bei yes andere Datei öffnen Find statt Formel nach Wert suchen lassen
Mehrere txt Dateien einlesen in ein Programm VBA Datei als .txt speichern
Excel Datei in CSV Datei wandeln mit Extras aktierten Text in geöffnete Worddatei
Spalte in andere Dateien kopieren + zurückkopieren Aus einer CSV-Datei ein bestimmtes Layout erzeugen
Daten ausgew. WS in 2. Datei zusammenführen Per VBA aktuelle Datei in Autostart-Ordner
csv Dateien importieren Makrodatei als Software hochwertiger gestalten
manuelles Speichern bei schreibgeschützter Datei Daten aus geschlossener Datei in Zieldatei kopiere
Dateinamen per VBA vorgeben (Datum: Vormonat)