Find
08.12.2003 15:11:55
Franz W.
bin langsam am Verzweifeln, für mich gibt's heute anscheinend nur Stolpersteine:
ich suche einen Wert aus einer Combobox in einem Tabellenbereich mit dem Namen "KdNrn", ein Bereich nur in einer Spalte, und möchte die entsprechende Zelle auswählen:
Private Sub cmbNName_Change()
Dim C As Range
Set C = Range("KdNrn").Find(cmbNName.Value, , , xlWhole)
Range(C).Select
End Sub
Beispiel: cmbNName.Value = 31
Bei " Range(C).Select " kommt die Fehlermeldung: " Keine übereinstimmenden Werte gefunden. " Es kann auch sein dass folgende Meldung kommt: " Die Methode 'Range' für ... ist fehlgeschlagen. "
Bei Überprüfung stellt sich heraus, dass: " C = Nothing ", also nichts gefunden?!? Die Zahl 31 gibt es aber definitiv in diesem Bereich!! Scheint aber nicht gefunden zu werden? Könnt Ihr mir bitte noch mal helfen!!
Vielen Dank schon mal und Grüße
Franz