Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema InputBox
BildScreenshot zu InputBox InputBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen

Zielwertsuche über Eingabaufforderung

Betrifft: Zielwertsuche über Eingabaufforderung von: Rupert
Geschrieben am: 13.10.2004 18:55:42

Hallo Leute,

Ich würde gerne über ein eingabefeld eine Zielwertsuche generieren.

Das heisst, ich habe in B3 eine zahle von "1" stehen, will nun wissen welche zahl in B1 Stehen muss um den einen bestimmten Prozentsatz zu erreichen.

Dieser Prozentsatz müsste sich über die Eingabemaske eingeben lassen.

Habe schon google bemüht, jedoch nicht das passende gefunden.

Herzlichen Dank schon im Voraus

Rupert

  


Betrifft: AW: Zielwertsuche über Eingabaufforderung von: Bert
Geschrieben am: 13.10.2004 19:03:56

Zielwertsuche gibts doch als Funktion im Menü Extras.

Bert


  


Betrifft: AW: Zielwertsuche über Eingabaufforderung von: Rupert
Geschrieben am: 13.10.2004 19:13:48

Soweit weiss ich das, möchte es gerne auf einen Button legen.

Gruss rupert


  


Betrifft: AW: Zielwertsuche über Eingabaufforderung von: Ulf
Geschrieben am: 13.10.2004 19:59:44

"um den einen bestimmten Prozentsatz zu erreichen."

Prozentsatz wovon?

Ulf


  


Betrifft: AW: Zielwertsuche über Eingabaufforderung von: rupert
Geschrieben am: 13.10.2004 20:50:12

angenommen

A 1 (veränderbarer Wert)
A 2 (Fixer Wert)
A 3 (Formel in %)

Der Sollwert ist veränderbar


  


Betrifft: AW: Zielwertsuche über Eingabaufforderung von: rupert
Geschrieben am: 14.10.2004 09:09:23

ich hab mal das gefunden

Private Sub CommandButton1_Click()
Dim Zielwert As Integer
    Dim Zelle As String
    
    
    Zielwert = InputBox("Welcher Wert?")
    Zelle = InputBox("Welche Zelle?")
    
    If Zelle = "C7" Then
    Range("D12").GoalSeek Goal:=Zielwert, ChangingCell:=Range("C7")
    End If
End Sub


aber dies funktioniert nich ganz, weil ich als Wert "60%" nehmen will und dann kommt, "laufzeitfehler 13, Typen unvertäglich"

jemand noch ne idee

gruss rupert


 

Beiträge aus den Excel-Beispielen zum Thema "Zielwertsuche über Eingabaufforderung"