Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1772to1776
1772to1776
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Prüfen ob Datei vorhanden ist

Forumthread: Prüfen ob Datei vorhanden ist

Prüfen ob Datei vorhanden ist
21.07.2020 11:47:41
Christian
Hallo,
ich habe mal eine Frage.
Ich habe einen Ordner D:\AZN mit den beiden Unterordnern Bilder und Videos
Dazu eine Datei, die u.a. folgende Spalte enthält:
https://www.herber.de/bbs/user/139196.xlsx
Gibt es eine Möglichkeit, zu überprüfen, ob es für jeden der 444 Texte mindestens eine Datei gibt, die denselben Namen hat?
Hätte mir das so vorgestellt, dass in Spalte M ja erscheint, wenn es eine Datei gibt und nein, wenn es keine Datei gibt.
hat da jemand von eich eine Idee?
benutze Excel 2019, kein Office 365
Danke
Christian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Prüfen ob Datei vorhanden ist
21.07.2020 12:44:10
Nepumuk
Hallo Christian,
in einem Standardmodul (Menüleiste im VBA-Editor - Einfügen - Modul):
Option Explicit

Private Declare PtrSafe Function SearchTreeForFile Lib "imagehlp.dll" ( _
    ByVal RootPath As String, _
    ByVal InputPathName As String, _
    ByVal OutputPathBuffer As String) As Long

Private Const MAX_PATH As Long = 260&
Private Const FOLDER_PATH As String = "G:\Eigene Dateien\" ' Anpassen !!!!!!!!!!!!!!!!

Public Function SearchFile(ByVal pvstrFileName As String) As String
    
    Dim strTemp As String * MAX_PATH
    Dim lngReturn As Long
    
    lngReturn = SearchTreeForFile(FOLDER_PATH, "*" & pvstrFileName & "*", strTemp)
    
    If lngReturn = 0 Then
        SearchFile = "Nein"
    Else
        SearchFile = "Ja"
    End If
End Function

In der Tabelle:
 KLM
13717 Keeping Up with the Kardashians - Kylie Jenner 10-65 Nein
24256 Modern Family - Ariel Winter 11-238 Nein
34135 Shameless - Emma Kenney 11-117 Nein

ZelleFormel
M1=SearchFile(K1)
M2=SearchFile(K2)
M3=SearchFile(K3)

Nicht vergessen im Code den Pfad des übergeordneten Ordners anpassen !!!
Gruß
Nepumuk
Anzeige
AW: Prüfen ob Datei vorhanden ist
21.07.2020 13:23:11
Christian
Hallo Nepumuk,
das sieht doch mal super aus, hat funktioniert. Vielen Dank.
Allerdings habe ich noch eine Verständnisfrage zu der Zeile
Private Const MAX_PATH As Long = 260&
verstehe ich das richtig, dass nur Texte mit maximal 260 Zeichen überprüft werden?
Gruß
Christian
Anzeige
AW: Prüfen ob Datei vorhanden ist
21.07.2020 13:27:47
Nepumuk
Hallo Christian,
das ist die maximale Pfadlänge welche die Variable strTemp aufnehmen kann. Spiel aber in deinem Fall keine keine Rolle da nur der Rückgabewert der Funktion lngReturn ausgewertet wird.
Gruß
Nepumuk
AW: Prüfen ob Datei vorhanden ist
21.07.2020 14:27:45
Christian
Hallo Nepumuk,
sorry dann muss ich nochmal nachbohren. Hintergrund ist, dass die Dateinamen sich in Zukunft auch ändern können, also auch länger werden können.
Welche Meldung würde ich denn bekommen, falls die Länge des Pfades wirklich mal 260 überschreiten sollte und reicht es dann einfach die Zahl zu erhöhen oder müsste ich noch mehr an dem Makro ändern?
Danke schonmal für die Mühe
Christian
Anzeige
AW: Prüfen ob Datei vorhanden ist
21.07.2020 14:32:34
Nepumuk
Hallo Christian,
da passiert nicht wenn die Dateinamen länger werden.
Gruß
Nepumuk
AW: Prüfen ob Datei vorhanden ist
21.07.2020 14:38:20
Christian
Hallo Nepumuk,
ja dann, danke für deine Mühe und deine Erklärungen. Hast mir jedenfalls sehr geholfen
Schönen Tag noch
Christian
AW: Prüfen ob Datei vorhanden ist
21.07.2020 12:54:16
volti
Hallo Christian,
hier noch eine Idee, wie Du das machen könntest. Allerdings fehlt mir hier die Info, ob die Dateien auch wirklich so heißen, wie sie in Deiner Liste stehen?!


[+][-]
 
Option Explicit

Sub Pruefen()
'Prüft, ob es Dateien zu den Einträgen gibt
 Dim sArr() As String, sDatei As String
 Dim sLWs As Variant
 Dim iZeile As Long, iGefunden As Long
 Dim iLW As Integer, iAnzFile As Integer

 sLWs = Array("D:\AZN\", "D:\AZN\Bilder\", "D:\AZN\Videos\")
 
'Alle Dateien in ein Array einlesen
 For iLW = 0 To UBound(sLWs)
  sDatei = Dir(sLWs(iLW) & "*.*")
  Do While sDatei <> ""
   ReDim Preserve sArr(iAnzFile)
   sArr(iAnzFile) = sDatei
   iAnzFile = iAnzFile + 1
   sDatei = Dir
  Loop
 Next iLW
 
'Jetzt checken, ob die in der Liste stehenden im Array sind
 On Error Resume Next
 With ActiveSheet
  For iZeile = 1 To .Cells(Rows.Count, "K").End(xlUp).Row
    iGefunden = 0
    iGefunden = Application.WorksheetFunction.Match(.Cells(iZeile, "K").Value & "*", sArr, 0)
    
    If iGefunden > 0 Then
     .Cells(iZeile, "M").Value = "ja"
    Else
     .Cells(iZeile, "M").Value = "nein"
    End If
  
  Next iZeile
 End With

End Sub
viele Grüße aus Freigericht
Karl-Heinz

Anzeige
AW: Prüfen ob Datei vorhanden ist
21.07.2020 13:20:32
Christian
Hallo Karl-Heinz,
ja da muss ich mich entschuldigen, dass ich das nicht genauer ausgeführt habe.
Die Dateien im Ordner Videos heißen alle so wie in der Excel Tabelle, haben lediglich noch die Dateiendung .mp4
Die Bilder können .jpg oder .png Dateien sein und pro Film existieren bis zu 280 Bilder, d.h. nach dem Text der in der Tabelle steht, folgt bei Bildern noch eine laufende Nummer und dann die Dateiendung.
Sollte sich doch aber denke ich lösen lassen, in dem man nach Dateien sucht, deren Namen mit den Texten in der Excel Tabelle beginnen.
Was mir allerdings an euren Makros auffällt, bei dem anderen Makro hab ich einfach den Pfad D:\AZN\ angegeben und das Makro hat von sich aus die Unterordner einbezogen. Dein Ansatz gibt beide Unterordner separat an.
Gruß
Christian
Anzeige

Forumthreads zu verwandten Themen

Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Letzen wert in Zeile(nicht Spalte)
hary

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...
28.08.2008 21:25:00
Thread-ID: 1005592
5 Beiträge
von Datum bis Datum suchen und Werte in die Spalte
Datum

Hallo liebe Excel-Könner,
ich habe folgendes Problem und finde keine Lösung.
Ich habe in Spalte A von 2006 bis heute Datum stehen, über eine UserForm möche ich in zwei TextBoxen von bis Datum eintragen und in Spalte B in diesem Bereich den WertX.
Ich hoffe Ihr könnt mir helfen!
...
07.09.2008 09:31:20
Thread-ID: 1007931
8 Beiträge
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Anzeige
Werte löschen beim Eintrag in andere Spalte ?
Selma

Hallo Leute,
wie kann ich folgendes ab Zeile 5 für aktive Zeile über VBA erreichen:
1. Wird der Wert in aktive Zeile in Spalte H eingetragen, dann sollen die Werte in Zellen der Spalte D und E gelöscht werden.
2. Wird der Wert in aktive Zeile in Splate D oder E eingetragen, dann sol...
12.10.2008 17:05:00
Thread-ID: 1015877
5 Beiträge
TextBox Werte in Spalte Q ersetzen ?
Selma

Hallo Leute,
ich habe eine Frage zu UserForm. Beim Klick auf CommandButton1 sollen die Zahlen aus TextBox1 mit Werten in Spalte Q ab Zeile 12 ersetzt werden. Dies soll nur dann erfolgen, wenn in TextBox1 die Zahlen stehen bzw. der TextBox gefüllt ist.
Ersetzt sollen nur die vorhandene W...
13.10.2008 15:42:00
Thread-ID: 1016083
3 Beiträge
Wenn Eintrag in ListBoxspalte dann Eintrag in lbl
Josef

Guten Morgen!
In eine mehrspaltige ListBox werden eine Menge Datensätze eingelesen.
Ich möchte nun folgendes erreichen:
Wenn ich einen Datensatz in der ListBox markiere oder anklicke und wenn jetzt z.B. in der 2.Spalte in der ListBox ein "J" steht, dann soll ein vordefinierter Text...
29.10.2008 07:57:42
Thread-ID: 1020127
3 Beiträge
Wert mit Enter in Liste & speichern
adrian

Hallo, bin noch Anfänger & habe noch ein kleines Problem =/
Habe eine Textbox als Userform und möchte diese in dieser etwas mit der "Entertaste" eingeben, was dann in einer Zelle auf dem Sheet gespeichert wird.
Die Abfrage des gespeicherten Werts funktioniert schon mal =)
nur da...
31.10.2008 11:29:11
Thread-ID: 1020826
2 Beiträge
Anzeige
Werte, die in liste 2 mal vorkommen ausblenden!
adrian

Hi,
habe mir folgendes einfach überlegt, nur leider funktioniert es nicht ganz so wie ich will.
Möchte eigentlich nur Werte die in einer Liste 2mal vorkommen ausblenden!
Die ListBox bezieht Ihre Werte von 3 Sheets, wobei es vorkommen kann, das dadurch öfters mal die gleichen Werte a...
07.11.2008 18:23:00
Thread-ID: 1022778
26 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wert in Spalte suchen
rebecca

Hallo,
ich möchte 2 Spalten vergleichen und wenn der Wert in einer Spalte steht, soll die Zelle ausgegeben werden.
Also: Spalte A 1,2,3 Spalte B 2,5,6 Dann Spalte C 2, alle anderen leer.
Welche Formel ist geeignet und wie muss ich sie aufbauen?
Dankeschön.
Gruss
...
24.11.2008 15:38:00
Thread-ID: 1027331
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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