Laufzeitfehler '1004' Anwendungsfehler
16.05.2022 09:59:21
Max
Ich melde mich erneut mit einem Problem an euch. Und möchte mich jetzt schon für die ganze Hilfe in den letzten Tagen bedanken! Ich bin total begeistert, wie hilfsbereit die Menschen hier sind!
Zu meinem Problem: Ich habe es inzwischen (mit eurer Hilfe) geschafft, dass es mir die Inhalte aus der Tabelle in der Listbox angezeigt werden. Jetzt möchte ich die Eigenschaft hinzufügen, dass ich den Eintrag aus der ListBox anwählen kann und es mir die Inhalte in die Textfelder überträgt. Versuche ich das, zeigt es mir den Fehler '1004' "Anwendungs- oder objektbezogener Fehler" an. Beim Debuggen wählt er folgende Zeile aus:
Private Sub ListBox1_Maschine1_Click()
Dim IngZeile As Long
Dim i As Integer
IngZeile = Me.ListBoxA_Reaktor.Column(1, Me.ListBoxA_Reaktor.ListIndex)
For i = 1 To 10
Me.Controls("TextBox" & i).Value = Tabelle37.Cells(IngZeile, i).Value (er zeigt mir diese Zeile an)
Next i
Außerdem habe ich das Problem, dass es mir nur den ersten Eintrag meiner Listbox vollständig anzeigt, von den anderen Einträgen bildet er mir nur eine Zeile ab. Ich vermute, dass hängt mit meiner Autofill Funktion zusammen:
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.AddItem .Cells(IngZeile, 1).Value
Me.ListBoxA.Column(1, i) = .Cells(IngZeile, 1).Value
Me.ListBoxA.Column(2, i) = .Cells(IngZeile, 8).Value
Me.ListBoxA.Column(3, i) = .Cells(IngZeile, 12).Value
Me.ListBoxA.Column(4, i) = .Cells(IngZeile, 13).Value
Me.ListBoxA.Column(5, i) = .Cells(IngZeile, 14).Value
Me.ListBoxA.Column(6, i) = .Cells(IngZeile, 15).Value
Me.ListBoxA.Column(7, i) = .Cells(IngZeile, 16).Value
Me.ListBoxA.Column(8, i) = .Cells(IngZeile, 17).Value
Me.ListBoxA.Column(9, i) = .Cells(IngZeile, 18).Value
Next IngZeile
End With
Jetzt schon vielen Dank für eure Unterstützung!
Beste Grüße Max