Quelldaten Kombobox erweitern
12.01.2018 18:54:22
Florian
ich habe eine Kombobox, welche wie folgt befüllt wird:
Me.cb_pciService.RowSource = "Parameter!G2:G" & Tabelle5.Cells(Rows.Count, 7).End(xlUp).Row
Wenn der Anwender eine andere Auswahl in die Box schreibt, soll die Eingabe, nach Abfrage (Ja / Nein) in die Parametertabelle eingetragen und somit beim nächsten Aufruf auch in der Kombobox angezeigt werden.Mein Code funktioniert soweit ganz gut, denke ich. Leider stürzt Excel nach schließen der Userform ab.
Anbei mein Code für das speichern des Eintrags:
Private Sub cb_pciService_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim Existing As Boolean
Dim Succsess As Boolean
Dim Row As Integer
Dim i As Integer
Succsess = False
Row = 2
Existing = False
For i = 1 To Me.cb_pciService.ListCount - 1
If cb_pciService.Value = cb_pciService.List(i) Then
Existing = True
End If
Next
If Existing = False Then
If MsgBox("Soll '" + cb_pciService + "' der Liste hinzugefügt werden?", vbYesNo) = _
vbYes Then
Do While Succsess = False
If Tabelle5.Cells(Row, 7) = "" Then
Tabelle5.Cells(Row, 7) = cb_pciService.Value
Me.cb_pciService.RowSource = "Parameter!G2:G" & Tabelle5.Cells(Rows. _
Count, 7).End(xlUp).Row
Succsess = True
Else
Row = Row + 1
End If
Loop
End If
End If
End Sub
Hat jemand eine Idee, warum Excel abstürzt, bzw. warum das so nicht funktioniert?VG
Flo