Änderung des Funktionsaufruf Arbeitsblattes
06.06.2005 13:41:17
koblinski
Die Idee ist, daß der Wert in "val" in "sr" gesucht wird. Wenn gefunden, dann den zugehörigen Wert in "vr" zurückgeben. Wenn der Wert in "val" mehrmals vorkommt, sollen die Spalten nach der Spalte in der der Funktionsaufruf steht mit den jeweiligen Werten aus "vr" aufgefüllt werden. Und da hakt es...
Wer findet den Fehler?!
Public
Function pickVal(val As Variant, sr As Range, vr As Range)
Dim fc As Range
Dim i, j, col, row As Integer
col = Application.Caller.Column
row = Application.Caller.row
i = 0
j = 0
For Each c In sr
If c.Value Like val Then
If i = 0 Then
pickVal = vr.Offset(j, 0).Cells(1, 1).Value
i = i + 1
Else
Cells(row, col + i).Value = vr.Offset(j, 0).Cells(1, 1).Value
i = i + 1
End If
End If
j = j + 1
Next
If i = 0 Then
pickVal = "N/F"
End If
End Function