Beim Aktivieren der CB dauert Einlesen zu lange
25.07.2007 14:01:00
Josef
Beim Aktivieren eines Wertes in der cboNamen3 dauert das Einlesen in die TextBox1 sehr sehr lange.
Anzahl der Datensätze immerhin bereits 40800.
Gibt es eine Möglichkeit das das Einlesen in die Textbox schneller geht?
Es wird schon eingelesen, aber erst nach zweimal ESC drücken.
Private Sub cboNamen3_Change()
On Error Resume Next
Dim r%
Dim Suche As Range
Dim wks As Worksheet
Set wks = Workbooks("Masterfile.xls").Worksheets("Tabelle1")
cboNamen3.Text = cboNamen3.Column(0) & " " & cboNamen3.Column(1)
Set Suche = wks.Range("AA:AB").Find(cboNamen3.Value, LookIn:=xlValues, LookAt:=xlWhole, _
SearchOrder:=xlByRows)
If (Not Suche Is Nothing) Then '
Danke
Josef
Anzeige