Office: SummeWenn in VBA

User · 29. September 2005

Hallo Leute,

gibt es in VBA ein gegstück zu SummeWenn? Wenn ja, wie heißt das?

Liebe Grüße
Heike

:)

User · 1. Oktober 2005

Hallo, ich noch mal

das gegstück sollte natürlich Gegenstück heißen. Sorry.

Liebe Grüße
Heike

User · 1. Oktober 2005

Hallo Heike,
Code:

Option Explicit

Sub Makro1()
'
' Makro1 Makro
' Makro am 01.10.2005 von Hajo_Zi aufgezeichnet
'

'
MsgBox Application.WorksheetFunction.SumIf(Range("E2:E26"), 1000, Range("D2:D6"))
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.

User · 1. Oktober 2005

Hey Hajo,

du bist aber schnell. Vielen Dank.

Liebe Grüße
Heike

mdausb · 5. Juli 2011

Hallo kann mir jemand sagen, wie ich die SummeWenn Fkt in VBA an meine Bedürfnisse anpassen kann?

Und zwar würde sie als StandardExcel Formel so aussehen:
=SUMMEWENN(Aggregation!F:F;"#CXS";Aggregation!G:G)

und ausgegeben soll der Wert in Tabellenblatt "Ausgabe" in Zelle G2

Kann mir hier jemand kurz helfen? Bin gerade am google-Such-Verzweifeln...
:-(

Chen · 5. Juli 2011

Hallo,

wo liegt dein Problem? Warum VBA nutzen wenn du doch die funktionierende Formel vorliegen hast?
Vielleicht hilft dir diese selbsterstellte Summewenn Function in VBA (die das gleiche bewirkt wie die "originale" Funktion:
Code:

Function sumif(Bereich As Range, Begriff As String, Summenbereich As Range) As Double
Dim rng As Range
For Each rng In Bereich
If rng = Begriff Then sumif = sumif + Intersect(rng.EntireRow, Summenbereich)
Next rng
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mdausb · 5. Juli 2011

Und zwar kann ich das in Excel mit dem Standard machen, aber ich will die Datei jemanden geben, der sich nicht auskennt und der soll einfach auf nen Knopf drücken und es wird für ihn gemacht. Verstehste?

Könntest du bitte deinen Code kurz kommentieren? wo trage ich da meine zellen und die jeweiligen Tabellenblätter ein? Wo definiere ich meine Ausgabezelle?

mücke · 5. Juli 2011

Moin,

oder so:

Code:

Option Explicit

Sub mdausb()

With Worksheets("Ausgabe")
.Range("G2").FormulaLocal = "=SUMMEWENN(Aggregation!F:F;""#CXS"";Aggregation!G:G)"
.Range("G2") = .Range("G2").Value
End With

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

EarlFred · 5. Juli 2011

Hallo,

einfach sauber referenzieren:
Code:

With Worksheets("Aggregation")
Worksheets("Ausgabe").Range("G2") = _
WorksheetFunction.SumIf(.Columns("F"), "#CXS", .Columns("G"))
End With
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder:
Code:

Worksheets("Ausgabe").Range("G2") = _
WorksheetFunction.SumIf(Range("Aggregation!F:F"), "#CXS", Range("Aggregation!G:G"))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Grüße
EarlFred

mdausb · 5. Juli 2011

Vielen dank, klappt super!

Office: SummeWenn in VBA

SummeWenn in VBA

SummeWenn in VBA

SummeWenn in VBA

SummeWenn in VBA

SummeWenn in VBA - Similar Threads - SummeWenn VBA

VBA Summewenns mit Subtraktion

Summewenn in VBA mit Schleife

Summewenn Formel in VBA

Summewenns-Formel als VBA-Code

Summewenn - VBA

SummeWenn in VBA

Makro (VBA) um Wert evtl mit Hilfe von SUMMEWENNS in eine andere Tabelle schreiben