Excel - VBA

[MSCom]

Hallo Zusammen!


Kann mir jemand sagen, wie ich es einfacher gestallten kann? Ich muss dies von Zeile 2 bis 1915 machen.


LG Nikola


Sub WennDann()
If Range("G2") = "" Then
Range("D2") = Range("H2")
Else
Range("D2") = "0"
End If

Range("E2", "F2").ClearContents


If Range("G3") = "" Then
Range("D3") = Range("H3")
Else
Range("D3") = "0"
End If

Range("E3", "F3").ClearContents


If Range("G4") = "" Then
Range("D4") = Range("H4")
Else
Range("D4") = "0"
End If

Range("E4", "F4").ClearContents