Sub diffkgrechnen()
Dim i As Integer
With Sheets(1)
For i = 6 To 10
If .Cells(i, 5) <> "" And .Cells(i, 4) <> "" Then
.Cells(i, 6) = Format(.Cells(i, 5) - .Cells(i, 4), "0,000")
Else
Cells(i, 6) = ""
End If
Next i
End With
End Sub
Sub diffkgrechnen()
Dim i As Integer
With Sheets(1)
For i = 6 To 10
If .Cells(i, 5) <> "" And .Cells(i, 4) <> "" Then
.Cells(i, 6) = .Cells(i, 5) - .Cells(i, 4)
.Cells(i, 6).NumberFormat = "#,##0.000;#,##0.000"
Else
Cells(i, 6) = ""
End If
Next i
End With
End Sub
Sub diffkgrechnen()
Dim i As Integer
With Sheets(1)
For i = 6 To 10
If .Cells(i, 5) <> "" And .Cells(i, 4) <> "" Then
.Cells(i, 6) = .Cells(i, 5) - .Cells(i, 4)
.Cells(i, 6).NumberFormat = "#,##0.000;#,##0.000"
Else
Cells(i, 6) = ""
End If
Next i
End With
End Sub
Sub diffkgrechnen()
Dim i As Integer
With Sheets("Wareneingang")
For i = 5 To 22
If .Cells(i, 8) <> "" And .Cells(i, 7) <> "" Then
.Cells(i, 10) = .Cells(i, 8) - .Cells(i, 7)
.Cells(i, 10).NumberFormat = "#,##0.000;#,##0.000"
Else
Cells(i, 10) = ""
End If
Next i
End With
End Sub