Laufzeitfehler 381 bei Löschen Wert in Combobox

Hallo zusammen
Bin wieder mal auf ein Problem gestossen, das meine vba-Kenntnisse überfordert.
Mittels nachfolgendem Makro weise ich der ComboBox16 den ersten Wert der ComboBox17 (hat 2 _
Spalten) zu. Soweit so gut.


Private Sub ComboBox17_Change()
Me.ComboBox17.SetFocus
a1 = Me.ComboBox17.ListIndex
Me.ComboBox16.Value = Me.ComboBox17.List(a1, 1)
End Sub

Wenn ich nun durch nachfolgendes Makro die Eingabe in ComboBox17 lösche, müsste auch der Wert in ComboBox16 wieder gelöscht werden - soweit meine Theorie.


Private Sub CommandButton3_Click()
ComboBox17.Clear
Call UserForm_Initialize
End Sub

Es erscheint jedoch der Lauftzeitfehler 381 "Eigenschaft List konnte nicht abgerufen werden. Index des Eigenschaftenfelds ungültig".
Ich habe bereits versucht, die ComboBox16 durch ein Textfeld zu ersetzen, hier kommt die selbe Meldung. Aus der Online-Hilfe werde ich leider nicht schlau.
Für einen Lösungsansatz wäre ich Euch sehr dankbar.
Beste Grüsse,
George

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Dim xOk As Boolean Private Sub ComboBox17_Change() If xOk Then Me.ComboBox17.SetFocus a1 = Me.ComboBox17.ListIndex Me.ComboBox16.Value = Me.ComboBox17.List(a1, 1) End If End Sub Private Sub CommandButton3_Click() xOk = False ComboBox17.Clear Call UserForm_Initialize xOk = True End Sub

Hallo Luschi,
herzlichen Dank, es hat mit dem Lösungsansatz einer zusätzlichen Variable bestens funktioniert!
Ich musste es noch ein wenig abändern, da der Wert in ComboBox17 mit dem Klick gelöscht wurde, in ComboBox 16 aber immer stehengeblieben ist:
1. Schritt: Beim initialisieren (dies ist der 1. Schritt, habe ich vorhin weggelassen): xOK = True
2. Schritt: (wie in Deiner Lösung)

Private Sub ComboBox17_Change()
If xOk Then
Me.ComboBox17.SetFocus
a1 = Me.ComboBox17.ListIndex
Me.ComboBox16.Value = Me.ComboBox17.List(a1, 1)
End If
End Sub

3. Schritt: Hier habe ich zusätzlich noch den Inhalt von ComboBox16 gelöscht. Mit .Clear hat es nicht funktioniert (?)

Private Sub CommandButton3_Click()
xOk = False
ComboBox17.Clear
ComboBox16.Value = ""
xOk = True
Call UserForm_Initialize    'nochmals aufrufen, um alle Eingaben nochmals zu prüfen
End Sub

Du hast meinen (Arbeits-)Tag gerettet, vielen Dank!
Beste Grüsse,
George

Beliebteste Forumthreads (12 Monate)

Laufzeitfehler 381 bei Löschen Wert in Combobox

7
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 bei Löschen Wert in Combobox

7 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)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread