Sub
Nullen()
Dim
a
As
Range, c
As
Range
With
Sheets(
"Final Sheet"
)
For
Each
a
In
.Range(
"E7:I212,K7:M212,O7:Q212"
).Areas
For
Each
c
In
a.Cells
If
c.Value =
""
Then
c.Value = 0
Next
c
Next
a
End
With
End
Sub
Sub
Spaltenübertragung()
Dim
c
As
Range
With
Sheets(
"Final Sheet"
)
For
Each
c
In
.Range(
"A7:A212"
)
If
c.Value = 1
Then
c.Offset(, 6).Value = _
c.Offset(, 6).Value + (c.Offset(, 4).Value - c.Offset(, 6).Value - c.Offset(, 7).Value)
End
If
Next
c
End
With
End
Sub