Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1568to1572
1568to1572
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA | MittelwertWenn | Variable

VBA | MittelwertWenn | Variable
28.07.2017 09:22:06
Adam
Hallo,
kann mir bitte jemand erklären, was ich falsch mache?
der Code:
Worksheets("Brand_Reach").Cells(2, 3).Value =Application.WorksheetFunction.AverageIf(Worksheets("Brand").Range("H5:S5"), "größer 0")
funktioniert.
Sobald ich aber die Rangangabe mit Cells() vornehme. Funktioniert es nicht mehr.
Worksheets("Brand_Reach").Cells(2, 3).Value = _
Application.WorksheetFunction.AverageIf(Worksheets("Brand").Range(Cells(5, 8), Cells(5, 19)), "größer 0")
die Bedingung "größer 0" musste ich hier wörtlich schreiben, sonst meckert die Webseite...
Vielen Dank für Eure Hilfe!

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: eine Vermutung
28.07.2017 09:29:30
Fennek
Hallo,
je nachdem, von welchem Sheet ein solcher Befehl aufgerufen wird, kann es klappen oder auch nicht.
Sicherer ist:

with Worksheets("Brand_Reach")
.Cells(2, 3).Value = _
Application.WorksheetFunction.AverageIf(.Range(.Cells(5, 8), .Cells(5, 19)), "größer 0")
end with
Entscheidend sind die "." vor cells
Es gibt sicher auch noch anderer mögliche Fehlerquellen.
mfg
AW: eine Vermutung
28.07.2017 09:37:09
Adam
Hi Fennek,
danke für die rasche Antwort.
Leider funktioniert es nicht. In der Funktion muss aber auch ein Verweis auf ein anderes Sheet stehen ("Brand").
With Worksheets("Brand_Reach")
.Cells(2, 3).Value = Application.WorksheetFunction.AverageIf(Worksheets("Brand").Range(.Cells(5, 8), .Cells(5, 19)), "größer 0")
End With
VG
Adam
Anzeige
AW: e2. Versuch
28.07.2017 09:42:17
Fennek 

with Worksheets("Brand")
Worksheets("Brand_Reach").Cells(2, 3).Value = _
Application.WorksheetFunction.AverageIf(.Range(.Cells(5, 8), .Cells(5, 19)), "größer 0")
end with

AW: e2. Versuch
28.07.2017 10:03:52
Adam
1000 Dank Fennek! Funktioniert!
Schönen Freitag noch!
AW: eine Vermutung
28.07.2017 10:04:27
Werner
Hallo Adam,
so: 
Public Sub Mittelwert()
Dim raBereich As Range
With Worksheets("Brand")
Set raBereich = .Range(.Cells(5, 8), .Cells(5, 19))
Worksheets("Brand_Reach").Cells(2, 3).Value = _
Application.WorksheetFunction.SumIf(raBereich, ">0") / _
Application.WorksheetFunction.CountIf(raBereich, ">0")
End With
End Sub
Gruß Werner
Anzeige
AW: eine Vermutung
28.07.2017 10:40:58
Adam
Auch dir Werner, vielen Dank!
Ich dachte ich kriege es alleine gebacken...
Ich möchte die Reihe mit "i" ansprechen. Geht das überhaupt mit "With"?
for i = 1 to 100
With Worksheets("Brand").Range(Cells(i, 8), Cells(i, 19))
Worksheets("Brand_Reach").Cells(i, 3).Value = _
Application.WorksheetFunction.AverageIf(.Range(.Cells(i, 8), .Cells(i, 19)), "größer 0")
End With
next
Danke
AW: eine Vermutung
28.07.2017 11:58:17
Werner
Hallo Adam,
da muss aber auch noch eine Prüfung rein, ob überhaupt Daten in der jeweiligen Zelle vorhanden sind. Ansonsten knallt es. Die Prüfung habe ich über Application.Sum mit eingebaut. 
Option Explicit
Public Sub Mittelwert()
Dim i As Long
Dim raBereich As Range
With Worksheets("Brand")
For i = 1 To 100
Set raBereich = .Range(.Cells(i, 8), .Cells(i, 19))
If WorksheetFunction.Sum(raBereich) > 0 Then
Worksheets("Brand_Reach").Cells(i, 3).Value = _
Application.WorksheetFunction.AverageIf(raBereich, ">0", raBereich)
End If
Next
End With
Set raBereich = Nothing
End Sub
Gruß Werner
Anzeige
AW: eine Vermutung
28.07.2017 13:00:37
Adam
Vielen Dank Werner! Du hast mir sehr geholfen!
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
28.07.2017 13:05:28
Werner

321 Forumthreads zu ähnlichen Themen

Formel über VBA in Range.
Tom

Hi,
ich Versuch eine Summenformel
=SUMME(A3:A29)
verzweifelt über VBA dynamisch einzutragen.
Die Summe muss von A bis J eingetragen werden. Jedesmal mit dem entpsrechenden Buchstaben nicht immer mit A.
Hab das so versucht:
For k = 2 To 10 'Range(Cells(k, 29), Cells(...
13.08.2008 11:41:00
Thread-ID: 1001455
4 Beiträge
Anzeige
Excel-Makro mit variablen Zeilen
Hans-Peter

Hallo,
Ich bin auf der Suche nach einer Excel-Funktion oder einem Makro, welches es mir ermöglicht, eine variable Anzahl Zeilen (mit definiertem Inhalt in der letzten Zeile) in ein neues Arbeitsblatt zu kopieren.
09.11.2008 22:40:00
Thread-ID: 1023114
5 Beiträge
VBA Range Definition
Karen

Hallo Forum,
ich habe ein kleines Problem in meinem Makro.
Ich möchte eine Range abbilden, leider überträgt das Makro aber immer nur die Zeile 6.
For i = 2 To 256
If Cells(3, i).Value = datum Then
Range(Cells(6, i), Cells(40, i)).Copy
Selection.Copy
Cells(6, i + 1)...
22.12.2008 16:21:00
Thread-ID: 1034798
14 Beiträge
Anzeige
Range einer Variable zuweisen
Mario

Hallo
Ich wollte die selection.Range einer variablen zuweisen, damit ich danach die selection verändern kann und trotzdem noch weiss, was vorher selectiert war.
Ich habe schon folgende Varianten versucht:
Dim r As Range r = selection.Range ''Fehlermeldung r = Range(Cells(selection...
07.02.2009 08:42:07
Thread-ID: 1047988
21 Beiträge
VBA Abspeichern in variablen Ordner
Danomat

Hi,
folgendes Problem
In Zelle C1 steht der aktuelle Monat. Nun möchte ich die Datei als PDF abspeichern:
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"G:\Dokumente\Berichtswesen\Monatsreporting\02 Februar\Test.pdf" _
, Quality:=xlQualityStandard, IncludeDo...
13.03.2009 12:37:34
Thread-ID: 1059831
10 Beiträge
variable Zeilenanzahl kopieren, einfügen (VBA)
Alex

Hallo Leute,
In meiner Arbeitsmappe kopiere ich eine! Zeile (aus dem TabBlatt „Grundformular“) - via Doppelklick auf einen Namen in „Übersicht“ - in andere TabBlätter.
(das geht wunderbar)
Sieht jemand eine Möglichkeit ob/wie das ganze mit einer variablen Zeilenanzahl, die im „Grund...
18.03.2009 17:23:56
Thread-ID: 1061522
3 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
For Each zelle In Range("a2:a1000") erweitern
Karsten

Hallo,
Wenn ich diesen Befehl ausführe befinde ich mich gerade in Tabelle1. Ich möchte aber, dass u.s. Befehl in Tabelle2 ausgeführt wird. Kann mir jemand die Tabelle2 in den Befehl hineinkonstruieren.
Danke.
Gruß
Karsten
Dim zelle As Range
For Each zelle In Range("a2:a...
08.07.2009 10:59:35
Thread-ID: 1087125
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
3
4
13
4
20
9
2
2
2
3
3
16
2
6
1
4
2
2
4
6
2
1
2
6