Lösungsansatz für VBA

[Luffffy]

Moin Leute,

ich brauche mal wieder eure Hilfe in Bezug auf die Berechnung der Zielerreichungsgrade [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
Kurz vllt. zur Vorgehensweise:
In einer Eingabemaske kann man einen minimalen und einen maximalen Zielerreichungswert eingeben.
Beispiel: min. Zielerreichungsgrad von 50% = 200 und max. ZEG von 150% = 600.
Klickt man nun auf ok, wird zwei Zellen weiter links ein Wert entnommen (kann €, %, kg, etc. sein), der mit in die Berechnung mit einbezogen wird, um den Zielerreichungsgrad für diesen Wert auszugeben.
Am besten ich zeige kurz die Berechnung.


Code:

Code:

Application.EnableEvents = True
If Target.Column = 14 Then
Target.Offset(0, 2).NumberFormat = "General"
    Dim numericCheck As Boolean
    numericCheck = IsNumeric(Target.Value)
   
    If Target.NumberFormat = "0.00%" Then
        currentValue = CDbl(Target.Value) * 100
    Else
        currentValue = Target.Value
    End If
    lowBorder = Target.Offset(0, 12) 'immer das 50% feld'
    highBorder = Target.Offset(0, 13) 'immer das 150 % feld'
   
       
'wenn der minimale Erreichungsgrad die größere Zahl ist'
If lowBorder > highBorder Then
    If currentValue <= highBorder Then
         Target.Offset(0, 2) = "150 %"
    ElseIf currentValue >= lowBorder Then
         Target.Offset(0, 2) = "50 %"
    Else
         Target.Offset(0, 2) = Round(50 + 100 * ((lowBorder - currentValue) / (lowBorder - highBorder)), 2)
    End If
   
End If
'wenn der maximale Erreichunggrad die größere zahl ist'
If lowBorder < highBorder Then
    If currentValue >= highBorder Then
         Target.Offset(0, 2) = "150 %"
    ElseIf currentValue <= lowBorder Then
         Target.Offset(0, 2) = "50 %"
    Else
         Target.Offset(0, 2) = Round(50 + 100 * ((lowBorder - currentValue) / (lowBorder - highBorder)), 2)
    End If
   
End If

End If
End Sub

Die Funktion wird also auf Spalte 14 angewendet und in Spalte 12 werden Werte eingegeben, die sich auch ändern. Der Zielerreichungsgrad soll sich demnach immer anpassen.
Prinzipiell funktioniert die Formel, aber zwei Probleme bekomme ich nicht in den Griff. Hoffe, ich bekomme das halbwegs verständlich rüber [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
]
1. Ich möchte meinen Zielerreichungsgrad mit zwei Nachkommastellen angeben. Kommt jedoch ein rundes Ergebnis heraus, hängt er nicht ",00" an.
2. Jetzt zu dem größeren Problem... Sobald es sich um Prozentwerte handelt, haut er mir teilweise komplett falsche Werte raus. Bin mir nicht sicher, wie ich da weiter vorgehen soll. Irgendwie funktioniert es auch nicht, die Prozentwerte als General auszugeben. Das wäre auch nicht unbedingt meine Musterlösung. Am liebsten wäre mir, wenn ich egal in welchem Format, alle Berechnungen durchführen kann.

Für jeden Lösungsvorschlag bin ich sehr dankbar.

Beste Grüße

[schauan]

Hallöchen,

wenn ich eine Zelle als Zahl mit zwei Nachkommastellen formatiere, werden selbige auch unabhängig von ,00 ausgegeben.

Du verrechnest also mal absolute Werte und mal Prozente? Was soll denn da rauskommen? 184 können 100% sein, aber wann Du aus 1 eine 100 machst, hat das dann doch nichts mit dem Absolutwert zu tun. Müsstest Du nicht erst mal feststellen, wieviel 100% sind und diese Zahl als Faktor nehmen? Das müsste bei meiner 184 dann auch selbige Zahl sein und nicht 100.. Wie sieht denn so eine falsche Zahlenreihe aus?