ohne große Umschweife:
ich erhalte folgende Meldung: Laufzeitfehler 381, Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftsfeldes ungültig. Und beim Debug ... Eigenschaft List konnte nicht abgerufen werden.
Umstände: ich wähle aus einer Tabelle in unterschiedlicher Reihenfolge verschiedene Zeilen (je nachdem, welche ich gerade brauche). Daraufhin werden diese Zeilen in ein neues Blatt kopiert. Sie halten allerdings die Zeilennummer bei. Was in der Tabelle Aktionen auf der 4. Zeile war, bleibt auch in Tabelle S2 auf der 4. Zeile. Einige Zeilen sind in der Tabelle S2 dann halt leer. Die 7. 3. 9. oder so sind dann wieder z.B. wieder vorhanden.
Untenstehendem Code wird dann die ZeileNr in der etwas steht, mitgeteilt. Anschließend kopiert das Modul z.B. die 4. Zeile in die Listbox. Hier sollte sie auch in der 4. Zeile auftauchen.
Wenn ich aber nach der 4. Zeile eine 2. Zeile in Tabelle Aktionen wähle (die dann ja auch in die zweite Zeile in Tabelle S2 kopiert wird) gibt es diesen Fehler.
Es hängt wohl mit den unterschiedlichen Zeilenpositionen in der Tabelle zusammen. Fülle Listbox kommt wohl nicht damit zurecht, dass dann nach der 4. Zeile auch eine 2. oder 1. belegt werden soll.
Private Sub FülleListboxS2(ZeileS2 As Long)
Dim RowS2 As Integer
RowS2 = ZeileS2
Hauptfeld.ListBoxStatus2.ColumnCount = 9
Hauptfeld.ListBoxStatus2.AddItem
Hauptfeld.ListBoxStatus2.ColumnWidths = "2cm;2cm;2cm;2cm;3cm;3cm;3cm;2cm"
Hauptfeld.ListBoxStatus2.ListIndex = 0
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 0) = Sheets("S2").Cells(ZeileS2, 2).Value ' _
Gemeinde
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 1) = Sheets("S2").Cells(ZeileS2, 3).Value ' _
Ortsgemeinde
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 2) = Sheets("S2").Cells(ZeileS2, 4).Value ' _
FhrzTyp
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 3) = Sheets("S2").Cells(ZeileS2, 5).Value ' _
name
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 4) = "verst.: " & Format(Worksheets("S2"). _
Cells(ZeileS2, 6).Value, "hh:mm:ss") 'verständigt
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 5) = "startklar : " & Format(Worksheets("S2"). _
_
Cells(ZeileS2, 7).Value, "hh:mm:ss") 'ist da
Hauptfeld.ListBoxStatus2.List(RowS2 - 1, 8) = "Auftrag : " & Sheets("S2").Cells(ZeileS2, _
_
10).Value 'Aufträge
End Sub
Ich habe momentan den Überblick verloren. Hatte sich ganz gut angelassen (1, 2, 3, usw. in der Reihenfolge geht; als ich dann die Reihenfolge veränderte 3, 1, 2 .... ging es schief).Diese unreglemäßige reihenfolge müsste ich beibehalten. Die Einträge aus der 1. Listbox werden nach einer bestimmten Zeit in ein zweite geschoben, und anschließend in der ersten gelöscht (ich überschreibe die stelle mit einem Leerzeichen).
Könnt Ihr mir da mal auf die Sprünge helfen?
Vielen Dank
Jörg