M
MSCom
Neuer Benutzer
Threadstarter
- Dabei seit
- 20.09.2016
- Beiträge
- 1
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
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