|
Hi,
wieso musst du die Userform mehrmals aufrufen?
Warum nicht einfach so?:
Dim i%
Dim arr(3, 1)
Private Sub UserForm_Initialize()
arr(0, 0) = 2016
arr(0, 1) = "MA1"
arr(1, 0) = 2013
arr(1, 1) = "MA4"
arr(2, 0) = 2014
arr(2, 1) = "MA4"
arr(3, 0) = 2016
arr(3, 1) = "MA4"
TextBox1 = arr(0, 0)
TextBox2 = arr(0, 1)
End Sub
Private Sub cmdWeiter_Click()
If i > 2 Then i = 0
wechseln 1
End Sub
Private Sub cmdZurück_Click()
If i < 1 Then i = 3
wechseln -1
End Sub
Private Sub wechseln(x%)
i = i + x
TextBox1 = arr(i, 0)
TextBox2 = arr(i, 1)
End Sub
Gruß
Till
|