Microsoft Excel

Herbers Excel/VBA-Archiv

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

vb code für funktion zielwertsuche

Betrifft: vb code für funktion zielwertsuche von: christian
Geschrieben am: 13.02.2004 17:08:17

hallo zusammen
ich möchte gerne eine funktion analog der "zielwertsuche" in vba programmieren.
hat mir jemand ein mustercode oder bietet mir sonst seine hilfe an?

gruss christian


p.s. das eigentliche problem liegt meiner meinung nach in der eingabe des zielwertes!! welchen ich bereits in einer zelle eingetragen habe.

  


Betrifft: AW: vb code für funktion zielwertsuche von: Heinz Ulm
Geschrieben am: 14.02.2004 17:26:28

Hallo Christian,

mal ein Versuch:

G7 : wert
G8 : Wert
G9 : Formel

folgendes Makro löst die Zielwertsuche aus:

Sub Zielwert()
'
    Dim Zielwert As Integer
    Dim Zelle As String
    
    
    Zielwert = InputBox("Welcher Wert?")
    Zelle = InputBox("Welche Zelle?")
    
    If Zelle = "G7" Then
    Range("G9").GoalSeek Goal:=Zielwert, ChangingCell:=Range("G7")
    End If
    If Zelle = "G8" Then Range("G9").GoalSeek Goal:=Zielwert, ChangingCell:=Range("G8")


End Sub


Du kannst den Zielwert und die veränderbare Zelle jetzt bestimmen.

Gruß Heinz


  


Betrifft: AW: vb code für funktion zielwertsuche von: christian
Geschrieben am: 16.02.2004 10:40:02

Merci Heinz

hab deinen Code noch dahingehend angepasst, dass auch "Long" Werte eingegeben werden können. Funktioniert einwandfrei!!!

gruss christian

Sub Zielwert()

    Dim Zielwert As Long
    Dim Zelle As Long
    
    Range("G8") = 1
    
    
      
    Zielwert = Range("G7")
    Zelle = Range("G8")
    
    If Zelle = Range("G7") Then
    Range("G9").GoalSeek Goal:=Zielwert, ChangingCell:=Range("G7")
    End If
    If Zelle = Range("G8") Then Range("G9").GoalSeek Goal:=Zielwert, ChangingCell:=Range("G8")


End Sub



  


Betrifft: AW: vb code für funktion zielwertsuche von: christian
Geschrieben am: 16.02.2004 10:40:11

Merci Heinz

hab deinen Code noch dahingehend angepasst, dass auch "Long" Werte eingegeben werden können. Funktioniert einwandfrei!!!

gruss christian

Sub Zielwert()

    Dim Zielwert As Long
    Dim Zelle As Long
    
    Range("G8") = 1
    
    
      
    Zielwert = Range("G7")
    Zelle = Range("G8")
    
    If Zelle = Range("G7") Then
    Range("G9").GoalSeek Goal:=Zielwert, ChangingCell:=Range("G7")
    End If
    If Zelle = Range("G8") Then Range("G9").GoalSeek Goal:=Zielwert, ChangingCell:=Range("G8")


End Sub



Beiträge aus den Excel-Beispielen zum Thema " vb code für funktion zielwertsuche"