Activetae benötigst Du nicht. Ersetzt Du durch den With-Rahmen.
Punkte vor Range und Cells, somit beziehst Du DIch auf das With-Object.
Vorausgesetzt die ersten beiden Sheets sind Worksheets funktioniert folgendes:
Sub loe()
Dim i As Long, u As Integer
For u = 1 To 2
With Sheets(u)
For i = 4 To 1384 Step 46
.Range(.Cells(i, 3), .Cells(i + 44, 82)).ClearContents
Next i
End With
Next u
End Sub
Hinweis:
Wenn klar ist, dass es Arbeitsblätter sein werden, arbeite mit der Worksheets-Auflistung:
Besser also ist:
Sub loe()
Dim i As Long, u As Integer
For u = 1 To 2
With Worksheets(u)
For i = 4 To 1384 Step 46
.Range(.Cells(i, 3), .Cells(i + 44, 82)).ClearContents
Next i
End With
Next u
End Sub
|