nachdem mein erstes Problem ("Listbox wurde nicht befüllt", danke nochmals an Peter, Boris und Rudi) in diesem Forum hervorragend beantwortet wurde, habe ich erneut eine Frage an euch.
Ich habe Peters Code (aus dem vorherigen Beispiel) , der in einer Testdatei hervorragend funktioniert hat auf eine neue Datei übertragen. In dieser Datei habe ich, im Gegensatz zu vorher, die ListBox in zwei Multipage eingebettet, das bedeutet ich kann über die erste Multipage das Werk und über die zweite die Auswahl über den Bereich treffen, der eine bestimmte Liste ansteuert.
Jetzt versuche ich, auf jeder der einzelnen Seiten (6 insgesamt) eine Listbox einzufügen, die 20 der vorhandenen Werte aus der angesteuerten Liste anzeigt. (Ich hoffe an der Stelle, dass es bis jetzt verständlich ist). Die Tabelle, die ich gerade ansteuere ist die Tabelle37.
Dazu habe ich folgenden Code hinterlegt:
Private Sub Autofill()
Const lastEntries = 20
Dim IngZeile As Long
Dim IngZeileMax As Long
Dim i As Integer
Me.ListBoxA_Reaktor.Clear
With Tabelle37
IngZeileMax = .Cells(.Rows.Count, 1).End(xlUp).Row
For IngZeile = WorksheetFunction.Max(1, IngZeileMax - lastEntries + 1) To IngZeileMax
Me.ListBoxA_Reaktor.AddItem .Cells(IngZeile, 1).Value
Me.ListBoxA_Reaktor.Column(1, i) = .Cells(IngZeile, 2).Value
Me.ListBoxA_Reaktor.Column(2, i) = .Cells(IngZeile, 3).Value
Me.ListBoxA_Reaktor.Column(3, i) = .Cells(IngZeile, 4).Value
Me.ListBoxA_Reaktor.Column(4, i) = .Cells(IngZeile, 5).Value
Me.ListBoxA_Reaktor.Column(5, i) = IngZeile
i = i + 1
Next IngZeile
End With
End Sub
Und diesen Code:
Private Sub Userform_Initialize()
Dim i As Integer
With Tabelle37
Me.Caption = .Range("E5").Value
For i = 1 To 10
Me.Controls("Label" & i).Caption = .Cells(5, i).Value
Next i
End With
With Me.ListBoxA_Reaktor
.ColumnCount = 6
.ColumnWidths = "80;80;80;80;80;10"
End With
Call Autofill
Me.BoxA_Werk_Reaktor.SetFocus
End Sub
Er gibt mir keine Fehlermeldung aus, wenn ich starte, zeigt mir nur nicht die Inhalte der Tabelle an. Ich danke euch jetzt schon für eure Unterstützung!Viele Grüße Max