Supportnet / Forum / Tabellenkalkulation
VBA Schleife in Excel wird langsamer
Frage
Hallo Leute,
erstmal hallo. Bin neu hier :)
Ich hab eine Schleife in Excel die eine Spalte in einem Tabellenblatt abläuft und bei jedem Durchlauf per ODBC auf eine andere Exceldatei in deren Namensbereich zugreift und eine bestimmte Zeile ausliest.
Nun habe ich das Phänomen, dass dieser Durchlauf zum ende hin immer langsamer wird (kann ich anhand einer Progressbar verfolgen)
woran könnte das liegen?
hier mal die Schleife:
For Each Zelle In Range("C30", "C" & lastRow)
Range("A" & Zelle.Row).Value = getBezirk(Zelle.Value)
UserForm3.ProgressBar2.Value = UserForm3.ProgressBar2.Value + 1
Next
und hier der ODBC Zugriff:
Public Function getBezirk(kunde As String)
Dim sql As String
If (kunde <> "") Then
sql = "SELECT BZ FROM `BezirksDB` WHERE Debitor = " & kunde
Set rs = dbtmp.OpenRecordset(sql)
If Not rs.EOF Then
getBezirk = rs.Fields(0).Value
Else
UserForm2.TextBox1.Value = UserForm2.TextBox1.Value & kunde & Chr(13)
End If
End If
End Function
Bin für jeden Tip dankbar.
Gruß
Tobias