Makro läuft auf schnelleren Rechner langsamer
02.12.2006 22:16:25
HaraldK
seit langem benutze ich dieses Makro um Datein in eine Listbox einzulesen, nun muß ich feststellen das diese Makro auf einem schnellern Rechner und Windows xp Proffesional sehr lange braucht was auf dem alten Rechner und Windows home xp eine Sekunde braucht dauer auf dem neuen Rechner viele Sekunden.
'
Private Sub UserForm_Initialize()
'Dim dNamen As FileSearch
'Dim FCount%
'Dim FileArray()
'Dim ProcessCounter%
'Dim Execute As String
'Dim tb As Worksheet
'Set tb = Workbooks("Daten.xls").Sheets("Rechnungen verrechnet")
' Set dNamen = Application.FileSearch
' On Error Resume Next
' With dNamen
' .LookIn = "C:\Auftrag\Rechng\"
' .Filename = "*.*"
' .Execute
' For FCount = 1 To .FoundFiles.Count - 1
' ReDim Preserve FileArray(FCount)
' FileArray(FCount) = .FoundFiles(FCount)
' Next FCount
' End With
' UserForm1.ListBox1.Clear
' If FCount > 0 Then
' UserForm1.ListBox1.List = FileArray
' UserForm1.ListBox1.RemoveItem 0
' End If
'End Sub
Kennt jemand diese Problem und kan mir das erklären
Gruß Harald
Anzeige