Thema Datum  Von Nutzer Rating
Antwort
Rot AverageIf aber keine Zelle erfüllt Kriterien
27.12.2016 13:45:02 LisaS
NotSolved
27.12.2016 16:38:05 Mackie
Solved
27.12.2016 17:36:06 Werner
Solved
27.12.2016 17:43:24 Mackie
NotSolved
28.12.2016 12:31:42 LisaS
NotSolved

Ansicht des Beitrags:
Von:
LisaS
Datum:
27.12.2016 13:45:02
Views:
1333
Rating: Antwort:
  Ja
Thema:
AverageIf aber keine Zelle erfüllt Kriterien

Hallo liebe Community,

 

ich habe gerade als studentische Hilfskraft in einer Abteilung angefangen und beschäftige mich daher erst seit kurzem mit Excel VBA.

 

Ich möchte nun Mittelwerte aus der Spalte F bilden, wenn zwei Bedingungen erfüllt sind.

 

Beispielhaft sieht mein Makro dafür so aus:

 

Function Mittelwerte()

Worksheets("Berechnung").Range("A2").Value = WorksheetFunction.AverageIfs(Worksheets(2).Range("F6:F770"), Worksheets(2).Range("C6:C770"), "*possein", Worksheets(2).Range("D6:D770"), "12")

Worksheets("Berechnung").Range("I2").Value = WorksheetFunction.AverageIfs(Worksheets(2).Range("F6:F770"), Worksheets(2).Range("C6:C770"), "*posmein", Worksheets(2).Range("D6:D770"), "13")

End Function

 

 

Das funktioniert eigentlich auch einwandfrei. Nur wenn Excel keine Zelle findet, die beide Bedingungen erfüllt (was generell möglich ist) erhalte ich einen Fehler. Laut der Funktionsbeschreibung beim Office Support sollte ich den Fehlerwert #Div/0! erhalten, den ich ja einfach mit IfError umgehen könnte.

 

Blöderweise erhalte ich stattdessen die Fehlermeldung:

 

Laufzeitfehler "1004".:

 

Fehler der Methode "AverageIfs" des Objekts "WorksheetFunction".

 

und damit bricht Excel dann jedes Mal die Rechnung ab.

 

Weiß jemand, warum dieser Fehler auftaucht und wie ich den vielleicht umgehen kann?


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot AverageIf aber keine Zelle erfüllt Kriterien
27.12.2016 13:45:02 LisaS
NotSolved
27.12.2016 16:38:05 Mackie
Solved
27.12.2016 17:36:06 Werner
Solved
27.12.2016 17:43:24 Mackie
NotSolved
28.12.2016 12:31:42 LisaS
NotSolved