Ausgehend von mehreren Inputvariablen, soll entschieden werden, welche dieser
Inputvariablen die kleinste ist. Dazu gibts eine WorksheetFunction:

a=range("t_Option1")
b=range("t_Option2")
c=range("t_Option3")
min1 = WorksheetFunction.Min(a,b,c)

Kann anstelle von der einzelnen Aufführung in .Min(a,b,c) eine
Zusammenfassung gemacht werden (im Stile von "From ... to ...")?

Gruss, Cornelius

Hi, Cornelius,

Try:

Sub Test()
Dim a As Range, b As Range, c As Range
Dim min1 As Double
Set a = Range("A1")
Set b = Range("A2")
Set c = Range("A3")
min1 = WorksheetFunction.Min(a, b, c)
End Sub

---
Regards,
Norman



"Cornelius Ehrat" <Cornelius wrote in
message ...
Ausgehend von mehreren Inputvariablen, soll entschieden werden, welche
dieser
Inputvariablen die kleinste ist. Dazu gibts eine WorksheetFunction:

a=range("t_Option1")
b=range("t_Option2")
c=range("t_Option3")
min1 = WorksheetFunction.Min(a,b,c)

Kann anstelle von der einzelnen Aufführung in .Min(a,b,c) eine
Zusammenfassung gemacht werden (im Stile von "From ... to ...")?

Gruss, Cornelius

Hi Cornelius,

I think that I misread your question, try

Sub Test2()
Dim a As Range, b As Range, c As Range
Dim rng As Range, rCell As Range
Dim min1 As Double
Dim blFirstValue As Boolean

Set a = Range("t_Option1")
Set b = Range("t_Option2")
Set c = Range("t_Option3")
Set rng = Union(a, b, c)

blFirstValue = True

For Each rCell In rng
With rCell
If IsNumeric(rCell) Then
If blFirstValue = True Then
min1 = .Value
Else
If .Value < min1 Then min1 = .Value
End If
End If
End With
blFirstValue = False
Next
MsgBox min1
End Sub

--

---
Regards,
Norman



"Cornelius Ehrat" <Cornelius wrote in
message ...
Ausgehend von mehreren Inputvariablen, soll entschieden werden, welche
dieser
Inputvariablen die kleinste ist. Dazu gibts eine WorksheetFunction:

a=range("t_Option1")
b=range("t_Option2")
c=range("t_Option3")
min1 = WorksheetFunction.Min(a,b,c)

Kann anstelle von der einzelnen Aufführung in .Min(a,b,c) eine
Zusammenfassung gemacht werden (im Stile von "From ... to ...")?

Gruss, Cornelius