Office: Makro zum Vergleichen von 2 Zellenwerten

Hi, ich habe folgendes Problem. Ich möchte Per Makro 2 Zellen miteinander Vergleichen während die eine Zelle immer um einen bestimmten Wert erhöht wird. Hier wird bei jeder änderung der Zelle eine Berechnung druchgeführt. Sobald Zelle1 (dies ist die Zelle wo erhöht wird) = Zelle2 (diese Zelle Kann durch Benutzer auf anderem Sheet geändert warden) gleich sind soll das Sub verlassen warden.

Sub x1()


If Range("D14") = Range("H21") Then
Exit Sub
Else: Range("D14").Value = Range("D14").Value - 0.05
End If


End Sub

Das ist mein bisheriger Versuch.
Dieses Sub ist nur zum vergleichen der Zellen und bei ungleichheit zur erhöhung oder erniedigung der einen Zelle.
LG
trendark

:)

 

Hi,

bei dir wird der Wert verringert, nicht erhöht.

 

Hi,
da hast du recht Karin in *biggrin.gif* soll in diesem Fall auch so sein das Makro wird für mehrere verschiedenen Anwendungen benötigt. Mein Hauptproblem ist eigentlich, dass die Zellen schon verglichen warden und wenn ich mit dem gleichen Wert die Berechnung starte das Sub sich auch schließt. allerdings bei veränderung des Werts durch das Sub ist die Abbruchbedinung anscheinend falsch.

Lg
trendark

 

Hi,

hast du den Code mal im Einzelschrittmodus ablaufen lassen? Er macht doch genau das was du willst: wenn beide Werte gleich sind wird die Sub verlassen, sind sie nicht gleich, wird 0,05 subtrahiert.

 

Ja der Meinung bin ich eigentlich auch. Das Problem liegt glaube ich darin, dass durch die Verringerung der Zahl neue Werte aus einem Index gezogen warden welche dann unteranderem mit dem Solver Berechnungen anstellen und ich dann ein Zwischenergebnis speichere dannach den Wert wieder verringere. Aber komischer weiße wird die Berechnung für den Wert an dem die Zellen gleich sind richtig ausgeführt aber der erhofte Sub abbruch bleibt aus. Weiß mir da echt beim besten Willen nichtmehr zuhelfen *frown.gif* schon gefühlt alles Probiert *biggrin.gif* Villeicht kann man ja das Problem auch mit einem anderen Ansatz lösen stehe aber leider momentan etwas frustiert auf nem Schlauch.

Lg
trendark

 

Dazu kann ich nichts sagen da ich deine Mappe und die konkreten Bedingungen nicht kenne. Wie schon gesagt - der Code scheint korrekt zu sein. Das Einzige was ich mir logisch vorstellen kann ist, dass nie identische Werte ereicht werden und deshalb kein Abbruch erfolgt.

 

Vielleicht hilft ja der ganze Code weiter. Habe mir auch schon die Schritte einzeln anzeigen lassen. Also der Wert wird definitive erreicht.

Hier der Code:

Sub Solver()
SolverSolve UserFinish:=True
End Sub
Sub x1()

If Range("R39") = Range("H21") Then
Exit Sub
Else: Range("D14").Value = Range("D14").Value - 0.05
End If

End Sub
Private Sub worksheet_change(ByVal target As Range)
If Range("F16") = Range("D16") Then Exit Sub
Range("D16") = Range("F16")
Call Solver
Dim nextRow As Long
nextRow = [x65536].End(xlUp).Row + 1
Range("X" & nextRow) = [R36].Value
Call x1
End Sub

 

Wie schon geschrieben: ohne die Arbeitsmappe mit den konkreten Bedingungen sehen zu können gibt es keine Möglichkeit, das prüfen zu können.