Function mit 2 Parametern funzt nicht
29.10.2004 11:47:48
MarkusM
habe mich an folgender Funktion versucht(is` meine erste...):
Function find_delta(target_range As String, dT As Integer) As Double
Dim count As Integer
Dim actual As Double
Dim diff As Double
count = 10
diff = 0
Start = Cells(count, 7).Value 'Startwert in Zelle G10
Do
count = count + 1
actual = Cells(count, 7).Value 'aktueller wert in G(count)
diff = actual - Start 'Differenz zum Startwert
Loop Until diff > dT ' ende wenn differenz dT zum Startwert gefunden ist
Range(target_range) = Range("F" & count).Value 'und zugehörigen Wert in Spalte F zurückgeben
End Function
Die Funktion soll einen Startwert in G10 solange mit den Werten in G11,G12....vergleichen bis die Differenz >dT ist und dann den zugehörigen Wert in Spalte F zurückgeben und indie Zelle (target_range im gleichen Arbeitsblatt schreiben..
Wenn ich die Fuction mit
sub()
find_delta("L5", 5)aufrufe
.
.
(also schreibe den Wert aus Spalte F nach einer Erhöhung um 5 in Spalte G nach Zelle L5 kommt immer ein erwartet:= )
Was ist da falsch???
Danke & Gruß
Markus