Schleifen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Dim I As Long, strAbfrage As String, r As Integer Dim ws As Worksheet Set ws = Worksheets("ZK") r = Range("F1").Row + 2 With ws For I = 10000 To 9999999 If I Mod 1000 = 0 Then Application.StatusBar = "Daten einlesen: " & I & " / 9999999 Datensätze" End If If Gefunden = True Then .Cells(r, 5) = strAbfrage .Cells(r, 4) = I End If Next I ...

Hallo
Aber warum dann nur knapp 10 Millionen mal ?
10 stellig würde ja bedeuten 1 Milliarde mal ;-) ?
Was ich immer noch nicht verstehe, du schreibst den Wert ja immer in die gleiche Zelle ?
"...Sheets("ZK").Cells(Sheets("ZK").Range("F1") + 2, 5) = strAbfrage..."
Anyway:
Hier ein Auszug aus der Online-Hilfe
Für deinen Bedarf müsste sich die Funktion "GetAllSettings" eignen.
Ich weiss nicht wie deine Section aufgebaut ist, sollte aber tun nach ein bischen anpassen ;-))
Für deinen Bedarf würde sich aber ein 3-Dimensionales Datenfeld anbieten
GetAllSettings-Funktion (Beispiel)
In diesem Beispiel wird zunächst die SaveSetting-Anweisung verwendet, um Einträge in der Windows-Registrierung (oder in der .INI-Datei auf 16-Bit Windows-Plattformen) für die als appname angegebene Anwendung vorzunehmen. Anschließend wird die GetAllSettings-Funktion verwendet, um die Einstellungen anzuzeigen. Namen von Anwendungen und Abschnitten (section) können mit GetAllSettings nicht abgerufen werden. Abschließend entfernt die DeleteSetting-Anweisung alle Einträge der Anwendung.


Sub Read_All_Settings()
' Variant für zweidimensionales Datenfeld, das von GetAllSettings
' zurückgegeben wird.
' Ganzzahl für den Zähler.
Dim Einstellungen As Variant, intSettings As Integer
' Einträge in der Registrierung vornehmen.
SaveSetting appname := "Anw1", section := "Startup", _
key := "Top", setting := 75
SaveSetting "Anw1","Startup", "Left", 50
' Einstellungen abrufen.
Einstellungen = GetAllSettings(appname := "Anw1", section := "Startup")
For intSettings = LBound(Einstellungen, 1) To UBound(Einstellungen, 1)
Debug.Print Einstellungen(intSettings, 0), Einstellungen(intSettings, 1)    Next intSettings
End Sub

Gruss Rainer

Sub read_all_settings() Dim Einstellungen As Variant 'AUSLESEN Einstellungen = GetAllSettings(appname:="HeeroSoft / ifn-Schnittstelle", _ section:="ifnDebitor") 'DAS ERSTE DATENFELD AUSLESEN UND EINTRAGEN Sheets("test").Range("A1") = Einstellungen Sheets("test").Cells(1, 1) = Einstellungen(0, 0) Sheets("test").Cells(1, 2) = Einstellungen(0, 1) 'DIE RESTLICHEN DATENFELDER AUSLESEN UND EINTRAGEN For I = 1 To UBound(Einstellungen, 1) Sheets("test").Cells(I + 1, 1) = Einstellungen(I, 0) Sheets("test").Cells(I + 1, 2) = Einstellungen(I, 1) Next I End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread