nein hat es nicht. Hier mal der Ausschnitt des Makros.
If lngTmpZ = 0 Then ListBox1.Clear: Exit Sub
arrtmp = Application.Transpose(arrtmp)
ReDim Preserve arrtmp(1 To UBound(arrData, 2), 1 To lngTmpZ)
If lngTmpZ = 1 Then
ListBox1.Column = arrtmp
Else
ListBox1.List = Application.Transpose(arrtmp)
End If
End Sub
mit ist aufgefallen das im makro Weiter_Click() die userform nur ausgeblendet wird. hier sollte ein unload me statt dem Me.hide stehen.
Damit die Werte für die Controls neu eingelesen werden.
|