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ß WernerDie erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen