Formelberechnung ausschaltem

Sub DateienAuflisten() Dim lngZeile As Long Dim objFileSystem As Object Dim objVerzeichnis As Object Dim objDateienliste As Object Dim objDatei As Object Set objFileSystem = CreateObject("scripting.FileSystemObject") Set objVerzeichnis = objFileSystem.GetFolder("E:\Bilder") Set objDateienliste = objVerzeichnis.Files lngZeile = 1 For Each objDatei In objDateienliste If Not objDatei Is Nothing Then ActiveSheet.Cells(lngZeile, 1) = objDatei.Name lngZeile = lngZeile + 1 End If Next objDatei End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
über Application.Calculation kannst du steueren, ob Formeln neu berechnet werden sollen oder nicht.
die IntelliSense zeigt dir die verschiedenen Möglichkeiten an.
Beachte, dass nach Makroende die zuletzt gesetzte Einstellung bestehen bleibt.
die andere Alternative ist, dass du die Dateien zuerst mal in einem Array sammelst, und dann das Array als ganzes in die Tabelle schreibst.
Das ist in der Regel schneller, als jeden Wert einzeln zu übertragen und man muss keine Einstellungen ändern:

Sub DateienAuflisten()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim arr
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("C:\Daten")
Set objDateienliste = objVerzeichnis.Files
lngZeile = 1
ReDim arr(1 To objDateienliste.Count, 1 To 1)
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
arr(lngZeile, 1) = objDatei.Name
lngZeile = lngZeile + 1
End If
Next objDatei
Cells(1, 1).Resize(UBound(arr, 1), 1) = arr
End Sub

Gruß Daniel

Hi
dann verwendest du kein Option Explicit
mit Option Explicit müssen alle verwendeten Variablen deklariert werden und das Verwenden einer nicht deklarierten Variable erzeugt einen Fehler.
Ohne Option Explicit werden Variablen vom System automatisch bei ihrer ersten Verwendung im Code deklariert (immer als Variant), so dass das Dim wegfallen kann.
Nachteil dabei ist, dass ohne Option Explicit Tippfehler bei Variablennamen ("objDateiliste" statt "objDateienliste") vom System nicht reklamiert werden und dann nicht immer ein Fehler entsteht, aber u.U. falsche Ergebnisse deren Ursache schwer zu finden ist.
wenn man immer mit Option Explicit arbeiten will, geht man die Extras - Optionen und setzt den Haken bei "Variablendeklaration erforderlich", bei allen danach neu erstellten Modulen ist dann automatisch das Option Explicit aktiv (zu sehen in der obersten Zeile des Moduls)
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread