If Then Else anders/nochmal
03.03.2004 12:58:25
TinoB
muß mich noch mal mit einem problem an euch wenden. gestern habe ich beschrieben, das wenn ich in die SpalteG zb die zahl 10 eingebe die nachfolgende berechnung durchgeführt wird. dies funktioniert auch. nur ist es so, dass sich nicht nur die SpalteG, sondern auch die Spalten mit den einzelnen werten verändern. so wie es hier unten steht, ist es ja so, das man immer den wert in der SpalteG noch mal neu eingeben müsste, damit die berechnung ausgeführt wird. besser wäre es, wenn man nach änderungen in der tabelle einen button mit einem makro zum NeuBerechnen belegt. es müsste also so sein, Wenn in SpalteG die 10 Dann führe Berechnung1 aus und das ergebnis gibt er in der gleichen Spalte andere Zelle (in diesem fall AA) zurück, Wenn in SpalteG die 11 Dann führe Berechnung2 aus usw.; sonst Eenn Zelle leer soll er nichts machen. ist so was möglich? und wenn, könnte mir jemand ein kurzes beispiel schreiben?
Danke
Tino
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 7 And Target.Row >= 20 Then
Select Case Target
Case 10: Cells(Target.Row, 27) = (Cells(Target.Row, 11) + Cells(...
Case 11: Cells(Target.Row, 27) = ((Cells(Target.Row, 11) ...
Case 20: Cells(Target.Row, 27) = (2 * ((Cells(Target.Row, 11) ...
Case 21: Cells(Target.Row, 27) = Cells(Target.Row, 1) * ...
End Select
End If
End Sub