Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
852to856
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
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

SummenProdukt Formel in VBA

SummenProdukt Formel in VBA
13.03.2007 14:57:17
Falk
Hallo zusammen,
wie kann ich folgende Select Case Anforderung in VBA darstellen:
Select Case GM
Case Is > SUMMENPRODUKT((Target!B6:B59=GMT)*(Target!A6:A59=GMB)*Target!C6:C59)
a = "D"
End Select
Die Summenproduktformel stellt das Entscheidungskriterium dar. Ich kann zwar Select Case drei bzw. viermal in einander verschachteln wird dann aber sehr unübersichtlich.
Danke für Hilfe im voraus ...
Grüße
Falk

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SummenProdukt Formel in VBA
13.03.2007 15:25:39
Rudi
Hallo,
vielleicht:
Case Is > worksheetfunction.SUMPRODUCT((Target!B6:B59=GMT)*(Target!A6:A59=GMB)*Target!C6:C59)

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: SummenProdukt Formel in VBA
13.03.2007 16:18:58
Falk
Hallo Rudi,
danke für Deine Hilfe, aber die Formel funktioniert so nicht, mein VBA Editor meckert immer beim ersten ":".
Grüße
Falk
AW: SummenProdukt Formel in VBA
13.03.2007 17:15:28
Rudi
Hallo,
natürlich! Hab' nicht nachgedacht.
Immer noch ohne Garantie:
Case Is > worksheetfunction.SUMPRODUCT((sheets("Target").Range("B6:B59")=GMT)*(sheets("Target".Range("A6:A59")=GMB)*sheets("Target".Range("C6:C59"))

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: SummenProdukt Formel in VBA
13.03.2007 17:35:00
Falk
Hallo Rudi,
ich bekommen immer noch die Fehlermeldung "Typ unverträglich" ...
ich habe Dir mal die ganze Funktion angehängt ...
Grüße
Falk
Function MarginBand2()
    Dim GM As Variant
    Dim GMT As String
    Dim GMB As String
    Dim NWExW As String
    
    Dim a As String
    Dim j As Integer
    Dim n As Integer
    
    j = 0
    
    Sheets("Dashboard").Select
    Range("A13").Select
    ActiveCell.Offset(2, 0).Select
    Range(Selection, Selection.End(xlDown)).Select
    j = Selection.Cells.Count
    
    Sheets("Dashboard").Select
    Range("T13").Select
    ActiveCell.Offset(2, 0).Select
    
        For n = 1 To j
    
            GM = ActiveCell.Value / 100
            GMB = ActiveCell.Offset(0, 5).Value
            GMT = ActiveCell.Offset(0, -11).Value
            NWExW = ActiveCell.Offset(0, -4).Value
            
            Select Case GM
                
                Case Is > WorksheetFunction.SumProduct((Sheets("Target").Range("B6:B59") = GMT) * (Sheets("Target").Range("A6:A59") = GMB) * Sheets("Target").Range("C6:C59"))
                a = "D"
            End Select
            
        Next
                
       

End Function

Anzeige

303 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige