VBA Schneller Zeile finden als mit do loop
12.02.2014 07:46:25
Andre
ich habe mir einen Code geschrieben, der mir eindeutig zu lange dauert und möchte diesen mit Excel Funktionen beschleunigen hat da jemand ein Tipp?
Hier mein Code:
Do
If ExcelWkb.Application.ActiveSheet.Cells(k, Ust_Zeile).Text = Auswertung(1) And _
ExcelWkb.Application.ActiveSheet.Cells(k, Adresse_Zeile).Text = Auswertung(3) Then
Exit Do
End If
k = k + 1
Loop Until ExcelWkb.Application.ActiveSheet.Cells(k, Satz_Zeile) = ""
Ich öffne eine andere Excel Tabelle mit mehr als 5000 Einträge suche mir raus, wo die beiden Kennungen sind und merke mir die Zeile, damit ich diese dann weiter bearbeiten kann.
Vielen Dank
LG André