Ich habe in einer Mappe Sheets mit den Namen KW_01, KW_02 bis KW_53
Könnte man für alle Sheets einmal den Code anwenden ?
Range("A1:C100") = Range("A1:I100").Value
Danke
SG, Heinz
Public Sub Test()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
If Left(ws.Name, 2) = "KW" Then
With ws
.Range("A1:C100") = .Range("A1:I100").Value
End With
End If
Next ws
End Sub
Gruß Werner