verbessern mit Schleife geht das ?
30.06.2004 11:59:46
marc
wie kann ich den unten stehenden Code verbessern
bzw.durch Schleifeneinsatz verkuerzen ?
-
marc.
Option Explicit
Sub WeekValuesDel()
Dim wks As Worksheet
Dim wbk As Workbook
Workbook.Open Filename:="C:\Liste\Bericht.xls"
Worksheets("KA").Range("B3:G31").ClearContents
Worksheets("BR").Range("B3:G31").ClearContents
Worksheets("SL").Range("B3:G31").ClearContents
Worksheets("KWs").Range("B3:G31").ClearContents
Worksheets("WRA").Range("B3:G31").ClearContents
Worksheets("Mo01").Range("C7:J16").ClearContents
Worksheets("Di01").Range("C7:J16").ClearContents
Worksheets("Mi01").Range("C7:J16").ClearContents
Worksheets("Do01").Range("C7:J16").ClearContents
Worksheets("Fr01").Range("C7:J16").ClearContents
Worksheets("KW_Ges01").Range("C7:J16").ClearContents
Worksheets("Mo01").Range("G2:H3").ClearContents
Worksheets("Di01").Range("G2:H3").ClearContents
Worksheets("Mi01").Range("G2:H3").ClearContents
Worksheets("Do01").Range("G2:H3").ClearContents
Worksheets("Fr01").Range("G2:H3").ClearContents
Worksheets("KW_Ges01").Range("G2:H3").ClearContents
Worksheets("D.KA").Range("A3:B22").ClearContents
Worksheets("D.BR").Range("A3:B22").ClearContents
Worksheets("D.SL").Range("A3:B22").ClearContents
Worksheets("D.K'w").Range("A3:B22").ClearContents
Worksheets("D.Wra").Range("A3:B22").ClearContents
Worksheets("D.Ges").Range("B2:T6").ClearContents
wbk.Save
wbk.Close
End Sub