Code beschleunigen
17.04.2008 18:22:00
Uwe
habe mir folgenden Code aus der Recherche zusammen gebastelt. Jedoch kommt er mir beim einlesen sehr langsam vor.
Option Explicit
Private Sub Workbook_Open()
Application.DisplayAlerts = False
Dim sFile As String, sPath As String
sFile = "Gesamt.xls"
sPath = ThisWorkbook.Path & "\"
With Sheets(1)
.Range("B3:B1000").Formula = "='" & sPath & "[" & sFile & _
"]Vers'!A3:A1000"
End With
Application.DisplayAlerts = True
End Sub
Gib es eine Möglichkeit den Vorgang zu beschleunigen?
Vorab schon mal Dank!
Gruß Uwe