Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
24.04.2024 17:19:09
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel soll Existenz von Dateien pruefen

Excel soll Existenz von Dateien pruefen
18.01.2006 09:27:15
Dateien
Hallo,
Ich habe eine Excel Tabelle, die sich aus einer Datenbank befuellt.
In Spalte A sind die Artikelnummern
Nun soll sie in einem bestimmten Verzeichniss nachschauen, ob es jeweils die Datei "Spalte A(Artikelnummer)".jpg gibt und mir meinetwegen in Spalte B einen Rueckgabewert liefern z.B. j/n
Es muss nur geprueft werden, ob die jeweilige Datei vorhanden ist.
Please help.
Matthias

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel soll Existenz von Dateien pruefen
18.01.2006 09:47:14
Dateien
Hallo Matthias!
Zum Beispiel mit einer kleinen Funktion!
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Function FileExist(Datei As String, Optional Verzeichnis As String, Optional Extension As String) As Boolean
Dim strFile As String
If Verzeichnis <> vbNullString Then
  If Right(Verzeichnis, 1) <> "\" Then Verzeichnis = Verzeichnis & "\"
End If
If Extension <> vbNullString Then
  strFile = Verzeichnis & Datei & "." & Extension
Else
  strFile = Verzeichnis & Datei
End If

FileExist = Dir(strFile) <> ""
End Function


Und in der Tabelle nutzt du das so!
Tabelle1
 ABC
1testWAHR 
2values.txtWAHR 
3F:\Temp\test.jpgWAHR 
4   
5F:\Temp\valueFALSCH
Formeln der Tabelle
B1 : =fileexist(A1;"F:\Temp";"jpg")
B2 : =fileexist(A2;"F:\Temp")
B3 : =fileexist(A3)
C5 : =fileexist(B5;A5;"txt")
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Excel soll Existenz von Dateien pruefen
18.01.2006 14:41:09
Dateien
Hey das sieht ja schonmal suuper aus.
Nur wie bekomm ich die Funktion in Excel rein?
Ich muss doch dieses ganze programmierte Zeugs da irgendwie in Excle implementieren oder?
Wo und Wie ?
Please help
MfG
Matthias
AW: Excel soll Existenz von Dateien pruefen
18.01.2006 15:35:05
Dateien
Hallo Matthias!
Einfach den Code in ein allgemeines Modul eifügen!
&gt Alt+F11 &gt "Einfügen" &gt "Modul" &gt Code einfügen &gt Fertig!
'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

Anzeige
AW: Excel soll Existenz von Dateien pruefen
18.01.2006 17:03:44
Dateien
WAHUUUU,
Jeaa das klappt perfekt. Danke Danke Danke
Gruß
Matthias

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige