Zellenabhängigkeit untereinander

Hallo,
ich habe 3 Zellen
"J30", "N30" und "U30"
diese sollen alle drei in Abhängigkeit untereinander gestellt werden.
Als ich nur noch "J30" und "N30" voneinander abhängig gemacht habe,
hat alles schön funktioniert,
dann habe ich eingefügt,
und Excel ist nur am berechnen und kommt nicht weiter.
Anscheinend habe ich hier ein endlose schleife eingebaut,
weiß nur nicht wie ?

Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address(False, False)
Case "J30"
Range("N30") = Target * 1000 / Range("P30")
Range("U30") = Target * 1000 / Range("V30")
Case "N30"
Range("J30") = Target / 1000 * Range("P30")
Range("U30") = Target * Range("O30")
Case "U30"
Range("J30") = Target * Range("V30") / 1000
Range("N30") = Target / Range("O30")
Case Else
End Select
End Sub

Habe gleich 2 Fragen dazu,
1.Wie kann ich diese Strukur arbeitsfähig machen ?
2.Wie kann ich dieselbe funktionen den weiteren 10 Zellen hinzufügen?
sprich das selbe soll gelten für die Zellen im Bereich 30 bis 40

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Select Case Target.Address(False, False) Case "J31" Range("N31") = Target * 1000 / Range("P31") Range("U31") = Target * 1000 / Range("V31") Case "N31" Range("J31") = Target / 1000 * Range("P31") Range("U31") = Target * Range("O31") Case "U31" Range("J31") = Target * Range("V31") / 1000 Range("N31") = Target / Range("O31") Case Else End Select Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errHandler Application.EnableEvents = False Select Case Target.Address(False, False) Case "J31" To "J61" Range("N" & Target.Row) = Target * 1000 / Range("P" & Target.Row) Range("U" & Target.Row) = Target * 1000 / Range("V" & Target.Row) Case "N31" To "N61" Range("J" & Target.Row) = Target / 1000 * Range("P" & Target.Row) Range("U" & Target.Row) = Target * Range("O" & Target.Row) Case "U31" Range("J" & Target.Row) = Target * Range("V" & Target.Row) / 1000 Range("N" & Target.Row) = Target / Range("O" & Target.Row) Case Else End Select errHandler: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo errHandler Application.EnableEvents = False Select Case Target.Address(False, False) Case "J30" To "J60" Range("N" & Target.Row) = Target * 1000 / Range("P" & Target.Row) Range("U" & Target.Row) = Target * 1000 / Range("V" & Target.Row) Case "N30" To "N60" Range("J" & Target.Row) = Target / 1000 * Range("P" & Target.Row) Range("U" & Target.Row) = Target * Range("O" & Target.Row) Case "U30" To "U60" Range("J" & Target.Row) = Target * Range("V" & Target.Row) / 1000 Range("N" & Target.Row) = Target / Range("O" & Target.Row) Case Else End Select errHandler: Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

Zellenabhängigkeit untereinander

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread