VBA Code dauert zu lange

Sub Test Sheets("Rollregal").Select Range("D2") = "=R[1]C[-3]" Range("E2") = "=SUMIF(C[-4]:C[-2],RC[-1],C[-2])" Range("D2:E2").AutoFill Destination:=Range("D2:E" & Cells(Rows.Count, "A").End(xlUp).Row), _ _ Type:=xlFillDefault End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA Code dauert zu lange

31.03.2016 14:22:55

Werner

AW: VBA Code dauert zu lange

31.03.2016 14:29:21

Rudi

AW: VBA Code dauert zu lange

31.03.2016 14:32:03

Daniel

AW: VBA Code dauert zu lange

31.03.2016 14:37:01

UweD

Nachfrage

31.03.2016 15:36:12

Gudrun

Nachfrage

31.03.2016 18:26:48

Gudrun

AW: Nachfrage

31.03.2016 22:06:23

Daniel

AW: Nachfrage

31.03.2016 22:28:16

Gudrun

AW: Nachfrage

31.03.2016 22:39:51

Daniel

AW: Nachfrage

01.04.2016 09:25:53

Gudrun

Sub Test Application.Calculation = xlCalculationManual With Sheets("Hochregal") .Range("D2") = "=R[1]C[-3]" .Range("E2") = "=SUMIF(C[-4]:C[-2],RC[-1],C[-2])" .Range("D2:E2").AutoFill Destination:=.Range("D2:E" & .Cells(Rows.Count, "A").End(xlUp).Row), _ Type:=xlFillDefault Application.Calculation = xlCalculationAutomatic .Range("E:D").Value = .Range("E:D"). Value End With End Sub

Sub Test() With Sheets("Rollregal") With .Range(.Cells(2, 1), .Cells(Rows.Count, 1).End(xlUp)) .Offset(, 3).FormulaR1C1 = "=R[1]C[-3]" .Offset(, 4).FormulaR1C1 = "=SUMIF(C[-4]:C[-2],RC[-1],C[-2])" With .Range(.Offset(, 3), .Offset(, 4)) .Copy .PasteSpecial xlPasteValues End With End With End With Application.CutCopyMode = False End Sub

Hi
probier mal das:

With Sheets("Rollregal")
With .Range("D2:E" & .Cells(.Rows.Count, 1).End(xlUp).Row)
.Columns(1).FormulaR1C1 = "=R[1]C[-3]"
.Columns(2).FormulaR1C1 = "=if(RC[-1]=R[-1]C[-1],R[-1]C,SUMIF(C[-4]:C[-2],RC[-1],C[-2])) _
.Formula = .Value
End With
End With

Autofill ist in VBA meistens unnötig, man kann die Formeln auch gleich in alle benötgigten Zellen schreiben.
Ich würde die Zellbezüge auf die Spalten wenn möglich absolut setzen. Das macht die Formel in R1C1-Schreibweise kürzer und übersichtlicher (in R1C1 nur das relativ setzen, was unbedingt relativ sein muss).
zur Beschleunigung überprüft meine Formel, ob der Vergleichswert mit dem Vergleichswert aus der darüberliegenden Zeile übereinstimmt und übernimmt wenn ja auch den Zellwert für E aus der darüber liegenden Zeile.
Damit muss dann das Zeitaufwendige SummeWenn nicht jedesmal ausgeführt werden, sondern nur dann wenn sich der Vergleichswert ändert.
Hilft natürlich nur dann, wenn die Tabelle sortiert sind und mehrere gleiche Vergleichswerte direkt untereinander stehen (aber im Sortieren ist Excel sehr schnell, das könnte man hier dann ggf ausnutzen)
Gruß Daniel

Sub Test() Dim LR& Application.ScreenUpdating = False With Sheets("Rollregal") LR = .Cells(Rows.Count, "A").End(xlUp).Row .Range("D2:D" & LR) = "=R[1]C[-3]" .Range("E2:E" & LR) = "=SUMIF(C[-4]:C[-2],RC[-1],C[-2])" .Range("D2:E" & LR) = .Range("E2:E" & LR).Value End With End Sub

Beliebteste Forumthreads (12 Monate)

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread