range löschen
21.09.2006 01:04:03
manuela
in meiner arbeitstabelle habe ich in b1:b365 das tagesdatum erfasst. in spalte c1:c365 kommen die dienste pro tag des mitarbeiters, in d die vonzeit in e die biszeit usw. über eine userform erfasse ich den namen und das eintrittsdatum des mitarbeiters. wenn er jetzt z.b. am 15.9. eintritt, dann will ich den bereich b1 (1.1.06) bis w257 (14.9.06) löschen. mein makro funktioniert schon, es löscht die angaben zeilenweise und das dauert ein bisschen lange. da gibt es sicher eine schlauere lösung.
danke für die hilfe
manuela
Dim i As Integer
For i = Cells(Rows.Count, 2).End(xlUp).Row To 1 Step -1
If Cells(i, 2) kleiner Datum Then Range(Cells(i, 3), Cells(i, 23)).ClearContents
Next i