VBA Formel anpassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub NeueAnlage() Application.ScreenUpdating = False Tabelle2.Select Range("A1").Select Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy Tabelle1.Range("A5000").End( _ xlUp).Offset(2, 0) Tabelle1.Select Range("I5000").End(xlUp).Offset(-3, 0).Select Selection.ClearContents ActiveCell.FormulaR1C1 = "=IFERROR(SUMIFS([AK / BW (Gesamt)],[Datum],"">=""&R" & Cells(5000, _ 2).End(xlUp).Offset(-2, 0).Row & "C2,[Datum],""=""&R" & Cells(5000, 2).End(xlUp).Offset(-2, 0).Row & "C2,[Datum],""

Hi
Lass dir die Formel erstmal als Textstring anzeigen (MsgBox "=Iferror..." oder debug.Print "=Iferror(...")
Und kontrollieren, ob du dir da eine Korrekte Formel zusammen gebastelt hast.
Falls nein, siest du ja die Stelle, an der du deinen Code korrigieren musst.
Sollte der alte Code mit dem festen Zellbezug R3C2 funktioniert haben, dann gibt es auch einen eleganteren Weg, um solche Variablen in die Formel einzubauen:
1. Schreibe die Formel in eine Stringvariable.
Ersetzte dabei den Zahlenwert, der durch eine berechneten Wert gebildet werden soll, durch einen DummyText, der so in der Formel nicht vorkommt.
2. ersetze mit Replace den DummyText durch den Berechneten Wert.
Das ist zwar etwas mehr Code, aber deutlich übersichtlicher und weniger Fehleranfällig als die Formel aus Teiltexten zusammenzusetzen:

FO = "=IfError(...R_x_C2...R_x_C2...)"
FO = Replace(FO, "_x_", Cells(5000, 2).End(xlUp).Offset(-2, 0).Row)
... .FormulaR1C1 = FO

Gruß Daniel

Das ist eine gute Idee. Macht die Sache zwar länger aber sauberer.
Habe mittlerweile meinen Fehler gefunden. Somit funktioniert die "alte" Version wieder.
Deine neue Idee habe ich auch mal umgesetzt, um zu lernen, jedoch funktioniert diese im Gegensatz zur "alten" Version nicht. Erkenne aber den Unterschied nicht, da es eigentlich zum identischen Ergebnis kommen müsste.

Sub NeueAnlage()
Application.ScreenUpdating = False
Tabelle2.Select
Range("A1").Select
Range(ActiveCell, ActiveCell.End(xlDown).End(xlToRight)).Copy Tabelle1.Range("A5000").End( _
xlUp).Offset(2, 0)
Tabelle1.Select
Range("I5000").End(xlUp).Offset(-3, 0).Select
Selection.ClearContents
ActiveCell.FormulaR1C1 = "=IFERROR(SUMIFS([AK / BW (/Gesamt)],[Datum],"">=""&R" & Cells( _
5000, 2).End(xlUp).Offset(-2, 0).Row & "C2,[Datum],""=""&R" & Cells(5000, 2).End(xlUp).Offset(-2, 0).Row & "C2,[Datum],""

Sub NeueAnlage2()
Dim FO As String
FO = "=IFERROR(SUMIFS([AK / BW (/Gesamt)],[Datum],"">=""&R_x_C2,[Datum],""=""&R_x_C2,[Datum],""

In der zweiten Version verweist der Replace-Einschub auf eine Row, die 7 Rows zu weit oben ist.

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

67 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Formel anpassen

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

67 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread