title image


Smiley Langsame Prozedur
Hallo zusammen,



ich habe eine Prozedur geschrieben, mit der ich in einem Bereich links von einer bestimmten Spalte für alle Zeilen die Distanz zur letzten nichtleeren Zelle berechne. Leider läuft es sehr langsam, d.h. für einen Bereich mit 6 Spalten und 500 Zeilen satte 31 Sekunden (Acer Notebook TM 800). Geht das nicht irgendwie schneller? Das müßte doch in Sekundenbruchteilen durch sein.



Danke & Ciao,



MikeMan62







Hier das Listing:



Public Sub AbstandSpalteZelle1()

Dim r As Range

Dim i, j As Integer

Dim SpalteHeute As Integer





SpalteHeute = Range("F1").Column



For i = 8 To 508

' Spaltenzähler auf letzte Spalte setzen

j = SpalteHeute





' Prüfen, welche Zellen in der Zeile leer sind

Do

If Application.CountA(Cells(i, j)) < 1 Then

' In dieser Zelle ist kein Wert

If j > 1 Then

' Spaltenzähler eine Spalte nach links setzen

j = j - 1

Else

' Wenn auch die erste Spalte leer ist, wird die Distanz auf 9999 gesetzt

Cells(i, SpalteHeute + 2).Value = 9999

Exit Do

End If

Else

' Es wurde eine nichtleere Zelle in Zeile i gefunden. Distanz wird ausgegeben.

Cells(i, SpalteHeute + 2).Value = SpalteHeute - j

Exit Do

End If

Loop





Next



End Sub






Aus verschiedenen Blickwinkeln betrachtet sieht ein und dieselbe Sache
unterschiedlich aus - das sollte nicht zur Ursache des Streites werden.


http://www.bahai.de/lech-ammersee/




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: