online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon DerMega vom 19.07.2019, 11:56 Options

VBA Schleife in Excel wird langsamer

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


Antwort schreiben

Ähnliche Themen

Flexsieble Schleife mit VBA
Trudi  20.06.2007 - 121 Hits - 2 Antworten

VBA und "-00"
Trudi  03.07.2007 - 27 Hits - 2 Antworten

Schnellreferenz Excel VBA
Joshuan  23.05.2008 - 219 Hits - 3 Antworten

VBA-Excel
mentosbasi  28.05.2008 - 350 Hits - 3 Antworten

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

Neue Einträge

Version: supportware 1.9.150 / 10.06.2022, Startzeit:Mon Jan 26 20:06:00 2026