Fehlermeldung wenn falscher Wert in Combobox
01.02.2019 20:12:05
Markus
ich möchte über eine Combobox Kunden suchen und in einer TextBox die zugehörige Nummer ausgeben. Das klappt auch alles soweit. Einzig wenn ich in der Combobox einen nicht in der zugehörigen Auswahlspalte vorhandenen Wert eingebe kommt die Fehlermeldung "Laufzeitfehler '91' Objektvariable oder Wirth-Blockvariabel nicht festgelegt. Gibt es eine Möglichkeit diesen Fehler über eine vorherige Abfrage mit Meldung über Msg Box hinzuweisen damit die Userform nicht immer abbricht?
Folgender Code habe ich in der Userform:
Private Sub ComboBox_Kunde_Change()
'zugeh?rige Kundennummer zum ausgew?hlten Kunden in Textbox anzeigen
Projekt_neu.TextBox_KdNr = Sheets("Kunden").Range("B:B").Find(Projekt_neu.ComboBox_Kunde. _
_
Value).Offset(0, -1)
End Sub
Private Sub Userform_Initialize()
'Kundenauswahl in combobox
Dim lngZeilemax As Long
lngZeilemax = Sheets("Kunden").UsedRange.Rows.Count
With Me.ComboBox_Kunde
.RowSource = "Kunden!B2:B" & lngZeilemax
'.Style = fmStyleDropDownList
.ListIndex = -1 'beginnt in der ersten Zeile
.ListRows = 5 '5 Kunden werden angezeigt dann dropdown
End With
End Sub
Markus