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

Mehrere Dateien auf Vorhandensein prüfen

Forumthread: Mehrere Dateien auf Vorhandensein prüfen

Mehrere Dateien auf Vorhandensein prüfen
14.06.2004 13:22:26
franz
Hallo,
habe folgendes Problem recherchiert, aber nichts gefunden.
Folgendes: Wie kann ich über Makro folgendes veranlassen:
Suche einem Verzeichnis nach 7 verschiedenen Excel-Datein auf
Vorhandensein (z.B. Test1.xls, Text2.xls, Test3.xls, usw.).
Wenn eine oder mehere nicht vorhanden sind, schreibe eine
Msgbox über die fehlenden Dateien.
Gruss
franz
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Dateien auf Vorhandensein prüfen
Ulf
if dir("C:\deinOrdner\test1.xls")= "" then msgbox "Test1.xls fehlt!"
usw.
Ulf
AW: Mehrere Dateien auf Vorhandensein prüfen
Veit
Moin, Moin,
ich habe es jetzt zwar nicht getestet...

Sub Makro8()
Dim Test1 As Integer, Test2 As Integer, Test3 As Integer, Test4 As Integer, Test5 As Integer, Test6 As Integer, Test7 As Integer
Pfad = "C:\test\"
Dateiname = Dir$(Pfad)
If Dateiname = "" Then
MsgBox "garnix vorhanden"
Exit Sub
End If
Test1 = 0
Test2 = 0
Test3 = 0
Test4 = 0
Test5 = 0
Test6 = 0
Test7 = 0
Do While Dateiname <> ""
Select Case Dateiname
Case "Test1.xls"
Test1 = 1
Case "Test2.xls"
Test2 = 1
Case "Test3.xls"
Test3 = 1
Case "Test4.xls"
Test4 = 1
Case "Test5.xls"
Test5 = 1
Case "Test6.xls"
Test6 = 1
Case "Test7.xls"
Test7 = 1
Case Else
End Select
Dateiname = Dir$()
Loop
nicht_gefunden = ""
If Test1 <> 1 Then nicht_gefunden = nicht_gefunden & "Test1.xls" & Chr(13)
If Test2 <> 1 Then nicht_gefunden = nicht_gefunden & "Test2.xls" & Chr(13)
If Test3 <> 1 Then nicht_gefunden = nicht_gefunden & "Test3.xls" & Chr(13)
If Test4 <> 1 Then nicht_gefunden = nicht_gefunden & "Test4.xls" & Chr(13)
If Test5 <> 1 Then nicht_gefunden = nicht_gefunden & "Test5.xls" & Chr(13)
If Test6 <> 1 Then nicht_gefunden = nicht_gefunden & "Test6.xls" & Chr(13)
If Test7 <> 1 Then nicht_gefunden = nicht_gefunden & "Test7.xls" & Chr(13)
MsgBox "Folgende Dateien fehlen:" & Chr(13) & nicht_gefunden
If nicht_gefunden <> "" Then Exit Sub
'ansonsten gehts weiter
End Sub

Gruß
Ein Veit
Anzeige
AW: Mehrere Dateien auf Vorhandensein prüfen
Uduuh
Hallo,
etwa so:

Sub testen()
Dim test, arrFile, strFile As String, F As Integer
arrFile = Array("Test1.xls", "Test2.xls", "Test3.xls")
For F = 0 To UBound(arrFile)
test = Dir("n:\test\" & arrFile(F))
If test = "" Then
If strFile = "" Then
strFile = arrFile(F)
Else
strFile = strFile & ", " & arrFile(F)
End If
End If
Next F
If strFile <> "" Then
MsgBox "Es fehlen: " & strFile
Else
MsgBox "Alle Dateien da."
End If
End Sub

Gruß aus'm Pott
Udo
Anzeige
AW: Mehrere Dateien auf Vorhandensein prüfen
14.06.2004 15:01:02
franz
Vielen herzlichen Dank !
Werde alle durchtesten.
Danke
franz

Forumthreads zu verwandten Themen

rückgängig historie speichern vor SelectionChange
Susanne

Hallo zusammen,
ich benutze eine Worksheet_SelectionChange Prozedur und ändere damit Formate meiner Zellen. Jedes ausgeführte Makro löscht ja die Rückgängig Historie. Nun möchte ich gerne zu Beginn des Makros die Historie speichern und am Ende des Makros wieder einfügen. Es soll also nicht...
18.09.2008 10:37:00
Thread-ID: 1010643
5 Beiträge
Zelleninhlalt übernehmen der ergänzt werden kann
Benny

Guten Morgen!
Kann mir jemand bei folgenem Problem helfen?
Also es soll beim öffnen einer Datei ein Zelleninhalt einer anderen Datei übernommen werden, dies hab ich mit einem SVerweis gemacht. Nun möchte ich zusätzlich noch weitere Inhalte in die Zelle manuell einpflegen. Wie kann ich d...
07.11.2008 11:12:00
Thread-ID: 1022582
6 Beiträge
Prüfen ob Datensätze vorhanden ggf. hinzufügen
Urmila

Hallo alle gemeinsam,
im Tabelle 1 stehen daten, Spalte A Dokument...Spalte D Datum.
Nun will ich dass geprüft wird, ob Datum größer als Heute, dann prüfen
ob Dokument von Spalte A in Tabelle 2 (ebenfalls Spalte A) vorhanden,
wenn nicht, diese Zeile kopieren und in Tabelle 2 al...
09.01.2009 12:56:00
Thread-ID: 1038201
5 Beiträge
nach Speichern automatisch Schließen
Valeri

Hallo liebes Forum,
ich möchte meine Arbeitsmappe nach dem ich gespeichert habe Automatisch schlissen lassen.
Wie würde den der Code dafür aussehen?
Vielen Dank schon mal im Voraus!
Gruß Valeri
11.01.2012 11:23:23
Thread-ID: 1245611
12 Beiträge
Uhrzeit nach Wenn-Abfrage automatisch eintragen
GP

Hallo VBA-Künstler,
ich möchte automatisch die Uhrzeit nach nach einer Wenn-Abfrage eintragen und einfrieren.
Folgender Code wird verwendet:
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("C1:C100")) Is Nothing Then Exit Sub If Target.Value "ok" Th...
15.01.2014 14:59:00
Thread-ID: 1345327
4 Beiträge
Automatische Aufforderung zu Speichern nach Öffnen
Michael

Hallo,mein Problem: Ich möchte, dass nach dem Öffnen meiner Excel-Vorlage der Benutzer sofort zum Speichern dieser als xls-Datei aufgefordert wird.Kann mir jemand helfen?Michael
31.07.2002 14:18:16
Thread-ID: 143099
3 Beiträge
VBA Daten aus anderer Excel laden und speichern
teambob


VBA Daten aus anderer Excel laden und speichern
Beitragvon Teambob » 06. Nov 2015, 10:28
Hallo Community,
ich habe ein kleines Programm mit VBA geschrieben, wo ich den Lagerbestand abfrage und Zu/Abbuchen kann.
Die Daten werden dann in einer Tabelle in der gleichen Excel ge...
06.11.2015 11:25:42
Thread-ID: 1456666
3 Beiträge
Anfänger! Was bedeuten die folgenden Ausdrücke?
Sebastian R.

Hallo, mir wurde jetzt nun schon oft von Euch geholfen und ich habe Lust bekommen, selbst die Sprache zu lernen. Da es ja auf basic aufbaut, wird es wahrscheinlich leichter fallen als C/c++ oder anderes.In einigen Scripten sind mir folgende Ausdrücke aufgefallen, die ich nicht interpretieren ka...
19.08.2002 10:52:14
Thread-ID: 150096
5 Beiträge
mail nach Senden speichern (für Profis)(mit Code)
Martin

Ich habe im Internet einen Code gefunden, der es ermöglicht e-mails mit Hilfe eines mapi.session - Objektes zu versenden. Bitte hilft mir dabei, den Code so weit zu erweitern, dass die e-mail nach dem Sendevorgang in eine Datei gespeichert wird (als Sendebestätigung). Ich habe bereits mehrere V...
28.08.2002 10:41:33
Thread-ID: 153579
10 Beiträge
automatische Bildlaufleiste nach Uhrzeit
Gecko

Moin,
habe mal wieder ein Problem und hoffe auf eure Hilfe.
Ich habe bereits eine Tabelle auf der die Bildlaufleiste alle x Sekunden/Minuten/Stunden eine Zelle weiter nach rechts geht. Gestartet und Beendet per Klick.
Nun möchte ich das so umbasteln, dass zu einer bestimmten Uhrzeit...
09.06.2017 08:33:47
Thread-ID: 1563148
2 Beiträge
Anzeige
E-Mail-Anhang in Outlook finden&abspeichern
Johannes

Hallo zusammen,
ich bekomme wöchentlich eine E-Mail mit Anhang, welche ich per Excel Makro auf der Festplatte speichern und danach weiterverarbeiten möchte.
Untenstehendes Makro habe ich schon. Ich bekomme leider nur immer einen Fehler, wenn zwischen der Mail, welche ich suche, und dem...
14.05.2018 15:06:09
Thread-ID: 1623915
4 Beiträge
E-Mail-Anhang in Outlook finden&abspeichern
Johannes

Hallo zusammen,
ich bekomme wöchentlich eine E-Mail mit Anhang, welche ich per Excel Makro auf der Festplatte speichern und danach weiterverarbeiten möchte.
Untenstehendes Makro habe ich schon. Ich bekomme leider nur immer einen Fehler, wenn zwischen der Mail, welche ich suche, und dem...
14.05.2018 15:15:39
Thread-ID: 1623922
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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