Change ByVal
17.03.2021 11:22:08
AL
ich würde gerne den folgenden Code vereinfachen. Der Vorgang in Worten ausgedrückt:
Wenn in Zelle D40 nichts steht, dann soll der Wert aus K40 genommen werden.
Wenn in Zelle D41 nichts steht, dann soll der Wert aus K41 genommen werden.
... gleicher Vorgang bis Zeile 61.
Hier der seeehr umständliche Code:
Private Sub Worksheet_Change(ByVal Target As Range)
' Lochspiel
If Target.Address(0, 0) = "D40" Then
If IsEmpty(Target) Then
Target.FormulaLocal = "=K40"
End If
End If
If Target.Address(0, 0) = "D41" Then
If IsEmpty(Target) Then
Target.FormulaLocal = "=K41"
End If
End If
If Target.Address(0, 0) = "D61" Then
If IsEmpty(Target) Then
Target.FormulaLocal = "=K61"
End If
End If
End Sub
Hier ist es noch relativ einfach. Aber wenn diesen Vorgang 300mal kopieren muss, dann ist das doch recht aufwendig. Hat jemand eine Idee, wie dies vereinfacht werden kann?Danke für die Mühe.
AL