For each

Sub Verrpreis()
Dim Blatt As Worksheet
Workbooks("Kalkulation.xls").Activate
For Each Blatt In ThisWorkbook.Worksheets
For i = 19 To 30
Nr = Cells(i, 3).Value
AG = Cells(i, 4).Value
Vpreis = Cells(i, 14).Value
Artikel = Cells(14, 8).Value
'Werte in das Blatt Basis schreiben und wieder in das gerade aktuelle Blatt zurückkehren
Next i
Next Blatt
End Sub