2017-09-08 23 views
3

Wie mache ich den folgenden Code-Eingang entweder "Jack" oder "John" zufällig in der Zelle A1? Momentan ist das Ergebnis immer "2":Wählen Sie einen zufälligen Wert aus dem String-Array

Sub RandomNames() 

Dim UserNames(1 To 2) As String 

UserNames(1) = "Jack" 
UserNames(2) = "John" 

Range("A1").Value = Application.WorksheetFunction.RandBetween(LBound(UserNames), UBound(UserNames)) 

End Sub 
+1

Danke, nur ein Tippfehler. – barciewicz

+1

Mit deinem Code jetzt, ohne den Tippfehler, bekomme ich 1 und 2 ziemlich gleichmäßig. –

+0

BTW: die Formel-Version: '= Wählen (RANDBETWEEN (1,2)," Jack "," John ")' –

Antwort

3

Versuchen Sie es mit randbetween auf dem Array.

Range("A1").Value = UserNames(Application.RandBetween(LBound(UserNames), UBound(UserNames))) 
+0

Vielen Dank, funktioniert perfekt. – barciewicz

Verwandte Themen