Evaluate @Sort Zahlen

[robertpp]

Hallo,

Ich hab da ein kleines Problem wo ich gerade nicht weiterkomme.
Ich habe dieses Script das auch normal funktioniert:
Sub Click(Source As Button)
   Dim iString As String
   Dim i(3) As String
   Dim iSort1 As Variant
   Dim iSort2 As Variant
   i(0) = "345"
   i(1) = "233"
   i(2) = "12"
   i(3) = "112"

   
   iString = Implode( i , " : " )
   iSort1 = Evaluate( |@Sort(| & iString & |)|)
End Sub

Jetzt will ich die Zahlen jedoch nicht mit String sondern mit Integer haben und bekomme das einfach nicht hin:

   Dim i2 As Variant
   i2 = Evaluate (|112 : 345 : 233 : 12|)   
   iSort2 = Evaluate(|@Sort(112 : 345 : 233 : 12)|)

So wie es jetzt da steht geht es auch noch, ich will aber bei @Sort die Variable i2 übergeben und nicht die Zahlen direkt in der Formel hinterlegen!

[Axel]

So direkt fällt mir dazu auch nix Schlaues ein. Evaluate will als Parameter einen String.

Was funktionieren könnte wäre, die Integer - Werte in ein Mehrfachfeld zuschreiben und mit Evaluate auf dieses Feld zuzugreifen. Bin mir aber nicht sicher ob das bei dir möglich ist, da ich nicht weiß wo und wie du das einsetzen willst. Ist aber nur mal ein Denkanstoß.


Axel
 

[TRO]

Mal abgesehen von der Frage nach dem Sinn...

   Dim i2 As Variant
   i2 = Evaluate (|112 : 345 : 233 : 12|)   
   'iSort2 = Evaluate(|@Sort(112 : 345 : 233 : 12)|)
   iSort2 = Evaluate(|@Sort( | & Implode( i2 , " : " ) & | )|)

und die Member des Variant iSort2 sind vom Typ double.

hth

Thomas

[robertpp]

Danke!

iSort2 = Evaluate(|@Sort( | & Implode( i2 , " : " ) & | )|)

So, hat es jetzt funktioniert!