Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Summenprodukt per VBA mit vielen Spalten
zurück: Zelle farbig wenn Textteil in Spalte in 2 Bereichen vorhande weiter: refresh Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
heiko9009
Gast


Verfasst am:
12. Jan 2014, 21:06
Rufname:

Summenprodukt per VBA mit vielen Spalten - Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Guten Abend,
ich habe eine sehr große Summenprodukt Formel,
leider kommt Excel hier an seine Grenzen.... Sad

Hier der normale Zellencode:

Code:

=SUMMENPRODUKT
((Calculation!AK$2:AK$2000=A2)*(Calculation!AL$2:AL$2000)*(Calculation!L$2:L$2000)+
((Calculation!AP$2:AP$2000=A2)*(Calculation!AQ$2:AQ$2000)*(Calculation!L$2:L$2000))+
((Calculation!AU$2:AU$2000=A2)*(Calculation!AV$2:AV$2000)*(Calculation!L$2:L$2000))+
((Calculation!AZ$2:AZ$2000=A2)*(Calculation!BA$2:BA$2000)*(Calculation!L$2:L$2000))+
((Calculation!BE$2:BE$2000=A2)*(Calculation!BF$2:BF$2000)*(Calculation!L$2:L$2000))+
((Calculation!BJ$2:BJ$2000=A2)*(Calculation!BK$2:BK$2000)*(Calculation!L$2:L$2000))+
((Calculation!BO$2:BO$2000=A2)*(Calculation!BP$2:BP$2000)*(Calculation!L$2:L$2000))+
((Calculation!BT$2:BT$2000=A2)*(Calculation!BU$2:BU$2000)*(Calculation!L$2:L$2000))+
((Calculation!BY$2:BY$2000=A2)*(Calculation!BZ$2:BZ$2000)*(Calculation!L$2:L$2000))+
((Calculation!CD$2:CD$2000=A2)*(Calculation!CE$2:CE$2000)*(Calculation!L$2:L$2000))+
((Calculation!CI$2:CI$2000=A2)*(Calculation!CJ$2:CJ$2000)*(Calculation!L$2:L$2000)))


Ich habe jetzt schon Stunden probiert Codes mit sumproduct zu schreiben,
leider ohne Erfolg.

Vielen Dank im voraus für Eure Vorschläge....

Grüße
Heiko
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Jan 2014, 10:07
Rufname: Phelan


AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Hallo,

verwende statt Summeprodukt, SummeWenns.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
heiko9009
Gast


Verfasst am:
13. Jan 2014, 13:32
Rufname:

AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Hallo,
wie kann ich mit Summewenns den Bereich (L2:L2000) dann mit dem Summenbereich multiplizieren?

Gruß & danke
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Jan 2014, 14:04
Rufname: Phelan

AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

gar nicht, ich dachte du arbeitest mit '0' und '1' in den Spalten.

Wie viele dieser Formeln sind es denn?

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
heiko9009
Gast


Verfasst am:
13. Jan 2014, 16:58
Rufname:


AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Es gibt bis zu 1000 Zeilen, wobei A2 dann zu A3,A4,A5...A1000 wird.
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Jan 2014, 17:59
Rufname: Phelan

AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Wie heißt das Blatt, in dem dir Formeln eingetragen sind?
_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein
Heiko9009
Gast


Verfasst am:
13. Jan 2014, 18:36
Rufname:

AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Das Blatt in dem die Formeln stehen heißt "Component"
Phelan XLPH
Fortgeschritten


Verfasst am:
13. Jan 2014, 19:38
Rufname: Phelan

AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Hallo,

ein mögliche Variante.

_________________
Was vorstellbar ist, ist auch machbar. - Albert Einstein



Summeprodukt-Ersatz.xlsm
 Beschreibung:

Download
 Dateiname:  Summeprodukt-Ersatz.xlsm
 Dateigröße:  250.14 KB
 Heruntergeladen:  35 mal

heiko9009
Gast


Verfasst am:
23. Jan 2014, 16:38
Rufname:

AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Hallo,

entschuldigung für die späte Rückmeldung.
Aus beruflichen Gründen kam ich leider erst jetzt zum testen.

Es klappt wunderbar und die Berechnungszeit ist unschlagbar!!

vielen Dank!!!
heiko9009
Gast


Verfasst am:
04. Feb 2014, 18:34
Rufname:


AW: Summenprodukt per VBA mit vielen Spalten - AW: Summenprodukt per VBA mit vielen Spalten

Nach oben
       Version: Office 2010

Hallo,
hab noch ein kleines Problem Sad
Immer wenn in der Tabelle "Calculation" nur eine Zeile befüllt ist, gibt es eine Fehlermeldung "Typen unverträglich"

Komme leider nicht dahinter woran es liegt???

Code:


Option Explicit

Sub MultiplizierenWenn_xlph()
   
    Dim wksComp As Worksheet
    Dim wksCalc As Worksheet
   
    Dim dicSuchkriterien As Object
    Dim Ergebnis As Variant
   
    Dim FaktorMatrix_1 As Variant
    Dim FaktorMatrix_2 As Variant
   
    Dim LetzteZeile As Long
    Dim Spalte As Long
    Dim Idx As Long
    Dim Wert As Variant
   
   
    Set wksComp = ThisWorkbook.Worksheets("Component")
    Set wksCalc = ThisWorkbook.Worksheets("Calculation")
   
    Set dicSuchkriterien = CreateObject("scripting.dictionary")
   
    With wksComp
        LetzteZeile = .Cells(.Rows.Count, 1).End(xlUp).Row
        With .Cells(2, 1).Resize(LetzteZeile - 1)
            For Each Wert In .Value
                If Not IsEmpty(Wert) Then
                    dicSuchkriterien(Wert) = 0
                End If
            Next
            Ergebnis = .Value
        End With
    End With
   
   
    With wksCalc
   
        LetzteZeile = .Cells(.Rows.Count, 37).End(xlUp).Row
       
        FaktorMatrix_1 = .Cells(2, 12).Resize(LetzteZeile - 1).Value
       
        For Spalte = 37 To 87 Step 5
           
            FaktorMatrix_2 = .Cells(2, Spalte + 1).Resize(LetzteZeile - 1).Value
           
           [b] For Each Wert In .Cells(2, Spalte).Resize(LetzteZeile - 1).Value[/b]                Idx = Idx + 1
                If dicSuchkriterien.Exists(Wert) Then
                    dicSuchkriterien(Wert) = dicSuchkriterien(Wert) + _
                                             FaktorMatrix_1(Idx, 1) * _
                                             FaktorMatrix_2(Idx, 1)
                End If
            Next
            Idx = 0
           
        Next
       
    End With
   
   
    For Idx = 1 To UBound(Ergebnis)
        If dicSuchkriterien.Exists(Ergebnis(Idx, 1)) Then
            Ergebnis(Idx, 1) = dicSuchkriterien(Ergebnis(Idx, 1))
        Else
            Ergebnis(Idx, 1) = 0
        End If
    Next
   
    wksComp.Cells(2, 2).Resize(UBound(Ergebnis)).Value = Ergebnis
   
    Set wksComp = Nothing
    Set wksCalc = Nothing
    Set dicSuchkriterien = Nothing
   
End Sub
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Aus zwei Zuordnungstabellen mit je 2 Spalten eine dritte Tab 1 PaulFrage 470 13. Jul 2005, 21:21
DirkA Aus zwei Zuordnungstabellen mit je 2 Spalten eine dritte Tab
Keine neuen Beiträge Excel Formeln: Bedingtes Summenprodukt 4 Tay 1080 12. Apr 2005, 15:47
Tay Bedingtes Summenprodukt
Keine neuen Beiträge Excel Formeln: spalten multipizieren 3 traum1954 1385 06. Apr 2005, 08:52
julilia spalten multipizieren
Keine neuen Beiträge Excel Formeln: aus mehreren spalten einespalte?? 8 fredd 1182 15. März 2005, 19:33
fredd aus mehreren spalten einespalte??
Keine neuen Beiträge Excel Formeln: Teilergebnis bzw. Summe mit ausgeblendeten Spalten 6 Hauns123 9997 08. März 2005, 12:36
rainberg Teilergebnis bzw. Summe mit ausgeblendeten Spalten
Keine neuen Beiträge Excel Formeln: Spalten Sortieren 23 Fireball8 3108 07. Jan 2005, 18:40
fridgenep Spalten Sortieren
Keine neuen Beiträge Excel Formeln: Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen 2 Gast 2920 26. Nov 2004, 11:48
Gast Vor- und Nachname in 1 Spalte in 2 Spalten aufteilen
Keine neuen Beiträge Excel Formeln: Ergebnisse auf eigenes blatt exportieren per vba (unterein.) 1 lolarenntwieder 571 17. Nov 2004, 22:14
Reinhard Ergebnisse auf eigenes blatt exportieren per vba (unterein.)
Keine neuen Beiträge Excel Formeln: ZÄHLENWENN bei 2 Suchkriterien in wechselnden Spalten 10 Rebecca Nau 1909 12. Nov 2004, 11:26
Arnim ZÄHLENWENN bei 2 Suchkriterien in wechselnden Spalten
Keine neuen Beiträge Excel Formeln: Werte aus 3 Spalten nebeneinander in 1 Spalte 2 Aloha 2697 02. Nov 2004, 23:31
Gast Werte aus 3 Spalten nebeneinander in 1 Spalte
Keine neuen Beiträge Excel Formeln: Wenn-Bedingung mit mehreren Spalten und Zeile 6 Lusie 2819 02. Nov 2004, 15:57
Lusie Wenn-Bedingung mit mehreren Spalten und Zeile
Keine neuen Beiträge Excel Formeln: Druckbereich:nur einzelne Spalten als Druckbereich markieren 3 mufty001 1912 21. Okt 2004, 09:24
mufty001 Druckbereich:nur einzelne Spalten als Druckbereich markieren
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Project