Moin alle zusammen.
Folgende Problemstellung
Ich habe eine Accessabfrage die aus mehren Zeilen besteht. Ich möchte den niedrigsten Wert einer Zeile (nicht Spalte) ermitteln. Das Ergebnis soll als Euro ausgegeben werden
Der niedrigste Wert wird mit folgender Lösung ausgegeben. Mein Problem ist aber, das ich das Ergebnis als als Euro haben möchte, damit ich in einer weiteren Abfrage verschiedene EURO- Werte mit dieser vergleichen kann.
Folgende Lösung habe ich auf die Reihe bekommen.
Public Function MeinMin(ParamArray MeineWerte() As Variant)
Dim lngIndex
If UBound(MeineWerte) >= 0 Then
MeinMin = MeineWerte(0)
For lngIndex = 1 To UBound(MeineWerte)
If (MeineWerte(lngIndex) MeinMin = MeineWerte(lngIndex)
Next lngIndex
End If
End Function
PerryR
