15.10.2020, 10:36 (Dieser Beitrag wurde zuletzt bearbeitet: 15.10.2020, 10:46 von THM.)
Hallo Zusammen, ich hoffe es kann mir jemand bei meinem Problem weiterhelfen. Die 3 Variablen B2, C2 und D2 durchlaufen einige Formeln und es kommt am Ende ein Ergebnis C10 raus. Dieses muss größer gleich 120 sein. Falls C10 durch Verändern der Variablen C2 und/oder D2 unter 120 fällt muss auf B2 solange ein bestimmter Wert (z.B. 0,2) addiert werden bis C10 auf 120 steigt. Kann mir jemand weiterhelfen?
Vielen Dank im Voraus
Gruß THM
Raumkurve n.xlsx (Größe: 10,97 KB / Downloads: 3)
Danke Lutz das funktioniert. Es wäre aber schön wenn das ganze automatisch starten würde wenn der Wert C10 durch Verändern der Variablen C2 und D2 unter 120 fällt
15.10.2020, 18:12 (Dieser Beitrag wurde zuletzt bearbeitet: 15.10.2020, 18:13 von Ego.)
Hallo T...,
automatisch starten geht mit einem Ereignismakro:
Zitat:Private Sub Worksheet_Change(ByVal Target As Range)
If Not (Intersect(Target, Range("C2:D2")) Is Nothing) Then
If Range("C10").Value < 120 Then
Application.EnableEvents = False
Range("C10").GoalSeek Goal:=120, ChangingCell:=Range("B2")
Application.EnableEvents = True
End If
End If
End Sub
helmut
Für mich ist die Möglichkeit in Excel an Zellen und Bereichen Namen zu vergeben die wichtigste Funktionalität. Sie macht Formeln und den VBA-code verständlicher. Für Makros gilt die Regel: "Nur über benannte Bereiche auf den Inhalt der Zellen zugreifen."
Und wofür sind Regeln da? Um nachzudenken bevor man sie bricht.
Raumkurve n.xlsx (Größe: 10,97 KB / Downloads: 3)
