Office: Summewenn Formel in VBA

HBau · 1. April 2017

Hallo zusammen,

ich habe meine Summewenn Formel zum Laufen bekommen, allerdings gibt sie nur 0 aus. Irgendwie findet sie nicht mein Suchstring "y".

Sieht jemand von euch den Fehler?

Tabelle:
Code:

Spalte 1 | Spalte 2 | Spalte 3 | Spalte 4
x | y | z | y123
200 | 100 | 300 | 100
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mein Code (alle Cells -Ausdrücke sind von mir auch noch im Makro drin - habe diese hier aber rausgelassen):
Code:

Dim i As Integer
Dim variable As Double
Dim myRange As Range
Dim myRange2 As Range

Set myRange = Worksheets("FK-Kreditoren").Range(Cells(8, Spnameend.Column + 2), Cells(8, Spnameend.Column + 2))

For i = 11 To 22
Set myRange2 = Worksheets("FK-Kreditoren").Range(Cells(i, Spletzte.Column - 3), Cells(i, Spletzte.Column - 3))
variable = Application.WorksheetFunction.SumIf(myRange, "*y*", myRange2)

'Ausgabe der Summe
Range(Cells(i, Spletzte.Column - 3), Cells(i, Spletzte.Column - 3)).Value = variable

Next i

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

:)

jack_D · 3. April 2017

Moin Moin,

nur mal als Ansatz

Code:

Set myRange = Worksheets("FK-Kreditoren").Range(Worksheets("FK-Kreditoren").Cells(8, Spnameend.Column + 2), Worksheets("FK-Kreditoren").Cells(8, Spnameend.Column + 2))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bzw.

Code:

With Worksheets("FK-Kreditoren")

Set myRange = .Range(.Cells(8, Spnameend.Column + 2), .Cells(8, Spnameend.Column + 2))

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

Sollte an der Stelle sauber referenziert werden.

Dann
Code:

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

Hat keinen Wert ... ?

(alle Cells -Ausdrücke sind von mir auch noch im Makro drin - habe diese hier aber rausgelassen):
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Versteh ich nicht ..

Grüße

HBau · 3. April 2017

Hallo jack,

danke für deine Antwort. Deinen Verbesserungsvorschlag habe ich übernommen.

Spnameend und andere kommen folgendermaßen zustande:
Code:

Set Spnameend = Worksheets("FK-Kreditoren").Rows(10).Find("Suchstring", , , xlWhole)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für die Summewennfunktion brauche ich ja einen Bereich.
Der ist bei mir aber dynamisch in seiner Größe.
Deshalb suche ich mir Strings (Spaltenüberschriften) die diesen Bereich begrenzen um den relevanten Summewennbereich eingrenzen zu können.
Mit Spnameend.Column bekomme ich dann die Spaltennummer.
Danach definiere ich die beiden Ranges für meine Summewennformel und lasse das Ergebnis in einer Zelle ausgeben.

HBau · 5. April 2017

niemand? *frown.gif*

jack_D · 5. April 2017

Wo ist denn die Frage?

HBau · 5. April 2017

Hallo Jack,

ich habe meine Summewenn Formel zum Laufen bekommen, allerdings gibt sie nur 0 aus. Irgendwie findet sie nicht mein Suchstring "y".

Sieht jemand von euch den Fehler?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Meine Summenformel gibt "0" aus. Ich weiß nicht woran der Fehler liegt... manuell eingegeben in Exceltypischer Formelschreibweise funktioniert es - nur in VBA umgeschrieben klappt es nicht.

Meine Frage daher: woran könnte das liegen?

OfficeUser · 5. April 2017

Hallo,

wir haben keine Ahnung wie deine Tabelle aufgebaut ist. Wenn du Code lieferst, sollte der möglichst vollständig sein, ohne dass man noch etwas ergänzen muss. Und insbesondere wenn du ein funktionierendes Beispiel hast, solltest du das in deiner Beschreibung mit aufnehmen, vielleicht erkennt man die Unterschiede zum fehlerhaften Beispiel.

Zu deinem eigentlichen Problem:
Möglicherweise hast du myRange und myRange1 in deinem Code verwechselt?

Bei mir funktioniert es so:
.mcs{margin-top:5pt;}.mcs table{border-collapse:collapse;}.mcs table td{border:1px solid #999999;color:#000000;background-color:#FFFFFF;font:11pt Calibri, sans-serif;padding:1pt 2pt;text-align:left;vertical-align:middle;}.mcs .foot td{border:0;font-size:9pt;color:#888888;padding:0;}.mcs .foot{clear: both;}.mcs .foot td{background-color:transparent;}.mcs .sheet td:first-child{background-color:#ddddee;text-align:center;}.mcs .sheet tr:first-child td{background-color:#ddddee;text-align:center;}.mcs .r{text-align:right;}.mcs .formats tr:first-child td{background-color:#aaeeaa;}.mcs .formulas tr:first-child td{background-color:#eeaaaa;}.formats, .names, .formulas, .cond, .fonts, .valid{float: none;margin: 10pt 10pt 0 0;}
A B
1 5 a
2 66 b
3 995 f
4 121 g
5 1 a
6 11 d
7 1 gf
8 21 g
9 21 aaa
10 5 bab
11 4 aaa
12 587 f
13 77 r
14 544 a
15 Formel 580
16 VBA 580
Zelle Formel
B15 =SUMMEWENN(B1:B14;"*a*";A1:A14)
Tabelle by Tab2Html ©Gerd alias Bamberg
CSS by Mc Santa
Code:

Sub Makro1()

Dim myRange As Range
Dim myRange2 As Range

Set myRange = Range("A1:A14")
Set myRange2 = Range("B1:B14")

Cells(16, 2) = Application.WorksheetFunction.SumIf(myRange2, "*a*", myRange)
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

VG
Santa

HBau · 20. April 2017

Hallo Mc Santa,

du hast natürlich recht. Ich versuche mich dahingehend zu bessern *Smilie
Hatte bis jetzt leider keine Zeit mehr mich der Problematik weiter anzunehmen - deswegen jetzt erst meine Antwort.

Anbei habe ich jetzt eine Beispiel xlsm mit dem Code.

Führt man diese aus bekommt man als Summe 0.
Hoffe, dass ihr jetzt alle Infos habt und mir helfen könnt *Smilie

Code:

Sub X()

Dim i As Integer
Dim myRange As Range
Dim myRange2 As Range
Dim Sperste, Spletzte As Range

'Finde dynamisch Anfangsspalte des zukünftigen Range-Suchbereichs für die Summenformel
Set Sperste = Worksheets("Tabelle1").Rows(8).Find("a", , , xlWhole)

'Finde dynamisch Endspalte des zukünftigen Range-Suchbereichs für die Summenformel
Set Spletzte = Worksheets("Tabelle1").Rows(8).Find("b", , , xlWhole)

'Suchrange für Summenformel
Set myRange = Worksheets("Tabelle1").Range(Cells(8, Sperste.Column + 2), Cells(8, Sperste.Column + 2))

'über alle Zeilen 11 bis 22
For i = 11 To 22

'Range für Summenbereich
Set myRange2 = Worksheets("Tabelle1").Range(Cells(i, Spletzte.Column - 4), Cells(i, Spletzte.Column - 4))

'Zählenwenn Suchbegriff im Überschriftentring
Cells(i, Spletzte.Column - 3) = Application.WorksheetFunction.SumIf(myRange, "xyz*", myRange2)

Next i

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

Jadzia_Dax · 21. April 2017

Ändere den Code mal wie folgt:

Code:

Sub X()

Dim i As Integer
Dim myRange As Range
Dim myRange2 As Range
Dim Sperste As Range
Dim Spletzte As Range
Dim ws As Worksheet

Set ws = Worksheets("Tabelle1")

'Finde dynamisch Anfangsspalte des zukünftigen Range-Suchbereichs für die Summenformel
Set Sperste = ws.Rows(8).Find(what:="a", LookIn:=xlValues, lookat:=xlWhole)

'Finde dynamisch Endspalte des zukünftigen Range-Suchbereichs für die Summenformel
Set Spletzte = ws.Rows(8).Find(what:="b", LookIn:=xlValues, lookat:=xlWhole)

'Suchrange für Summenformel
Set myRange = ws.Range(ws.Cells(8, Sperste.Column + 2), ws.Cells(8, Spletzte.Column - 4))

'über alle Zeilen 11 bis 22
For i = 11 To 22

'Range für Summenbereich
Set myRange2 = ws.Range(ws.Cells(i, Sperste.Column + 2), ws.Cells(i, Spletzte.Column - 4))

'Zählenwenn Suchbegriff im Überschriftentring
ws.Cells(i, Spletzte.Column - 3) = Application.WorksheetFunction.SumIf(myRange, "xyz", myRange2)

Next i

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

Deine Suchrange war C8:C8 und Deine Summen-Range war I11:I11 usw.

Als Hinweise:
"Dim Sperste, Spletzte as range" ergibt: Sperste as variant und Spletzte as range

Wenn Du schon zum Teil das Worksheet in die Referenzierung einbeziehst (was ich löblich finde), dann aber auch konsequent und nicht mal ja und mal nein.

Solltest Du vorhaben die Hilfsspalten (mit "a" und "b") auszublenden, wird die Find-Methode nicht funktionieren. Dann müsstest Du im Makro vorab die Spalten einblenden und später wieder ausblenden.

LG Petra

HBau · 24. April 2017

Hallo Petra,

ich danke dir für deine Hilfe! Es funktioniert *Smilie
Peinlich nur für mich die Range-Sache... Wenn man was sucht, sollte man auch den Bereich ordentlich definieren...*idee

Warum wird bei Dim x,y as Range nur x als range gedimmt? Wird der erste Wert dnan immer als Variant gedimmt?

Jedenfalls vielen Dank an euch Alle!*wink.gif*

Jadzia_Dax · 24. April 2017

Warum das so ist, weiß ich auch nicht *wink.gif*

Du kannst ja z.B. auch eine Variable einfach nur mit Dim deklarieren (Dim var) ohne "as irgendwas". Das ergibt dann einen Variant-Typ.

VBA nimmt das Komma also quasi nicht zwecks Aufzählung mehrerer Variablen, sondern als Trennzeichen zwischen den einzelnen Deklarationen. So würde ich es mir erklären.

Auf jeden Fall müsstest Du es bei mehreren Variablen in einer Zeile dann z.B. so schreiben:

Code:

Dim a As Integer, b As Long, c As Range
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG Petra

Luschi · 24. April 2017

Hallo HBau,

das mit der Variablen-Deklatation muß so sein, weil es in der Vba-Hilfe so steht:

Verwenden Sie eine eigene As type-Klausel für jede Variable, die Sie deklarieren.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

siehe: https://msdn.microsoft.com/de-de/lib...ffice.15).aspx

Erst ab Vb.Net hat man sich java-mäßig angepaßt und es genügt am Ende der Programmzeile die Typdeklaration.

Gruß von Luschi
aus klein-Paris

Office: Summewenn Formel in VBA

Summewenn Formel in VBA

Summewenn Formel in VBA

Summewenn Formel in VBA

Summewenn Formel in VBA

Summewenn Formel in VBA - Similar Threads - Summewenn Formel VBA

Summewenns erkennt text aus der formel nicht

Hilfe bei Formel ggf. Summewenns?

Formel SUMMEWENNS mit 109

Summewenn Funktion

Summewenns-Formel als VBA-Code

Summe über mehrere Spalten mit Suchkriterium Monat

Problem bei SUMMEWENNS Formel

	A	B
1	5	a
2	66	b
3	995	f
4	121	g
5	1	a
6	11	d
7	1	gf
8	21	g
9	21	aaa
10	5	bab
11	4	aaa
12	587	f
13	77	r
14	544	a
15	Formel	580
16	VBA	580