MAX- u. MIN-Werte sich ändernder Zellen festhalten
19.02.2015 13:55:12
Fabian
ich habe ein Performance-Problem:
Die folgende Prozedur soll die MIN und MAX-Werte aus 2 Zeilen festhalten, während sie ständig durch anderen VBA-Code geändert werden. Es werden max. 600 Spalten mit Werten gefüllt sein. Da der gezeigte Code mehrere hundert Mal ausgeführt wird, dauert das ganze sehr lang. Habt ihr eine Idee, wie ich das beschleunigen kann?
Hier der Code:
Sub Biegespannung_MIN_MAX()
Dim x As Integer
x = 0
With Worksheets("Biegebalken")
Do Until Worksheets("Biegebalken").Cells(35, x + 3).Value = ""
If .Cells(35, x + 3).Value >= .Cells(37, x + 3).Value Then
.Cells(37, x + 3).Value = .Cells(35, x + 3).Value
End If
If .Cells(35, x + 3).Value = .Cells(39, x + 3).Value Then
.Cells(39, x + 3).Value = .Cells(36, x + 3).Value
End If
If .Cells(36, x + 3).Value Danke für die Hilfe im Voraus
Fabian