AW: Zeitbedarf zum Schreiben
27.02.2007 08:15:00
Frank
Na klar...
Sub WerteSchreiben(Anzahl)
ScreenUpdating = False
Call ÜbersichtErstellen(Anzahl) 'Blatt erstellen 'Leeres Blatt erstellen, Überschriften _
schreiben
For i = 1 To Anzahl
Info.Label1 = "Wertliste für " & Azubi(i, 0) & " wird geschrieben"
Info.Label2 = "Einen Moment bitte..."
Info.Show (0)
DoEvents
If Azubi(i, 4) = "" Then
Azubi(i, 8) = "n.f."
Else
Azubi(i, 8) = Azubi(i, 5) / Azubi(i, 4)
End If
If Azubi(i, 6) = "" Then
Azubi(i, 9) = "n.f."
Else
Azubi(i, 9) = Azubi(i, 7) / Azubi(i, 6)
End If
'Schreiben Azubidaten
For j = 0 To 9
Cells(i + 1, j + 1) = Azubi(i, j)
Next j
For j = 10 To 130
If Azubi(i, j) <> "" Then Cells(i + 1, j + 1) = Azubi(i, j)
Next j
For j = 131 To 250
If Azubi(i, j) <> "" Then Cells(i + 1, j + 1) = Azubi(i, j)
Next j
Cells(i + 1, 251) = Azubi(i, 251)
Next i
End Sub
Ich habs über Time abgefragt, dieser Code benötigt ca 30 sek zur Bearbeitung