Hallo Marten,
kann dir eine For-Schleife helfen?
Sub Montagevorspannkraft()
Dim Abschnitt, S, N, M, Zeile, Spalte, Zeile2, Spalte2 As Integer
Abschnitt = 0
For S = 1 To 3
Zeile = S + Abschnitt
Zeile2 = S + 1 + Abschnitt
If Cells(Zeile, 16) = "" or If Cells(Zeile2, 16) = "" Then
Cells(Zeile, 17) = ""
Else
Cells(Zeile, 17) = Cells(Zeile, 16) + Cells(Zeile2, 16)
End If
Abschnitt = Abschnitt + 13
Next
End Sub
Gruß Detlev
|