Inputbox, Wert zur Berechnung verwenden
Maxkuba
wie kann ich in eine Formel den eingegebenen Wert aus einer Inputbox verwenden? Hab leider in der Suche nix passendes gefunden..
Dim myInp As Integer
myInp = InputBox("Eingabe bitte im Format ##.##")
' Eingabeüberprüfung
' If Not myInp Like "#.##" And Not myInp Like "##.##" Then Exit Sub
' Ausgabe des Dezimalwertes
MsgBox (Evaluate("=" & myInp))
Range("V2").FormulaR1C1 = "=RC[-1]/ myInp " '-> Hier wuerde ich gerne den Wert aus der _
Inputbox zur Berechnung verwenden
Anzeige