Office: Mit WENN-Bedingung in Makro gekennzeichnete Spalten in richtige Tabelle kopieren

...ist schon aktualisiert. *top

 

Kleine Anschlussfrage um ein allfälliges Missverständnis auszuräumen:
Deine rote Ergänzung ist für einen Makro-Anfänger wie mich nicht so leicht zu verstehen (ist für mich nicht intuitiv verständlich). Führt dieser Code zu einer Speicherung der Zieldateien nach nur 100 Schritten/Kopiervorgängen der Spalten H:K oder nach jeweils 100 Schritten/Kopiervorgängen und damit 20 Mal über die 2000 Schritte? Vielen Dank.

 

Allgemein:

Zahl Mod 100 ergibt den Rest der Division Zahl / 100. (Das Wort MOD im VBE markieren und F1 drücken führt zur Onlinehilfe)
Sobald also eine Zahl restlos durch 100 teilbar ist, ist Rest = 0 (im Umkehrschluss: Die Zahl muss ein ganzzahliges Vielfaches von 100 sein)

Genau das prüft der Code:
Code:

110 werden von der Laufvariable abgezogen, weil du bei z = 11 beginnt. Bei z = 110 wird also das erste mal gespeichert, bei 2010 das letzte mal.

 

Perfekt! Herzlichen Dank. :-)

VG, Martin

 

Hallo,
Das besprochene Makro von EarlFred läuft mittlerweile seit 3 Tagen, die CPU-Auslastung auf dem Computer ist weiterhin relativ konstant bei ungefähr 25-30%.
Da das Makro noch einige Tage zu laufen hat, beinhaltet es auch einen automatischen Speicherbefehl, so dass die Ablagedateien, wo die generierten Spalten aus der Makrodatei hinkopiert werden, nach jeweils 100 Schritten in der ersten Schleife des Makros, gespeichert werden:

If (z - 110) Mod 100 = 0 Then
For i = 0 To 4
fwsZiele(i).Parent.Save
Next i
End If

Nun wollte ich im Explorer nachschauen, ob die Ablagedateien nach der ersten erwarteten Speicherung grösser geworden sind, was nach meiner Auffassung ein Nachweis für das Funktionieren des Speicherbefehls sein müsste. Leider sind die Ablagedateien immer noch gleich gross wie am Anfang, womit es für mich so aussieht, als ob die erste Speicherung noch gar nicht stattgefunden hat. Da ich die erste Speicherung nach rund einundhalb Tagen erwartet hatte (also spätestens gestern), bin ich mir nun nicht sicher, ob der erste Speichervorgang erfolgt ist, bzw. richtig funktioniert.
Deshalb meine Frage:
Um das Makro möglichst performant zu halten, beinhaltet es auch den Code:

Application.ScreenUpdating = False

Könnte das der Grund sein, weshalb ich im Explorer noch keine Veränderung der Dateigrösse der Ablagedatei feststellen kann? Ich habe eigentlich gedacht, dass dieser Befehl sich nur auf Excel bezieht, womit mich eine Bejahung meiner Frage überraschen würde. Andererseits kann ich mir aufgrund meiner bisherigen Versuche nicht erklären, weshalb der Speichervorgang aufgrund der Ablagedateigrösse nicht ersichtlich ist.
Herzlichen Dank im voraus für Eure Antwort.
Viele Grüsse,
Martin

 

Meine Frage konnte ich in der Zwischenzeit selber beantworten.