ich möchte gerne in dem UF_Summry ins ListBox die Zeilen 1,2 und 89 bis 94
des Worksheets AutoAus einfügen beim start des USerForm.
https://www.herber.de/bbs/user/39057.xls
Wie muß so etwas aussehen?
gruß
swen
Private Sub UserForm_Activate()
Dim vWerArr As Variant
Dim vInhArr(10, 6) As Variant
Dim iZeile As Integer
Dim iSpalte As Integer
vWerArr = Array(1, 2, 89, 90, 91, 92, 93, 94)
For iZeile = 0 To 7
For iSpalte = 0 To 5
vInhArr(iZeile, iSpalte) = Cells(vWerArr(iZeile), iSpalte + 1)
Next iSpalte
Next iZeile
ListBox1.List = vInhArr
End Sub
Private Sub UserForm_Initialize()
Dim vWerArr As Variant
Dim vInhArr(10, 6) As Variant
Dim iZeile As Integer
Dim iSpalte As Integer
ListBox1.ColumnCount = 6
vWerArr = Array(1, 2, 89, 90, 91, 92, 93, 94)
For iZeile = 0 To 7
For iSpalte = 0 To 5
vInhArr(iZeile, iSpalte) = Cells(vWerArr(iZeile), iSpalte + 1)
Next iSpalte
Next iZeile
ListBox1.List = vInhArr
End Sub