Microsoft Excel

Herbers Excel/VBA-Archiv

VBA - Langsam, warum ?

    Betrifft: VBA - Langsam, warum ? von: Paul
    Geschrieben am: 01.09.2003 07:05:17

    Hallo !

    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
    

      


    Betrifft: AW: VBA - Langsam, warum ? von: Paul
    Geschrieben am: 01.09.2003 09:33:16

    Hallo !

    Thema hat sich erledigt.
    Hing wahrscheinlich an meiner Maschine.


    Gruss
    Paul