Office: ListBox Laufzeitfehler 381

Hallo zusammen,

ich habe ein Problem das ich bereits seit 2 Tagen nicht gelöst bekomme.
An der Stelle ListBox1_Change meckert er immer wenn er in den Sub TextBoxList wechselt. Dabei markiert er die Zeile "TextBox7 = Format(.List(.ListIndex, 0), "DD.MM.YYYY")" gelb und begrüßt mich mit der Meldung:
Laufzeitfehler 381: Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftenfelds ungültig.

Auch stundenlange Suche im Forum hat mir bislang nicht weitergeholfen.
Ich bitte um Unterstützung.

Anbei der Code:

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub CommandButton2_Click()
Dim i As Long

ListInd = ListBox1.ListIndex
bol = True
With ThisWorkbook.Sheets("Daten")
.Cells(ListBox1.ListIndex + 2, 1) = Format(TextBox7, "DD.MM.YYYY")
.Cells(ListBox1.ListIndex + 2, 5) = TextBox8
.Cells(ListBox1.ListIndex + 2, 7) = TextBox9
.Cells(ListBox1.ListIndex + 2, 8) = TextBox10
.Cells(ListBox1.ListIndex + 2, 9) = TextBox11
.Cells(ListBox1.ListIndex + 2, 10) = TextBox12
.Cells(ListBox1.ListIndex + 2, 11) = TextBox13
End With

For i = 7 To 13
Me.Controls("TextBox" & i) = ""
Next i
ListBox1.Clear
Call t
ListBox1.ListIndex = ListInd
Call TextBoxList
MsgBox "Daten wurden korrigiert!"
ActiveWorkbook.Save
End Sub

Private Sub CommandButton6_Click()
Dim neuereihe As Long
Worksheets("Daten").Activate
neuereihe = Range("A65536").End(xlUp).Row + 1
auswahl = Application.GetOpenFilename()
If Not auswahl = False Then TextBox13 = auswahl
End Sub

Private Sub ListBox4_Click()
TextBox8.Value = ListBox4.Text
End Sub

Private Sub ListBox5_Click()
TextBox10.Value = ListBox5.Text
End Sub

Private Sub ListBox6_Click()
TextBox11.Value = ListBox6.Text
End Sub

Private Sub CommandButton4_Click()
Dim i As Long
If ListBox1.ListIndex = 0 Then Exit Sub
ListBox1.ListIndex = ListBox1.ListIndex - 1
End Sub

Private Sub CommandButton5_Click()
Dim i As Long
If ListBox1.ListIndex = ListBox1.ListCount - 1 Then Exit Sub
ListBox1.ListIndex = ListBox1.ListIndex + 1
End Sub

Private Sub ListBox1_Change()
Dim i As Long
If bol Then bol = False: Exit Sub
For i = 7 To 13
Me.Controls("TextBox" & i) = ""
Next i
Call TextBoxList
End Sub

Private Sub UserForm_Initialize()
Dim i As Long, DatArr As Variant
Dim j As Long, l As Long
Dim Zeile As Integer
Dim Zeilemax As Integer

Me.StartUpPosition = 0
Me.Left = Application.Left + (0.5 * Application.Width) - (0.5 * Me.Width)
Me.Top = Application.Top + (0.5 * Application.Height) - (0.5 * Me.Height)

Call Sort

With ThisWorkbook.Sheets("Daten")
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
DatArr = .Range("A2:L" & .Cells(Rows.Count, 1).End(xlUp).Row)
ListBox1.List = DatArr
ListBox1.ListIndex = 0
ListBox1.ColumnWidths = "1,5cm;0cm;0cm;0cm;3cm;2,5cm;2cm;2cm;3cm;3cm;0cm;0cm;0cm"
End If
End With

With Me.ListBox4
.AddItem "Einnahmen"
.AddItem "Ausgaben"
.AddItem "Vormerkung"
End With

With Me.ListBox5
For l = 2 To 1001
.AddItem Worksheets("Daten").Range("H" & l).Value
Next l
End With

With Me.ListBox5
.Visible = False
For i = .ListCount - 2 To 0 Step -1
For j = .ListCount - 1 To i + 1 Step -1
If .List(i) = .List(j) Then .RemoveItem j
Next j
Next i
.Visible = True
End With

With Me.ListBox6
For l = 2 To 1001
.AddItem Worksheets("Daten").Range("I" & l).Value
Next l
End With

With Me.ListBox6
.Visible = False
For i = .ListCount - 2 To 0 Step -1
For j = .ListCount - 1 To i + 1 Step -1
If .List(i) = .List(j) Then .RemoveItem j
Next j
Next i
.Visible = True
End With
Call TextBoxList
End Sub

Public Sub Sort()
Columns("A:A").Select
ActiveWorkbook.Worksheets("Daten").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Daten").Sort.SortFields.Add Key:=Range("A2:A1001") _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortTextAsNumbers
With ActiveWorkbook.Worksheets("Daten").Sort
.SetRange Range("A1:L1001")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

Sub t()
Dim DatArr As Variant

With ThisWorkbook.Sheets("Daten")
If .Cells(Rows.Count, 1).End(xlUp).Row > 1 Then
DatArr = .Range("A2:L" & .Cells(Rows.Count, 1).End(xlUp).Row)
ListBox1.List = DatArr
ListBox1.ListIndex = 0
End If
End With
End Sub

Private Sub TextBoxList()
With ListBox1
TextBox7 = Format(.List(.ListIndex, 0), "DD.MM.YYYY")
TextBox8 = .List(.ListIndex, 4)
TextBox9 = .List(.ListIndex, 6)
TextBox10 = .List(.ListIndex, 7)
TextBox11 = .List(.ListIndex, 8)
TextBox12 = .List(.ListIndex, 9)
TextBox13 = .List(.ListIndex, 10)
End With
End Sub

:)

 

Ohne Beispieldatei ... baut Dir das kieiner nach

Ansonsten, der Fehler sagt im Grunde schon alles. Aber da Du den geposteten Code nicht selber erstellt hat, kannst Du ihn auch nicht beheben.

Und stundenlang gesucht ... na ja ... wer's glaubt

 

Der Code ist selber erstellt...wenn die Fehlermeldung doch so aussagekräftig ist, wäre ich für Hilfe dankbar.

 

LOL, prove it
Und dann run time error 381 nicht wechseln können.

Siehe Link oben

Und wie gesagt, Beispieldatei ...

 

Ich bin kein vba Profi. Ich bin aus den Suchen nicht schlau geworden.
Es liegt wohl am Index aber an der Stelle hänge ich aktuell.

Über hilfreiche, konstruktive Beiträge wäre ich dankbar.

Ein bashing meiner Person brauche ich nicht

 

Last Call: Beispieldatei (das dritte Mal!)
Code:

 

Hallo,

ergänze mal den Code:

Code:

Grüße
EarlFred

 

Als Rückmeldung erhalte ich 0

 

und danach den besagten Fehler?

 

Das Thema Beispieldatei scheint ja schwierig zu sein

 

Ja danach erscheint der Fehler.

 

OK, "trocken" gelesen ist der Code in Ordnung und auch an MEINER Mustermappe kann ich den Fehler nicht nachvollziehen.

Die unlustige Raterunde ist hier für mich beendet. Viel Erfolg bei der Lösung.