Performance Killer - Suche Alternative
18.10.2006 13:07:37
Torsten
ich habe ein 10 Spalten mal 200 Zeilen Excelsheet und führe folgende For-Schleife aus. Das dauert leider sehr lange.
Gibt es eine Alternative die deutlich schneller ist ?
Private Sub CommandButton1_Click()
Dim iZeile As Integer
For iZeile = 7 To 600
If Range("C" & iZeile).Value > 0 Then
Rows(iZeile).Select
Selection.RowHeight = 50
End If
Next iZeile
Danke und Gruß
Torsten
End Sub