Listbox.colums bringt Laufzeitfehler 381
16.10.2012 12:39:29
VG
ich möchte die Daten einer externen Tabelle in meiner Userform in eine Listbox schreiben. Dazu gibt es 2 Alternativen:
1. Alle Daten sollen übernommen werden
Dies realisiere ich über eine CheckBox. Siehe If...
2. Nur die Daten, die in Spalte 1 einer vorher eingegebenen Kundennr. entsprechen.
Wenn die CheckBox nicht angeklickt ist, dann muss der Eintrag in Spalte 2 der Kundennummer entsprechen. Siehe ElseIf...
1. funktinoniert problemlos
2. bringt mir den Laufzeitfehler 381 !?!
Unten der entsprechende Code.
Wenn ich den "kursiven" Teil in der ElseIf-Anweisung lösche, dann werden wiederum "alle" Daten übernommen, d.h. die Codierung der Listbox-Anw. ist grundsätzlich ok.
Bin etwas ratlos. Wer kann mir helfen?
Vielen Dank im Voraus.
Grüße,
VG
Sub AngeboteAktualisieren()
Hauptformular.lstAngebote.Clear
With Hauptformular.lstAngebote
.ColumnCount = 8
.ColumnWidths = "50;50;150;50;100;100;50"
End With
Workbooks.Open ThisWorkbook.Path & "\Daten\Angebote.xls", ReadOnly:=True, _
IgnoreReadOnlyRecommended:=False
k = 0
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If chkAlleAnzeigen Then
Hauptformular.lstAngebote.AddItem Cells(i, k + 1)
For j = 0 To 7
Hauptformular.lstAngebote.Column(j, k) = Cells(i, j + 1).Value
Next j
ElseIf Cells(i, 2) = Kundennummer Then
Hauptformular.lstAngebote.AddItem Cells(i, k + 1)
For j = 0 To 7
Hauptformular.lstAngebote.Column(j, k) = Cells(i, j + 1).Value
Next j
End If
k = k + 1
Next i
ActiveWorkbook.Close
End Sub