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:
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