Dim Rang() As Variant
Dim Ergebnis() As Variant
Sub Initialize()
Rang = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
Ergebnis = Array(8, 2, 7, 4, 3, 6, 8, 2, 7, 2, 2)
End Sub
Private Sub UserForm_Initialize()
Call Initialize
If Rang(1) = Ergebnis(1) Then
Me.TextBox1.Value = "Hallo"
Me.TextBox2.Value = "368748 "
End If
End Sub