worksheet change 2 Subs zusammenführen
Jan
ich habe hier diesen hübschen Code in zwei Subs, den ich wohl in eine zusammenfügen muss, da die Worksheet_change funktion scheinbar nur einmal verwendet werden kann. Eigentlich müsste ich die Funktion viermal anwenden, da ich vier Spalten "behandeln" möchte. Alle meine Versuche und Basteleien waren bisher von Misserfolg gekrönt - Kann mir jemand einen Tipp hinsichtlich Deklaration und Umsetzung geben?
Zu Erläuterung: Die Funktion schreibt den Wert aus Spalte x in Spalte y, wenn Eintrag x erfolgt. Falls x wieder gelöscht wird, wird wieder eine Formel eingesetzt.
Besten Gruß,
Jan
Private Sub Worksheet_Change1(ByVal Target As Range)
If Target.Column 13 Then Exit Sub
If Cells(Target.Row, 13) > 0 Then
Cells(Target.Row, 11) = Target
End If
If Cells(Target.Row, 13) = 0 Then
Cells(Target.Row, 11).FormulaR1C1 = "=RC[-4] * RC[-5]"
End If
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
If Target.Column 24 Then Exit Sub
If Cells(Target.Row, 22) > 0 Then
Cells(Target.Row, 22) = Target
End If
If Cells(Target.Row, 24) = 0 Then
Cells(Target.Row, 22).FormulaR1C1 = "=RC[-4] * RC[-5]"
End If
End Sub