Ergebnis 1 bis 3 von 3

Thema: Makro zu langsam

  1. #1
    Unregistriert
    Gast

    Standard Makro zu langsam

    Hallo zusammen,

    ich habe folgenden Code geschriebne. Das Makro läuft allerdings sehr langsam, auch wenn man nur 1 Datei auswählt aus der die Update Zahlen kommen.

    Hat jemand eine Vermutung woran das liegen könnte? bin für jeden Tipp dankbar!

    Danke schon mal.


    Code:
    Sub UpdateDateienEinspielen()
    
        Application.ScreenUpdating = False
     
    Dim wksDiesesSheet As Worksheet
    Set wksDiesesSheet = ActiveSheet
    wksDiesesSheet.Outline.ShowLevels RowLevels:=2
    
    'Überschreiben der alten Werte durch neuen
        Range("AG5:AK1100").Select
        Selection.Copy
        Range("AA5").Select
        ActiveSheet.Paste
    
    Dim wksQuelle As Object
    Dim lastrow As Long
    Dim ID As Variant
    Dim Stufen As Range
    Dim NeueZahlen As Range
    Dim Kommentare As Range
    
    
                'Auswählen der Update Dateien
                   'Defines the variable as a variant data type
                    Dim X As Variant
                
                    'Opens the dialog
                    SpeicherPfad = ThisWorkbook.Path & "\"
                    ChDir SpeicherPfad
                    
                     X = Application.GetOpenFilename _
                            ("Excel-Datei (*.xls), *.xls, Add-in Files (*.xls), *.xls", 2, _
                            "Open My Files", , True)
                
                
                 'Loops through every file that is selected and opens each one
                   For Y = 1 To UBound(X)
                       Workbooks.Open X(Y)
                       Set wksQuelle = GetObject(X(Y))
                       
            
                lastrow = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
        
                For i = 6 To lastrow 'gehe durch alle befüllten Zeilen in der Update datei
        
                        
                    wksQuelle.Activate 'Aktiviere Update Datei
        
                    If Cells(i, 6).Value = "3" Then
                    ID = Cells(i, 3).Value
                    Set Stufen = Range(Cells(i, 22), Cells(i, 26)) 'kopiere Stufen
                    Set NeueZahlen = Range(Cells(i, 41), Cells(i, 44)) 'kopiere Neue Zahlen
                    Set Kommentare = Range(Cells(i, 46), Cells(i, 47)) 'kopiere Kommentare
    
                    wksDiesesSheet.Activate 'gehe in Master Sheet
    
                    Columns("B:B").Select
                    Selection.Find(What:=ID, After:=ActiveCell, LookIn:=xlValues, LookAt _
                    :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext).Select
                    Zeile_Master = Selection.Row
                    Stufen.Copy Range(Cells(Zeile_Master, 15), Cells(Zeile_Master, 19)) 'fuege Stufen ein
                    NeueZahlen.Copy Range(Cells(Zeile_Master, 34), Cells(Zeile_Master, 37)) 'füge New Forecast ein
                    Kommentare.Copy Range(Cells(Zeile_Master, 39), Cells(Zeile_Master, 40)) 'fuege Kommentare ein
                    End If
                    
                Next i
            wksQuelle.Close
        Next Y
     
    End Sub
    Achtung: Dies ist ein alter Thread im HTML und Webmaster Forum
    Diese Diskussion ist älter als 90 Tage. Die darin enthaltenen Informationen sind möglicherweise nicht mehr aktuell. Erstelle bitte zu deiner Frage ein neues Thema im Forum !!!!!
    Geändert von The User (14.07.2010 um 21:59 Uhr) Grund: [code]-Benutzung!!

  2. #2
    Forum Guru Avatar von The User
    Registriert seit
    28.10.2007
    Ort
    Zwischen Pazifik und Atlantik...
    Beiträge
    4.044
    Danke
    0
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: Makro zu langsam

    Das will dech keiner lesen! Bitte einrücken und die [code]-Tags benutzen…

    PS:
    Sorry, ich sehe, du hattest den Code eingerückt, habe mal die [code]-Tags ergänzt.
    Geändert von The User (15.07.2010 um 00:42 Uhr)

  3. #3
    Kaiser(in)
    Registriert seit
    09.12.2005
    Alter
    29
    Beiträge
    2.496
    Danke
    1
    Bekam 0 mal "Danke" in 0 Postings

    Standard AW: Makro zu langsam

    Range("AG5:AK1100").Select
    Selection.Copy
    Range("AA5").Select
    ActiveSheet.Paste
    das sollte ziemlich an der geschwindigkeit zerren. probier nach möglichkeit ohne selects zu arbeiten
    Sei immer du selbst. Außer du kannst Batman sein. Sei immer Batman!

Ähnliche Themen

  1. VBA Makro
    Von clone im Forum Forum für alle anderen Programmiersprachen
    Antworten: 2
    Letzter Beitrag: 09.03.2010, 19:27
  2. Homepage zu langsam
    Von Venus im Forum HTML & CSS Forum
    Antworten: 2
    Letzter Beitrag: 21.02.2007, 09:55
  3. Herunterfahren von XP zu langsam
    Von htmli im Forum Computer - Internet Forum
    Antworten: 4
    Letzter Beitrag: 29.05.2006, 16:48
  4. Makro
    Von Mr.Death im Forum HTML & CSS Forum
    Antworten: 12
    Letzter Beitrag: 23.03.2006, 21:41

Stichworte

Berechtigungen

  • Neue Themen erstellen: Nein
  • Themen beantworten: Nein
  • Anhänge hochladen: Nein
  • Beiträge bearbeiten: Nein
  •