Berechnung von MIN MAX Werten

27/06/2008 - 19:00 von Nils Preuß | Report spam
Hallo,
Ich suche nach einer Möglichkeit unter Word den MIN bzw. MAX wert von
Textboxen zu berechnen.
Vorgestellt hatte ich mir etwas in der Art wie:

Dim syst As Integer
syst =Min("Split(Me.TB_RRli.Value, " / ")(0):Split(Me.TB_RRre.Value, " /
")(0)")
Me.TB_abi_re.Value = syst

nur leider scheint das so nicht zu funktionieren. Wàre für jede Hilfe
extrem dankbar, da ich eigentlich keine lust habe das mit einem

if a>b elseif c>d ...

zu lösen.

Gruß
Nils
 

Lesen sie die antworten

#1 Helmut Weber
28/06/2008 - 03:02 | Warnen spam
Hallo Nils,

vielleicht so:

Sub Macro3()
Dim sArr() As String
sArr = Split("0.6 -600 7 1117,4 -7 -800 1000")
MsgBox Min(sArr)
MsgBox Max(sArr)
End Sub

Public Function Min(Arr) As Single
Dim l As Long
Dim m As Single
m = CSng(Arr(0))
For l = 1 To UBound(Arr)
If CSng(Arr(l)) < m Then
m = CSng(Arr(l))
End If
Next
Min = m
End Function

Public Function Max(Arr) As Single
Dim l As Long
Dim m As Single
m = CSng(Arr(0))
For l = 1 To UBound(Arr)
If CSng(Arr(l)) > m Then
m = CSng(Arr(l))
End If
Next
Max = m
End Function


Gruß

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Ähnliche fragen