VBA - Langsam, warum ?
01.09.2003 07:05:17
Paul
Ich habe folgendes Makro welches mir folgendes bewirkt:
1.) Öffne mir eine bestimmte Excel-Datei.
2.) Öffne Abfrage, welche Datei jetzt zum öffnen.
3.) Kopiere alles aus 2.)
4.) Gehe zur 1.) und füge alles ein.
5.) Schließe Datei aus 2.) ohne Nachfrage.
Nun, wenn ich alles manuell mache geht es sehr schnell.
Über dieses Makro dauert es sehr, sehr viel länger und teilweise
bleibt die Maschine hängen.
Was ist da los ??
Sub GSR_Bestandsprotokoll_mit_Statatistik_erweitern()
Workbooks.Open Filename:= _
"R:\entladeprotokolle\Neue_Produktionsdatenbank\Bestandsprotokoll Standart_einfügen Kopie_BTB.xls"
Range("A1").Select
On Error Resume Next
Dim dName$
dName = Application.GetOpenFilename
If dName <> "Falsch" Then
Workbooks.Open Filename:=dName
Else
Exit Sub
End If
Cells.Select
Selection.Copy
Windows(2).Activate
Sheets("Bestandsprotokoll").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
Windows(2).Activate
Range("A1").Select
Application.DisplayAlerts = False
ActiveWindow.Close
Application.DisplayAlerts = True
End Sub