Hallo,
wenn ich es richtig interpretiert habe, existiert ein Userform mit zwei Textfeldern.
Wenn in den Textfeldern ein Textinhalt eingetragen werden soll kann Beispielsweise folgender Code eingesetzt werden:
Dim Rang() As Variant
Dim Ergebnis() As Variant
Sub Initialize()
Rang = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11)
' Beispiel Ergebnisse:
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
Beim Aufruf wird der Text "Hallo " und "368748 " korrekt in die Textfelder eingesetzt, da das Rang(1) und Ergebnis(1) identische Werte haben.
LG, BigBen
|