VBA Summewenn bringt Anwendungsfehler

der Bö · 2024-05-22T17:36:58+00:00

Moin zusammen, ich möchte über VBA eine Summenformel in ein Tabellenblatt eintragen. Die Formel bezieht sich auf ein anderes Blatt und wenn ich die manuell eingebe, funktioniert das auch. Aber per VBA bekomme ich "Anwendungs- oder objektorientierter Fehler". Das Script sieht so aus (Auszug): strFormel = _ "=SUM(('Mai 2024'!J2:J283=""Neu SFA"")*('Mai 2024'!C2:C283))+" _ & "SUM(('Mai 2024'!J2:J283=""Neu SFA"")*('Mai 2024'!D2:D283))+" _ & "SUM(('Mai 2024'!J2:J283=""Neu SFA"")*('Mai 2024'!E2:E283))+" _ & "SUM(('Mai 2024'!J2:J283=""Neu SFA"")*('Mai 2024'!F2:F283))+" _ & "SUM(('Mai 2024'!J2:J283=""Neu SFA"")*('Mai 2024'!G2:G283))+" Sheets("Zusammenfassung").Range("B2").Formula = strFormel Ich möchte mir FormulaR1C1 ersparen, weil die Summenfelder im anderen Blatt sehr variabel sind! Die werden täglich neu reingeladen. Und ich brauche die Formel mit anderen Kriterien in 7 Spalten...ist mir gerade zu viel Aufwand. Aber so klappt es auch nicht. Die Zeilenangaben bekomme ich dann schon noch mit Variablen hin, das ist auch kein Problem. Hat da jemand einen Tipp, was da falsch ist? Ich nutze O365 (Version 2308 Build 16731). Danke und Grüße Jürgen

Hi

Wenn das ganze international laufen soll, dann schreibe die Formel auf Englisch (.Formula) und mir R1C1-Zellbezügen.
Das ist auch die Schreibweise, die der Recorder aufzeichnet,dh. du entwickelst die Formel ganz normal in der Zelle und zeichnest die Eingabe einmal auf, dann hast du deinen Formeltext.

Hierbei sollte man sich angewöhnen, alle Bezüge, die nicht zwingend relativ sein müssen, absolut zu setzen, dann wird es viel übersichtlicher.

Der Vorteil von R1C1 ist, das die relativen Bezüge auch relativ beschrieben werden und daher nicht angepasst werden müssen, wenn die Formel in andere Zellen kommt. Wenn du den Wert aus der linken Nachbarzelle benötigst,dann ist das immer =RC[-1], egal ob die Formel in B1 oder in Z999 geschrieben wird.
Dh die meisten relativen Bezüge sind statischer Text, der nicht angepasst werden muss.

Nächster Tipp:
Schreibe die Formel zunächt in eine Stringvariable. Dabei ersetzt du was alle Zeilennummern, die variabel sein müssen, durch einen Dummy-Text, den du später austauscht

Also statt:

x = 99

Range("A1").Formula = "=Sum(B1:B" & x & ")"

Das hier

x = 99

fo = "=Sum(B1:Bxxx)"

fo = Replace(fo, "xxx", x)

Range("A1").Formula = fo

Bei komplexeren Formeln wie bei dir ist das um Welten übersichtlicher, als die ganzen Verkettungen, auch wenn ein paar Zeilen Code mehr sind

Und zum Schluss:
Lerne die neuen Funktionen von Excel 365.
Die Berechnung aus deinem Beispiel würde ich so machen:

=summe(filter('Mai 2024'!C2:G283;'Mai 2024'!J2:J283="Neu SFA";0))

Gruß Daniel

@BoskoBiati2
Leider Nicht! Das hatte ich auch schon probiert. Keine Ahnung, was sich da wieder geändert hat in O365!
ABER...
das hier funktioniert:
dKennDatum = "Mai 2024"
iFirstLineD = 2
iLastLineD = 283
With Range("B" & iFirstLineD)
krit = "$B$1"
strFormel = "=SUMME(('" & dKennDatum & "'!J" & iFirstLineD & ":J" & iLastLineD & "=" & krit & ")*('" & dKennDatum & "'!C" & iFirstLineD & ":C" & iLastLineD & "))+" _
& "SUMME(('" & dKennDatum & "'!$J" & iFirstLineD & ":$J" & iLastLineD & "=" & krit & ")*('" & dKennDatum & "'!D" & iFirstLineD & ":D" & iLastLineD & "))+" _
& "SUMME(('" & dKennDatum & "'!$J" & iFirstLineD & ":$J" & iLastLineD & "=" & krit & ")*('" & dKennDatum & "'!E" & iFirstLineD & ":E" & iLastLineD & "))+" _
& "SUMME(('" & dKennDatum & "'!$J" & iFirstLineD & ":$J" & iLastLineD & "=" & krit & ")*('" & dKennDatum & "'!F" & iFirstLineD & ":F" & iLastLineD & "))+" _
& "SUMME(('" & dKennDatum & "'!$J" & iFirstLineD & ":$J" & iLastLineD & "=" & krit & ")*('" & dKennDatum & "'!G" & iFirstLineD & ":G" & iLastLineD & "))"
.Formula2Local = strFormel
End With

Wie gesagt, muss alles sehr dynamisch sein, weil die Daten täglich (oder wöchentlich) aus Access importiert werden und das dann auch sehr variable Anzahl Einträge sind.
Die Variablen bekomme ich alle raus, das ist kein Problem.
Ich frage mich nur, ob unsere polnische Kollegin dann auch noch das richtige Ergebnis sieht. ;)
Ist schon sehr seltsam, und ich kann mir auch nicht erklären, warum das bei mir nicht klappt.

Aber Danke für die Hilfe! :)

VBA Summewenn bringt Anwendungsfehler

Forumthread: VBA Summewenn bringt Anwendungsfehler

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

VBA Summewenn bringt Anwendungsfehler

Forumthread: VBA Summewenn bringt Anwendungsfehler

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

22
Beiträge zum Forumthread

Beiträge zu diesem Forumthread