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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen