Schleife zu langsam
16.01.2018 20:12:44
Christian
ich habe eine TextBox 1 mit einem Wert. Es muss in einer geschlossenen Datei TEST.xlxs in der Spalte A nach dem Wert aus der aktuellen TextBox1 suchen. in die ListBox1 im Userform 4 der aktuellen Datei sollen alle Zeilen (Spalte 1 bis 4) gezeigt werden, bei der TextBox1 in TEST.xlsx in der Spalte A zu finden ist.
Bisher habe ich nur das gefunden:
Private Sub UserForm_Initialize()
Dim sPfad As String
Dim sName As String
Dim TypeRange As Range
sPfad = "C:\Users\Data\"
sName = "TEST.xlsx"
UserForm4.ListBox1.Clear
For Each rngZelle In Range("A1:A1500")
If Application.IsText(GetValue(sPfad, sName, "Tabelle1", TextBox1)) Then
ListBox1.AddItem GetValue(sPfad, sName, "Tabelle1", TextBox1)
End If
Next
End Sub
Hatte mit dieser Variante den Prozess grad schon am laufen, aber es dauert sehr lange. Und es werden bald wesentlich mehr als 1500 Zeilen. ;)
Hat jemand einen Rat für mich? Wäre sehr nett.
VG,
Chris
Anzeige