Hallo,
beschäftige mich ganz neu mit der Thematik "VBA". ;(
Möchte einfach den aufgenommen Makro in eine Funktion umwandeln:
Sub Makro1()
'
' Makro1 Makro
Range("D45").GoalSeek Goal:=Range("D46"), ChangingCell:=Range("D43")
End Sub
Hoffe, dass ist nicht peinlich..das ist meine Idee:
Public Function Schleif(Zielwert As Range, AnfangsWert As Range, Zelle As Range)
Range("Anfangswert").GoalSeek Goal:=Range("Zielwert"), ChangingCell:=Range("Zelle")
Wert = Zelle.Value
Schleif = Wert
End Function
Nur klappt das nicht so..;(
Mfg Felix
|