Datum

Titel

07.05.2024 16:36:49

Excel Arbeitszeit berechnung

07.05.2024 16:27:17

Definition und Nutzung von globalen Variablen

07.05.2024 14:51:38

Endlos-Journal

07.05.2024 13:27:17

Datum nach Auswahl prüfen

Du findest keine passende Antwort auf Deine Frage?

Stelle Deine Frage in unserem Live-Forum

Archiv - Navigation

120to124

Aktuelles Verzeichnis

Verzeichnis Index

Übersicht Verzeichnisse

Vorheriger Thread

Rückwärts Blättern

Nächster Thread

Vorwärts blättern

HERBERS

Excel-Forum (Archiv)

20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Rückwärts Blättern

Aktuelles Verzeichnis

Übersicht Verzeichnisse

Vorwärts blättern

Inhaltsverzeichnis

Anzahl der Dateien in einem Ordner

Forumthread: Anzahl der Dateien in einem Ordner
4 Beiträge zu diesem Forumthread
Anzeige
303 Threads zu ähnlichen Themen
Top 100 Forumthreads

15.05.2002 15:53:59

Lena

Hallo zusammen!

Ich würde mich freuen, wenn mir jemand sagen könnte, wie ich die Anzahl der Dateien mit einer bestimmten Erweiterung ("*.txt") in einem Ordner (z.B. Ordner 1) per Makro ermittele.

Vielen Dank,
Lena

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Anzahl der Dateien in einem Ordner

15.05.2002 16:50:38

Joachim K
Application.Calculation = xlCalculationAutomatic?

15.05.2002 17:07:09

Lena
Re: Application.Calculation = xlCalculationAutomatic?

15.05.2002 17:30:55

Joachim K
ah ha :) Danke

15.05.2002 17:56:28

Lena

Re: Anzahl der Dateien in einem Ordner

15.05.2002 16:50:38

Joachim K

Hallo Nora,
versuchs mal mit folgendem Makro:

Sub Alle_Auflisten()

Dim Datei As FileSearch
Dim i As Integer
Set Datei = Application.FileSearch
On Error Resume Next
Dim SuchText, SuchZeichen, Pos0, Pos(1 To 10), AA, BB, CC
verz = InputBox("Welches Verzeichnis soll aufgelistet werden ? ", , "K:/CBU_DC")
DA = InputBox("welche Dateiart soll aufgelistet werden ? ", , "*.xls")

With Datei
.FileName = DA
.LookIn = verz
.SearchSubFolders = True
If .Execute > 0 Then
MsgBox "Es gibt " & .FoundFiles.Count & " Dateien <" & DA & ">"
End If
End With
Application.Calculation = xlCalculationAutomatic
End Sub

Gruß Joachim

Application.Calculation = xlCalculationAutomatic?

15.05.2002 17:07:09

Lena

Danke Joachim,

das funktioniert :), aber ich möchte gerne wissen, was genau "Application.Calculation = xlCalculationAutomatic" bewirkt?, zumal diese Prozedur schon nach dem Erscheinen der Message-Box ausgeführt wird, das heißt, die Anzahl der Dateien ist schon ermittelt worden. Was wird denn dann noch nachträglich errechnet?

Danke :)

P.S.

Hand aufs Herz - ich bin nicht Nora :)

Re: Application.Calculation = xlCalculationAutomatic?

15.05.2002 17:30:55

Joachim K

Hallo Lena,

die Zeile :
Application.Calculation = xlCalculationAutomatic
ist hier nicht nötig, das Makro ist ein Teil eines Makros mit dem ich mir ein Inhatsverzeichnis erstelle; ich habe nur vergessen die Zeile zu löschen.
In meinem Makro schalte ich die automatische Berechnung aus um die Laufzeit zu optimieren und muss dann am Ende wieder auf automatisches Berechnen zurücksetzen.

Viele Grüße
Joachim