Thema Datum  Von Nutzer Rating
Antwort
Rot GoalSeek Goal
 12.09.2011 16:20:28 Lina
***
NotSolved
13.09.2011 09:42:20 Dekor
NotSolved
13.09.2011 10:00:34 Gast64912
NotSolved
13.09.2011 12:15:13 Dekor
NotSolved

Ansicht des Beitrags:
Von:
Lina		 Datum:
12.09.2011 16:20:28		 Views:
1827		 Rating:
     
Antwort:
  Ja
Thema:
GoalSeek Goal		 
Hallo alle zusammen, 

ich bin Lina und brauche dringend Hilfe von einem, gerne auch mehreren Experten. 

Und zwar versuche ich den erstandenen Wert in D1164 zu ermitteln. 

D118= -500
D119= leer
D120= -25
B118- B120 = leer
F1095= 14902,37
D1164= -466,92

Ich verstehe einfach nicht was Goal.Seek Goal=0 mach :( 

Ich würde den Wert gernen manuell errechnen können ohne dieses VBA zu benutzen!


hier das Modul:

'Preis 
Range("D118:D120").Select
    Selection.Copy
    Range("B118").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=False
    Application.CutCopyMode = False
    
    Range("F1095").Select
    Range("F1095").GoalSeek Goal:=0, ChangingCell:=Range("D118")
    Range("D118").Select
    Selection.Copy
    Range("D1164").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    
    Range("B118:B120").Select
    Selection.Copy
    Range("D118").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False

 

Vielen Dank euch allen,

Lina

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot GoalSeek Goal
 12.09.2011 16:20:28 Lina
***
NotSolved
13.09.2011 09:42:20 Dekor
NotSolved
13.09.2011 10:00:34 Gast64912
NotSolved
13.09.2011 12:15:13 Dekor
NotSolved