VBA Schleifen beschleunigen: Arrays?

Option Explicit Dim x, y, z As Long Dim MonatName As String Sub Testr() Application.ScreenUpdating = False Application.Calculation = xlCalculationManual For x = 2 To Tabelle1.UsedRange.SpecialCells(xlCellTypeLastCell).Row For y = 17 To Workbooks("Actual.xlsx").Worksheets("Sales Download").UsedRange.SpecialCells( _ xlCellTypeLastCell).Row If Left(Tabelle1.Cells(x, 1), 12) = Left(Workbooks("Actual.xlsx").Worksheets("Sales _ Download").Cells(y, 20), 12) Then MonatName = Workbooks("Actual.xlsx").Worksheets("Sales Download").Cells(y, 34) z = InStr("xxJanFebMarAprMayJunJulAugSepOctNovDec", Left(MonatName, 3)) / 3 Tabelle1.Cells(x, 1 + z) = Workbooks("Actual.xlsx").Worksheets("Sales Download"). _ Cells(y, 28) End If Next y Debug.Print x & " of " & Tabelle1.UsedRange.SpecialCells(xlCellTypeLastCell).Row Next x Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

dim arrA dim arrB dim arrC dim z arrA = Range("A10:A20").Value arrB = Range("B10:B20").Value redim arrC(1 to Ubound(arrA, 1), 1 to 1) for z = 1 to Ubound(ArrA, 1) arrC(z, 1) = arrA(z, 1) * arrB(z, 1) Next Range("C10").Resize(Ubound(arrC, 1), Ubound(arrC, 2)).value = arrC

Hallo Luc,
Ich konnte beim Dritten mal gleich doppelt antworten, allerdings ist das mit der Archivtechnik etwas umständlich! :D Also hier weiter:
Der Code ist mir leider um einiges zu komplex, und beim 2ten absatz deiner Erklärung habe ich leider nur Bahnhof verstanden (und es hat ein paar traumatische (:P) Erinnerungen an MathematikVorlesungen in der Uni geweckt).
Ich versuche mal zu rekapitulieren:
ZBereich: Bereich mit einer Liste für jede Zeile im Output. Zbereich(12) gibt mir also eine Liste mit allen Werten der Reihe 12. Der ZBereich wird befüllt mit allen nicht leeren Zeilen von Output.
Frage: Wenn ich das so richtig verstanden habe, warum ist dann der Zbereich "zu Groß" definiert. Zählt das Programm nicht nur bei vollen Zeilen eins hoch, d.h. wenn 50% der Zeilen leer sind, ist das Array nur bis zur Hälfte beschrieben und die zweite Hälfte ist leer?
UND: muss, damit die Erste Zeile korrekt geschrieben wird, nicht zu Beginn iz auf 0 (oder 1?) gesetzt werden?
QBereich(3) = Array mit 4 Feldern für jede Zeile der Mappingliste, Felder werden gefüllt mit den entsprechenden Werten der Spalten 20, 31, 33 und 49 aus dem Mappingfile
Soviel zu Bereichen...
Match:
Jetzt sucht er die Konstante (die ich in meinem Programm irgendwie durch pro Zeile variablen Zellbezug in "Output" ersetzen muss) in der Liste QBer(0), also in Output, Spalte 20
Findet er was, geht er die drei Optionen durch und schreibt den Wert in die Entsprechende Liste an die Stelle, die der Spalte in der Combobox entspricht.
Frage: Um jetzt den Suchwert für jede Zeile in Output zu verändern, packe ich diesen Codeabschnitt

On Error Resume Next: zR = .Match(txSuBeg, QBer(0), 0)
On Error GoTo fx
If CBool(zR) Then
For iz = 1 To UBound(ZBer)
For ix = 1 To 3
If CBox(ix)  "" Then ZBer(iz)(CBox(ix)) = QBer(ix)(zR)
Next ix
Next iz
End If

In eine Schleife mit x = 1 to UBound(ZBer)? Oder hab ich da nen knick in der Logik?
Weiter im Code:
Dann setzt er eine Range auf Zelle1 und löscht die Inhalte von Output.
Und bei der Letzten Zeile verließen sie ihn:

urC1.Resize(UBound(ZBer) + 1, UBound(ZBer(0))) = ZBer

Du defnierst die Range neu, allerdings begreife ich Zber bzw Zber(0) nicht.
Hängt vermutlich mit einem Verständnisfehler weiter oben zusammen.
Bitte um weitere Hilfe! :)
viele Grüße und schonmal vielen vielen Dank
Robert

'On Error GoTo fx ReDim ZBer(Output.UsedRange.Rows.Count - 1), QBer(3) With WorksheetFunction QBer(0) = .Transpose(Mapping.Columns(20)) QBer(1) = .Transpose(Mapping.Columns(31)) CBox(1) = Me.ColumnBox1 'Customer QBer(2) = .Transpose(Mapping.Columns(33)) CBox(2) = Me.ColumnBox2 'Material QBer(3) = .Transpose(Mapping.Columns(49)) CBox(3) = Me.ColumnBox3 'ProductFamily iz = 0 For Each xR In Output.UsedRange.Rows If CBool(.CountA(xR)) Then ZBer(iz) = .Transpose(.Transpose(xR)) iz = iz + 1 End If Next xR For iz = 0 To UBound(ZBer) On Error Resume Next: zR = .Match(ZBer(iz)(ColumnBox6), QBer(0), 0) ' On Error GoTo fx If CBool(zR) Then For ix = 1 To 3 If Not CBox(ix) = 0 Then ZBer(iz)(CBox(ix)) = QBer(ix)(zR) End If Next ix End If Next iz End With With Output.UsedRange Set urC1 = .Cells(1) End With urC1.Resize(UBound(ZBer) + 1, UBound(ZBer(0))) = ZBer fx: If CBool(Err.Number) Then MsgBox Err.Description, vbCritical, _ "Interner Fehler " & Err.Number: Set xR = Nothing ex: Set urC1 = Nothing

…Robert,
evtl später bzw b.Bedarf mehr, denn ich hatte bereits eine längere AW in Arbeit als der Mist-Laptop meiner Frau wohl wg irgendwelcher dämlicher SoftwareAktualisierungen runter gefahren ist. Und natürlich war alles weg (ich hasse solch blödsinnige Einstellungen, falls es nicht doch eine TastenFehlInterpretation der Grund war; das hat die Krücke nämlich auch drauf!)… :-(
1. If CBox(ix) 0 Then ist natürlich korrekt.
2. Wo kommt plötzlich ColumnBox6 her? Bei mir wdn mit CBox(ix) alle 3 CBoxes durchlaufen, nicht nur eine, die vorher gar nicht auftaucht. Dadurch wird immer der gleiche Wert im (Zeilen-)Element iz überschrieben.
3. Warum hast du On Error GoTo fx auskommentiert? Ab On Error Resume Next bekommst du dann überhpt keine FehlerMeldung mehr! Für Testzwecke entweder Ersteres durch On Error GoTo 0 ersetzen oder besser eine Zeile vor der SprungMarke ex: mit Stop: Resume Next einfügen (später wieder entfernen!). Oder willst du, dass ein VBA-unbeleckter Nutzer plötzlich im VBE-DebuggerFenster landet?! ;-]
4. Ja, Ubound(ZBer) ist etwas ungeschickt, schadet hier aber nicht, da du ja ohnehin .ClearContents weggelassen hast. So kann man Inhalte überzähliger Zellen schließlich auch löschen (womit sich die berechtigte Frage nach dem „ZuGroß“ eigentl auch erledigt hätte, obwohl man ZBer natürlich auch mit iz - 1 redimensionieren könnte). ;-)
5. Variablen muss man bei Erstgebrauch nicht initialisieren. Das erledigt schon die Deklaration (und später ggf eine einfache For…Next-Schleife). Nur in einer Schleife separat mitlfdn bzw EinzelVariablen muss man bei ZweitVerwendung einen Anfangswert geben.
Morrn, Luc :-?

Beliebteste Forumthreads (12 Monate)

VBA Schleifen beschleunigen: Arrays?

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Schleifen beschleunigen: Arrays?

22 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread