Code verbessern, Ablauf beschleunigen möglich?
28.06.2004 09:46:10
Andy
dank fantastischer Hilfe in diesem Chat habe ich eine Kontrolle,
ob in einer Datei fälschlicher Weise was am Wochenende eingegeben
wurde. Dieser Code:
=================================================================
Sub WE_loeschen()
PW_entf 'Paßwort löschen
Dim iIndxA As Long
Dim iIndxI As Integer
Application.ScreenUpdating = False ' kein Bildschirm Update
For iIndxA = 1 To Range("A65536").End(xlUp).Row ' von 1 bis Ende
If Weekday(Range("B" & iIndxA).Value) = 1 Or _
Weekday(Range("B" & iIndxA).Value) = 7 Then ' Sonnabend/Sonntag ?
For iIndxI = 3 To 256
Cells(iIndxA, iIndxI).Value = "" ' auf leer löschen
Next iIndxI
End If
Next iIndxA ' nächster Eintrag
Application.ScreenUpdating = True ' Bildschirm Update
PW_setzen 'Paßwort setzen
End Sub
Mein Dienstplan sieht folgendermaßen aus:
Also immer beginnend mit D2 und Endend je nach dem mit V457 oder
ein Paar Spalten später. Das richtet sich nach der letzten be-
füllten Spalte in Zeile 1 (wobei nicht jede Zelle in Zeile 1 be-
schrieben sein muss). Wie kann ich also schneller kontrollieren,
ob die Eingabe an einem Wochenende erfolgte oder nicht? Geht
das überhaupt, den Code so umzugestalten, dass die Kontrolle ganz
schnell abläuft?
Wäre schön, wenn jemand eine Idee hat.
Gruß
Andy