Thema Datum  Von Nutzer Rating
Antwort
Rot VBA script auf neuem Laptop extrem langsam
11.12.2015 10:09:11 Robert
NotSolved
11.12.2015 17:45:28 Gast97140
NotSolved
14.12.2015 11:04:54 Gast17353
NotSolved

Ansicht des Beitrags:
Von:
Robert
Datum:
11.12.2015 10:09:11
Views:
763
Rating: Antwort:
  Ja
Thema:
VBA script auf neuem Laptop extrem langsam

Hallo zusammen,

Ich habe folgendes Problem: Ich habe ein recht komplexes VBA Script im Rahmen meiner Dissertation erstellt. Das Script lief bisher auf allen möglichen Rechnern (PCs Laptops, neu/alt) gut, je nach CPU unterschiedlich schnell. Nun habe ich einen neuen Laptop (Octacore i7-4720HQ @ 2,6) mit SSD und das script läuft um ein vielfaches langsamer. Bsp: Ein bestimmer Rechenschritt braucht auf meinem alten Laptop ca. 1 Minute, am neuen ca. 10 Minuten. Es auf beiden Laptops Win 7 64 bit Prof und Office 2010 64bit installiert. Zuerst war auf dem neuen Laptop Office 2013 drauf und ich dachte es liegt daran und habe dann das 2010er installiert. Hat aber nichts geändert.

Mir scheint, dass es vor allem for...next Schleifen betrifft, die nun deutlich langsamer laufen. Ich habe mal so eine Schleife hierhin kopiert, wobei ich nicht denke, dass es am script liegt, da es ja auf einem älteren System (gleiche Datei etc) besser funktioniert.

i läuft ca. 10000 mal durch.

Bin für jegliche Hilfe/Tipps dankbar!

 

For i = 1 To leZeile - 1
 With Workbooks(1).Worksheets(sheetname)
    tmin = .Cells(i + 1, 9)
    tmax = .Cells(i + 1, 10)
    jday = .Cells(i + 1, 5)
    If tmin = 9999 Or tmax = 9999 Then
        tmean = 9999
        Else: tmean = (tmin + tmax) / 2
    End If
    .Cells(i + 1, 11) = tmean
    If month_col = 0 Then
        If jday >= 1 And jday <= 31 Then
            month = 1: day = jday
        ElseIf jday >= 32 And jday <= 59 Then
            month = 2: day = jday - 31
        ElseIf jday >= 60 And jday <= 90 Then
            month = 3: day = jday - 59
        ElseIf jday >= 91 And jday <= 120 Then
            month = 4: day = jday - 90
        ElseIf jday >= 121 And jday <= 151 Then
            month = 5: day = jday - 120
        ElseIf jday >= 152 And jday <= 181 Then
            month = 6: day = jday - 151
        ElseIf jday >= 182 And jday <= 212 Then
            month = 7: day = jday - 181
        ElseIf jday >= 213 And jday <= 243 Then
            month = 8: day = jday - 212
        ElseIf jday >= 244 And jday <= 273 Then
            month = 9: day = jday - 243
        ElseIf jday >= 274 And jday <= 304 Then
            month = 10: day = jday - 273
        ElseIf jday >= 305 And jday <= 334 Then
            month = 11: day = jday - 304
        ElseIf jday >= 335 And jday <= 365 Then
            month = 12: day = jday - 334
        Else: MsgBox "JDAY not valid"
        End If
        .Cells(i + 1, 1).Value = day
        .Cells(i + 1, 2).Value = month
    End If
    datum = .Cells(i + 1, 1).Value & "." & .Cells(i + 1, 2).Value
    .Cells(i + 1, 4).Value = datum
    If .Cells(i + 1, 8) = 9999 Then
        If i > 1 Then
            If .Cells(i + 1, 7) < 9999 Then
                pseudo_snow = .Cells(i + 1, 7) - .Cells(i, 7)
                If pseudo_snow >= 0 Then
                    .Cells(i, 8) = pseudo_snow
                Else: .Cells(i, 8) = 0
                End If
            End If
        End If
    End If

  End With

Next i

 

Lg, Robert


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA script auf neuem Laptop extrem langsam
11.12.2015 10:09:11 Robert
NotSolved
11.12.2015 17:45:28 Gast97140
NotSolved
14.12.2015 11:04:54 Gast17353
NotSolved