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
Danke, nur ein Tippfehler. – barciewicz
Mit deinem Code jetzt, ohne den Tippfehler, bekomme ich 1 und 2 ziemlich gleichmäßig. –
BTW: die Formel-Version: '= Wählen (RANDBETWEEN (1,2)," Jack "," John ")' –