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