Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

lange Bearbeitungszeit einer Prozedur

Betrifft: lange Bearbeitungszeit einer Prozedur von: Thomas
Geschrieben am: 06.07.2007 16:13:09

Hallo allerseits,

mir hat sich da ein Rätsel aufgetan, in meinem folgendem Quellcode Ausschnitt dauert die Bearbeitung sehr lange. Ich hatte denselben Quellcode schonmal mit Range() anstelle Cells() geschrieben und da ging das ganz fix. Benötigt Cells() eine große Bearbeitungszeit? oder entsteht die Wartezeit vielleicht durch etwas anderes??? Ich hab mein Problem durch MsgBox anzeigen auf diesen Quellcode eingrenzen können:

For j = m To n

K = 99

If Cells(pos + 213, 4).Value = "1,5" Then
For K = 99 To 9 Step -1
If Cells(pos + 226, 10).Value <= Worksheets("Tabellenwerte sonst").Cells(K, 7).Value Then
Else
Cells(pos + 226, 16).Value = Worksheets("Tabellenwerte sonst").Cells(K + 1, 10).Value
K = 9
End If
Next K
End If

If Cells(pos + 213, 4).Value = "2" Or Cells(pos + 213, 4).Value = "2,0" Then
For K = 99 To 9 Step -1
If Cells(pos + 226, 10).Value <= Worksheets("Tabellenwerte sonst").Cells(K, 8).Value Then
Else
Cells(pos + 226, 16).Value = Worksheets("Tabellenwerte sonst").Cells(K + 1, 10).Value
K = 9
End If
Next K
End If

If Cells(pos + 213, 4).Value = "2,5" Then
For K = 99 To 9 Step -1
If Cells(pos + 226, 10).Value <= Worksheets("Tabellenwerte sonst").Cells(K, 9).Value Then
Else
Cells(pos + 226, 16).Value = Worksheets("Tabellenwerte sonst").Cells(K, 10).Value
K = 9
End If
Next K
End If

Next j

  

Betrifft: AW: lange Bearbeitungszeit einer Prozedur von: Peter Feustel
Geschrieben am: 06.07.2007 21:04:29

Hallo Thomas,

ob es schneller wird, weiß ich nicht, testen kann ich ebenfalls nicht, wegen fehlender Daten
aber versuchen kannst du es ja einmal:



For j = m To n
      Select Case Cells(pos + 213, 4)
         Case "1,5"
            For k = 99 To 9 Step -1
               If Cells(pos + 226, 10).Value > _
                  Worksheets("Tabellenwerte sonst").Cells(k, 7).Value Then
                  Cells(pos + 226, 16).Value = _
                     Worksheets("Tabellenwerte sonst").Cells(k + 1, 10).Value
                  k = 9
               End If
            Next k
         Case "2"
            For k = 99 To 9 Step -1
               If Cells(pos + 226, 10).Value > _
                  Worksheets("Tabellenwerte sonst").Cells(k, 8).Value Then
                  Cells(pos + 226, 16).Value = _
                     Worksheets("Tabellenwerte sonst").Cells(k + 1, 10).Value
                  k = 9
               End If
            Next k
         Case "2,5"
            For k = 99 To 9 Step -1
               If Cells(pos + 226, 10).Value > _
                  Worksheets("Tabellenwerte sonst").Cells(k, 9).Value Then
                  Cells(pos + 226, 16).Value = _
                     Worksheets("Tabellenwerte sonst").Cells(k + 1, 10).Value
                  k = 9
               End If
            Next k
      End Select
   Next j 


     Code eingefügt mit Syntaxhighlighter 4.4

Gruß Peter


  

Betrifft: AW: lange Bearbeitungszeit einer Prozedur von: Thomas
Geschrieben am: 07.07.2007 13:27:49

hat leider nix gebracht....


 

Beiträge aus den Excel-Beispielen zum Thema "lange Bearbeitungszeit einer Prozedur"