Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vorhandensein von Files prüfen

Vorhandensein von Files prüfen
20.03.2006 14:03:21
Files
hi there
ich sollte wissen, wie ich das vorhandensein von files prüfen kann. Es handelt sich dabei nicht um Excel-Files (*.dtxt-files).
Weiss da jemand rat?
besten dank
heini

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
mit der Function Dir (siehe Hilfe) o.w.t.
20.03.2006 14:05:28
Peter
MfG Peter
Beispiel
20.03.2006 14:33:02
Peter
Servus,


Option Explicit
Public Function CheckFiles(FileArr() As String, _
                Optional Pfad As String)
                Dim myArr() As Boolean
                Dim lngZ As Long
    If Pfad = "" Then Pfad = ThisWorkbook.Path & "\"
    If Right(Pfad, 1) <> "\" Then Pfad = Pfad & "\"
    ReDim myArr(0 To UBound(FileArr))
    For lngZ = 0 To UBound(FileArr)
        If Dir(Pfad & FileArr(lngZ)) <> "" Then
            myArr(lngZ) = True
        Else: myArr(lngZ) = False: End If
    Next
    CheckFiles = myArr
End Function
Sub test()
Dim strArr(0 To 2) As String, bolArr() As Boolean
Dim intZ As Integer
For intZ = 1 To 3
    strArr(intZ - 1) = Sheets("Tabelle1").Range("A" & intZ)
Next
bolArr = CheckFiles(strArr(), "C:\")
For intZ = 0 To UBound(bolArr, 1)
    MsgBox "Die Datei " & strArr(intZ) & " ist im Pfad C:\ " _
        & IIf(bolArr(intZ), "vorhanden !", "nicht vorhanden !")
Next
End Sub


MfG Peter
Anzeige
Datei vorhanden?
20.03.2006 19:20:47
Beate
Hallo Heini,
Guckst Du: Datei vorhanden ?
Den Code kannst du auf *.txt-Datei anpassen.
Gruß,
Beate

98 Forumthreads zu ähnlichen 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
Anzeige
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
Datei speichern, wenn vorhanden nicht überschreibe
Elias

Hallo Forum,
ich brauche mal wieder ein wenig Hilfe.
Unten findet Ihr den Code eines Buttons, mit dessen Hilfe ich eine Datei unter einem
sich aus der Excel-Datei ergebenden Namen in einem fix vorgegebenen Pfad im Datei-
system anlege.
Nun bestünde theoretisch die Möglichkei...
17.03.2009 15:24:49
Thread-ID: 1061133
3 Beiträge
Anzeige
Label alle 10 Sekunden für 5 Sekunden anzeigen
k

Hallo,
...mal was anderes. Für unsere Azubis soll ein kleines "Lern-Spiel" gebastelt werden in Excel. Dazu sollen alle 10 Sekunden in einer Userform ein Produktname erscheinen und 5 Sekunden stehen bleiben. Der Azubi hat dann in dieser Zeit die Möglichkeit alles was ihm dazu einfällt in ein...
11.08.2009 16:53:14
Thread-ID: 1095083
7 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
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
4
5
4
2
1
6
11
3
2
2
4
9
1
4
5
1
3
3
3
1
1
1
5
5
3