verbessern mit Schleife geht das ?

hallo zusammen,
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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub WeekValuesDel() Dim wks As Worksheet Dim wbk As Workbook Workbooks.Open Filename:="C:\Liste\Bericht.xls" For Each wks In Worksheets(Array("KA", "BR", "SL", "KWs", "WRA")) wks.Range("B3:G31").ClearContents Next For Each wks In Worksheets(Array("Mo01", "Di01", "Mi01", "Do01", "Fr01", "KW_Ges01")) wks.Range("C7:J16,G2:H3").ClearContents Next For Each wks In Worksheets(Array("D.KA", "D.BR", "D.SL", "D.K'w", "D.Wra")) wks.Range("A3:B22").ClearContents Next Worksheets("D.Ges").Range("B2:T6").ClearContents wbk.Save wbk.Close End Sub

Sub WeekValuesDel() Dim wks As Worksheet Dim wbk As Workbook Workbook.Open Filename:="C:\Liste\Bericht.xls" Sheets(Array("KA", "BR", "SL", "KWs", "WRA")).Range("B3:G31").ClearContents Sheets(Array("Mo01", "Di01", "Mi01", "Do01", "Fr01", "KW_Ges01")).Range("C7:J16,G2:H3").ClearContents Sheets(Array("D.KA", "D.BR", "D.SL", "D.K´w", "D.Wra")).Range("A3:B22").ClearContents Worksheets("D.Ges").Range("B2:T6").ClearContents wbk.Save wbk.Close End Sub

Beliebteste Forumthreads (12 Monate)

verbessern mit Schleife geht das ?

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread