laufzeitfehler 381 eigenschaft list konn

Hallo zusammen,
ich sitze gerade vor folgendem Problem. Ich habe eine Bestandserfassungsliste mit einem Formular.
Es gibt zwei Felder für die schnell Ausfüllung der restlichen Produktbezogenen Daten, einmal nach HerstellerArtikelname und einmal nach Artikelnummer.
Jetzt ist es so das der Code für das Feld für HerstellerArtikelname funktioniert, der Code für die Suche nach Artikelnummer gibt aber den Laufzeitfehler 381 aus.
Der erste Code ist der der Funktionier und der zweite ist der mit dem Fehler.
Ich hoffe sehr Ihr könnt mir weiterhelfen. Vielen Dank schon mal vorab für eure Unterstützung.


Private Sub cboHerstellerArtikelname_Change()
'zieht Werte aus cboHerstellerArtikelname in Detailfelder
Me.cboHerstellerArtikelname.SetFocus
a = Me.cboHerstellerArtikelname.ListIndex
Me.txtHersteller.Value = Me.cboHerstellerArtikelname.List(a, 1)
Me.txtArtikelname.Value = Me.cboHerstellerArtikelname.List(a, 2)
Me.cboAbteilung.Value = Me.cboHerstellerArtikelname.List(a, 3)
Me.txtArtikelnummer.Value = Me.cboHerstellerArtikelname.List(a, 5)
Me.txtEAN.Value = Me.cboHerstellerArtikelname.List(a, 4)
End Sub


Private Sub cboArtikelnummer_Change()
'zieht Werte aus cboArtikelnummer in Detailfelder
Me.cboArtikelnummer.SetFocus
b = Me.cboArtikelnummer.ListIndex
Me.txtHersteller.Value = Me.cboArtikelnummer.List(b, 1)
Me.txtArtikelname.Value = Me.cboArtikelnummer.List(b, 2)
Me.cboAbteilung.Value = Me.cboArtikelnummer.List(b, 3)
Me.txtEAN.Value = Me.cboArtikelnummer.List(b, 4)
Me.txtArtikelnummer.Value = Me.cboArtikelnummer.List(b, 0)
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
nur so als Hinweis, der Fehler tritt in beiden Makros auf, sobald du einen Eintrag nicht aus der Klappliste auswählst, sondern anfängst diesen per Tastatur einzugeben.
du kannst das .List(b, 1) nur dann ausführen, wenn b einen gültigen Wert hat, also zwischen 0 der Anzahl der Einträge -1 liegt.
b ist bei dir der ListIndex.
wenn du in der Combobox einen Wert eingibst, der nicht in der Liste vorhanden ist, dann ist der ListIndex = -1 und du kannst mit diesem ListIndex nicht das .List(...) ausführen.
da du das ganze im Change-Event ausführst, wird das Makro jedesmal ausgeführt, wenn du ein Zeichen eintippst. Solange du noch keinen Eintrag vollständig eingegeben hast, wird also der ListIndex = -1 sein !
du musst also auf jeden Fall eine Prüfung einbauen wie If b &gt -1 then bevor du .List(b, ...) ausführst.
auch könntest du überlegen, ob Change das richtige Event ist ober ob du nicht lieber eines verwendest, dass erst nach vollständiger Eingabe aktiv wird und nicht sofort bei jedem Tastendruck.
Gruß Daniel

Private Sub cboHerstellerArtikelname_Change() 'zieht Werte aus cboHerstellerArtikelname in Detailfelder Dim a As Long a = cboHerstellerArtikelname.ListIndex If a > -1 Then txtHersteller.Text = cboHerstellerArtikelname.List(a, 1) txtArtikelname.Text = cboHerstellerArtikelname.List(a, 2) cboAbteilung.Text = cboHerstellerArtikelname.List(a, 3) txtArtikelnummer.Text = cboHerstellerArtikelname.List(a, 5) txtEAN.Text = cboHerstellerArtikelname.List(a, 4) End If End Sub Private Sub cboArtikelnummer_Change() 'zieht Werte aus cboArtikelnummer in Detailfelder Dim b As Long b = cboArtikelnummer.ListIndex If b > -1 Then txtHersteller.Text = cboArtikelnummer.List(b, 1) txtArtikelname.Text = cboArtikelnummer.List(b, 2) cboAbteilung.Text = cboArtikelnummer.List(b, 3) txtEAN.Text = cboArtikelnummer.List(b, 4) txtArtikelnummer.Text = cboArtikelnummer.List(b, 0) End If End Sub

Private Sub UserForm_Initialize() Dim lngIndex As Long 'füllt bestimmte Felder automatisch aus txtErfassungsdatum.Value = Date txtErfassungszeit.Value = Time 'ordnet die ComboBoxes den Tabellen zu cboErfasser.List = Range("TabErfasser").Value cboMärkte.List = Range("TabMärkte").Value cboHerstellerArtikelname.List = Range("TabSortiment").Value cboArtikelnummer.List = Range("TabSortiment2").Value cboAbteilung.List = Range("TabAbteilungen").Value cboBuchungstyp.List = Range("TabBuchungstyp").Value With cboArtikelnummer For lngIndex = 0 To .ListCount - 1 .List(lngIndex, 0) = CStr(.List(lngIndex, 0)) Next End With End Sub

Beliebteste Forumthreads (12 Monate)

laufzeitfehler 381 eigenschaft list konn

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

13 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

laufzeitfehler 381 eigenschaft list konn

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

13 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread