Simples Makro gesucht - Zeile runterziehen(Formel)

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Arthur,
dieses Makro kopiert die Formeln Zeile-für-Zeile, erzwingt jedesmal eine Berechnung UND überschreibt die berechneten Formeln mit Werten, um spätere Rechenzeit zu sparen. (wenn du das nicht willst, kannst du die dafür zuständige Zeile aber auskommentieren).
Damit du nicht einsam und verlassen vor dem Rechner sitzt und dich fragst ob Excel noch arbeitet oder schon abgeschmiert ist, habe ich eine Statusmeldung eingebaut (Statusleiste = ganz unten links vom Excelfenster).

Option Explicit
Sub StepByStep()
Dim lRowFirst As Long
Dim lRowLast As Long
Dim lCount As Long
Dim iColFirst As Integer
Dim iColLast As Integer
lRowFirst = 8 'ab Zeile 8
lRowLast = 15000 'bis Zeile 15000 gemäß Aufgabe
iColFirst = 4 'Spalte D
iColLast = 1116 'Spalte APX
Application.ScreenUpdating = False 'Bildschirm ruhigstellen (spart Zeit!)
With ActiveSheet
For lCount = lRowFirst To lRowLast
'Rückmeldung an User dass Excel noch lebt / noch arbeitet
Application.StatusBar = "Schreibe Zeile " & lCount & " von " & lRowLast
'Formeln kopieren
.Range(.Cells(lCount, iColFirst), .Cells(lCount, iColLast)).Copy
'Formeln eine Zeile weiter unten einfügen
.Range(.Cells(lCount + 1, iColFirst), .Cells(lCount + 1, iColLast)).PasteSpecial
'berechnen erzwingen - kan, dass du diese Zeile nicht brauchst. Ausprobieren!
Calculate
'obere Formelzeile durch Werte ersetzen - eventuell auskommentieren!
.Range(.Cells(lCount, iColFirst), .Cells(lCount, iColLast)).Value = .Range(.Cells( _
lCount, iColFirst), .Cells(lCount, iColLast)).Value
Next lCount
End With
Application.ScreenUpdating = True
Application.StatusBar = ""
End Sub

Grüße,
Klaus M.vdT.

Option Explicit Sub StepByStep() Dim lRowFirst As Long Dim lRowLast As Long Dim lCount As Long Dim iColFirst As Integer Dim iColLast As Integer lRowFirst = 8 'ab Zeile 8 lRowLast = 15000 'bis Zeile 15000 gemäß Aufgabe iColFirst = 4 'Spalte D iColLast = 1116 'Spalte APX Application.ScreenUpdating = False 'Bildschirm ruhigstellen (spart Zeit!) With ActiveSheet For lCount = lRowFirst To lRowLast 'Rückmeldung an User dass Excel noch lebt / noch arbeitet Application.StatusBar = "Schreibe Zeile " & lCount & " von " & lRowLast 'Formeln kopieren .Range(.Cells(lCount, iColFirst), .Cells(lCount, iColLast)).Copy 'Formeln eine Zeile weiter unten einfügen .Range(.Cells(lCount + 1, iColFirst), .Cells(lCount + 1, iColLast)).PasteSpecial 'berechnen erzwingen - kan, dass du diese Zeile nicht brauchst. Ausprobieren! _ 'Calculate 'obere Formelzeile durch Werte ersetzen - eventuell auskommentieren! '.Range(.Cells(lCount, iColFirst), .Cells(lCount, iColLast)).Value = .Range(.Cells( _ lCount, iColFirst), .Cells(lCount, iColLast)).Value Next lCount End With Application.ScreenUpdating = True Application.StatusBar = "" End Sub

Hallo Arthur,
danke dass du dich auch nach zwei Tagen noch zurückmeldest! Das ist ja heutzutage leider kaum noch üblich ...
Ich glaube allerdings zu wissen wie ich dir geholfen habe :-) Mit Monsterdateien muss ich öfter arbeiten. Wir haben hier solche scherzhaften Abfragen wie "tausend Sachnummern, je im Schnitt zehn Produktionsschritte, je im Schnitt fünf Kunden, jeweils die nächsten dreißig Bestellungen, eine Zeile pro Bestellung" - das haut dann mal eben eine 500.000 Zeilen Exceldatei raus. Die wird dann in eine Standardtabelle kopiert (mit Matrixformeln und ähnlichem Speicherfresser), und dann trudeln bei mir die Mails ein warum die Planungstools nicht mehr funktionieren. Die Kollegen sind natürlich lernresistent, was Access oder SQL angeht.
Wie lange lief es denn bei dir durch? Ich hab hier eine exemplarische Monsterdatei, bei der ich den selben Weg gehe (Formeln Zeile für Zeile schreiben).
Die hat einen Button der das Makro auslöst, dazu habe ich ein Hinweisschild eingeblendet auf dem sinngemäß steht "Der Computer arbeitet, geh einen Kaffe trinken und eine rauchen. In Ruhe". Die läuft allerdings "nur" 20 minuten durch, keine 10 Stunden :-)
Grüße,
Klaus M.vdT.
Monster-Dateien-Erleger

Beliebteste Forumthreads (12 Monate)

Simples Makro gesucht - Zeile runterziehen(Formel)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Simples Makro gesucht - Zeile runterziehen(Formel)

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread