Wie bekomme ich diesen Code:
If Not Intersect(Target, Range("H22, H23, H24")) Is Nothing Then
Application.EnableEvents = False
If Target.Address = "$H$24" Then
Range("H22").Value = Range("H23").Value / Range("H24").Value
ElseIf Target.Address = "$H$22" Then
Range("H23").Value = Target * Range("H24").Value
Else
Range("H22").Value = Target / Range("H24").Value
End If
In diesen Code:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo CleanExit
If Not Intersect(Target, Range("H5, H6, H7")) Is Nothing Then
Application.EnableEvents = False
If Target.Address = "$H$7" Then
Range("H5").Value = Range("H6").Value / Range("H7").Value
ElseIf Target.Address = "$H$5" Then
Range("H6").Value = Target * Range("H7").Value
Else
Range("H5").Value = Target / Range("H7").Value
End If
CleanExit:
Application.EnableEvents = True
On Error GoTo 0
End If
End Sub
Wenn ich das einfach reinkopiere geht es nicht. H5, H6, H7 und H22, H23, H24 befinden sich auf einer Excel-Seite untereinander. Es funktioniert aber nur eines, da ich nicht weiss, wie ich H22, H23, H24 einarbeiten muss.
|