Loop, oder geht's anders.
15.01.2005 01:53:44
Fritz
Ich habe mir einen "Dynamischen Kalender" gebastelt. Unten wird abgeschnitten, und oben wird angefügt. Die Prozedur wird mit dem Öffnen der Mappe in Gang gesetzt und hat den Sinn, dass ich Fristen auch über ein Jahr setzen kann. Ich habe bemerkt, dass beim Öffnen der Mappe unheimlich viel Zeit vergeht und hätte das gern etwas schneller. Frage: Ist die Loop-Schleife da richtig oder kann man das schneller lösen?
Sub DynKal()
Dim zeile As Integer
Dim wks As Worksheet
Dim i As Integer
Dim StartDatum As Date
Dim enddatum As Date
enddatum = Date + 365
Set wks = Sheets("Kalender")
For zeile = 1 To 800
If wks.Cells(zeile, 1) = Date - 84 Then
wks.Range(Cells(1, 1), Cells(zeile, 1)).EntireRow.Delete
Exit For
End If
Next zeile
i = 1
wks.Range("A1000").End(xlUp).Select
Do Until ActiveCell = enddatum
If ActiveCell < enddatum Then
ActiveCell.Offset(1, 0) = ActiveCell + 1
ActiveCell.Offset(1, 0).Select
End If
i = i + 1
Loop
End Sub
Es kommt hinzu, dass noch eine Feiertagsfunktion mitläuft, die ja wohl bei jedem "select" initialisert wird, wenn ich mich nicht täusche.
Für einen nächtlichen Tipp wäre ich sehr dankbar.
Gruß, Fritz