Makro erweitern
Michael-R
ich habe folgendes VBA problem. Ich habe eine Exceldatei in der ich mir vor langer Zeit dieses Makro habe programmieren lassen. Es nimmt eigentlich ganz simpel einen Wert, varriert den und gibt dann ein Ergebnis aus.
Mich interessiert nun wie ich dieses Makro erweitern kann, damit es ebe nicht nur ein Wert variiert sondern zwei oder gar mehrere nacheinander, die alle auf ein un den selben finalen Wert Einfluss haben.
Beispiel ist wenn man ein Businesspaln analysiert, hängt die Gesamrentabilität (beispielsweise dargestelt über den internen Zinsfuß oder IRR) von mehreren Faktoren ab (preis, menge etc) . Ich wollte nun sequentiel jeweils einen parameter nacheinader variieren lassen und dann das Ergebnis (IRR) erfassen
Danke für Eure Hilfe
Michael
Sub WertetabelleGenerieren()
Set Datenblatt = ActiveSheet
neu = MsgBox("Neue Wertetabelle erstellen ?", vbYesNo + vbQuestion, "Wertetabelle")
If neu = vbYes Then
Sheets.Add after:=Sheets("Wertetabelle")
Set WerteTabelle = ActiveSheet
ElseIf neu = vbNo Then
Set WerteTabelle = Sheets("Wertetabelle")
Else
Exit Sub
End If
Datenblatt.Select
For Index = [Untergrenze] To [Obergrenze] Step [Schrittgroesse]
Range("Variable") = Index
letzteZeile = WerteTabelle.[B65536].End(xlUp).Row
'WerteTabelle.Cells(letzteZeile + 1, 1) = Index
[AusgabeBereich].Copy
WerteTabelle.Cells(letzteZeile + 1, 1).PasteSpecial Paste:=xlValues, Operation:=xlNone, _
SkipBlanks:= _
False, Transpose:=False
WerteTabelle.Cells(letzteZeile + 1, 1).PasteSpecial Paste:=xlFormats
Next
Set WerteTabelle = Nothing
Application.CutCopyMode = False
End Sub