Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
884to888
884to888
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

lange Bearbeitungszeit einer Prozedur

lange Bearbeitungszeit einer Prozedur
06.07.2007 16:13:09
Thomas
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: lange Bearbeitungszeit einer Prozedur
06.07.2007 21:04:29
Peter
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 


Gruß Peter

Anzeige
AW: lange Bearbeitungszeit einer Prozedur
07.07.2007 13:27:49
Thomas
hat leider nix gebracht....

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige