Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
14.10.2025 19:08:54
Verbindung von Excel mit maps
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro Frage

Forumthread: Makro Frage

Makro Frage
22.01.2004 14:48:35
Thorsten
Hallo.
Ich würde gern wissen, ob es möglich ist, ein Makro prüfen zu lassen, ob in einem Ordner neue Dateien hinzugekommen sind? Ich habe(wie einige vielleicht wissen) Textdateien in ein Tabellenblatt importieren lassen und hätte gern, dass das Makro prüft, od neue Textdateien in den Ordner gekommen sind. Prüfen in einem Zeitintervall von 15 Minuten.
Ist das realisierbar?
Gruß Thorsten
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro Frage
22.01.2004 15:02:14
Andi_H
Hi Thorsten,
das hört sich schwierig an und einen direkten Lösungsversuch kann ich dir nicht bieten,
aber schau dir in der Hilfe/Recherche mal application.filesearch an
damit kannst du nach .txt dateien im ordnern suchen und mit foundfiles bekommst du auch die anzahl heraus. Das mit dem Zeitintervall bekommst du mit application.ontime hin.

Gruß
Andi
Anzeige
AW: Makro Frage
22.01.2004 15:39:05
Thorsten
Hi.
Danke für die Hinweise. Ich werde mich mal schlau lesen...
Gruß Thorsten
AW: Makro Frage
22.01.2004 15:54:11
Andi_H
Habe hier mal ein Beispiel zu Filesearch, habe ich aus dem Forum
Viel Spaß
Andi

Sub Beispiel()
Dim ASF As Object
Dim i As Integer
Dim Pfad As Variant
Set ASF = Application.FileSearch
Pfad = "C:\"
If Pfad = False Then Exit Sub
'Columns("A:A").ClearContents        ' Spalte A leeren
With ASF
On Error GoTo Errorhandler
ChDir Pfad                      ' Verzeichnis wechseln
.NewSearch                      ' Neue Suche beginnen
.LookIn = Pfad                  ' Suchen in <>
.SearchSubFolders = True        ' inkl. Unterverzeichnis
.FileName = "*.*"               ' Alle Dateien anzeigen
If .Execute > 0 Then          ' Wenn Suche erfolgreich, dann Anzahl Dateien ausgeben
'MsgBox "Es wurden " & .FoundFiles.Count & _
'" Datei(en) gefunden.", vbInformation, _
'"Anzahl Dateien:"
Else
MsgBox "Es wurden keine Dateien gefunden", _
vbCritical, "Keine Dateien"
Exit Sub
End If
End With
'Columns("A:A").AutoFit              ' Spaltenbreite anpassen
Exit Sub
Errorhandler:
MsgBox "Pfad " & Pfad & " nicht gefunden", vbCritical, "Fehler:"
End Sub

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige