Schleifen
Michael
Ich muss ein Datenbestand über etwa 100 Nummern in der Registry speichern. Bei Updates sollen die wieder ausgelesen werden. Die Nummern sind zehnstellig. Das dauert also mit einer For-Next-Schleife ziemlich lange. Wie könnte ich das nun eleganter und schneller machen. Beispiel also
For I = 10000 To 9999999
Application.StatusBar = "Daten einlesen: " & I & " / 9999999 Datensätze"
strAbfrage = ""
strAbfrage = GetSetting( _
appname:="test", _
section:="Daten", _
key:=I)
If strAbfrage "" Then
Sheets("ZK").Cells(Sheets("ZK").Range("F1") + 2, 5) = strAbfrage
Sheets("ZK").Cells(Sheets("ZK").Range("F1") + 2, 4) = I
End If
Next I
Vielen Dank für Eure Hilfe
Michael Heering