Ich habe in einer Userform Comboboxen. Nach dem ich meine Daten von der Combobox an das Tabellenblatt übergeben haben, hätte ich gerne das in der Combobox nicht der Text drin steht den ich zuletzt ausgewählt habe. als Beispiel ist folgender Code für eine Cbo aufgeführt.
Private Sub cboArtikel_Change()
Dim rngZelle As Range
Dim strStart As String
With Worksheets("Tabelle1")
Set rngZelle = .Columns(1).Find(cboArtikel.Value, lookat:=xlWhole)
If Not rngZelle Is Nothing Then
Do
If rngZelle.Offset(0, 1) = cboName.Value Then
txtPreis = rngZelle.Offset(0, 2)
Exit Do
End If
Set rngZelle = .Columns(1).FindNext(rngZelle)
Loop While strStart rngZelle.Address --> Hier ist das Problem!!!
End If
End With
End Sub
Wenn ich nun die Daten an das Tabellenbaltt übergeben habe und den Code cboArtikel.clear ausführe dann kommt folgenden Meldung
Laufzeitfehler 91:
Objektvariable oder With-Blockvariable nicht festgelegt.