Array Werte für function
07.05.2020 08:55:33
MCO
Aus der Hilfe zu einem Beitrag (https:\/\/www.herber.de/forum/messages/1757332.html) wollte ich eigentlch eine Funktion machen, scheitere aber daran, dass ich die Werte, die ich einer Funktion abfrage nicht verarbeitet bekomme...
Tabellenaufbau
| M5-2 | M1-3 | M2-3 | M3-3 | M4-3 | M5-3 | PH | BP1-E |
|---|---|---|---|---|---|---|---|
| 1,00 | 30,00 | 7,00 | 2,00 | 2,00 | - | - |
| M5-2 | M1-3 | M2-3 | M3-3 | M4-3 | M5-3 | PH | BP1-E |
|---|---|---|---|---|---|---|---|
| 1 | 30 | 7 | 2 | 2 | 0 | =min_preis(L6:O6) |
Die dazupassende funktion sieht so aus:
Public Function min_preis(werte) As Long
'Value2 gibt hier 4 Werte wieder, jedoch im format (1/1)(1/2)(1/3)(1/4)
wert_arr = Array(WorksheetFunction.Transpose(werte.Value2))
Dim wert As Range
For Each wert In werte
If wert > 0 Then min_preis = WorksheetFunction.Min(wert, minpreis)
Next wert
End Function
Value2 gibt hier 4 Werte wieder, jedoch im format (0/0)(0/1)(1/0)(1/1)..., von denen immer nur der 2te Wert belegt ist.
Kann mir jemand auf die Sprünge helfen, wie ich die Werte so umwandle, dass ich sie gebrauchen kann?
Vielen Dank!
Gruß, MCO