Matrix-Formel in VBA

Liebe Experten,
ich hoffe jmd kann mir bei folgendem Problem helfen:
Ich möchte folgende Matrixformel in VBA darstellen:
=+SUMME((BR2:BR18)*($BJ$2:$BJ$18="Exposure"))
Bei folgenden Code bekomme ich jedoch die Fehlermeldung, dass die Typen unverträglich sein?
sourcedata.Activate
lastrow = sourcedata.Cells(Rows.Count, 1).End(xlUp).Row
ReDim data(1 To endspalte - startspalte + 1)
Set datatyprng = sourcedata.Range(Cells(2, 62), Cells(lastrow, 62)) 'ExposureOrLimit-column
For i = 1 To endspalte - startspalte + 1
Set sumrng = sourcedata.Range(Cells(2, startspalte + i - 1), Cells(lastrow, startspalte + i - 1))
data(i) = Application.WorksheetFunction.Sum((sumrng) * (datatyprng = "Exposure"))
Next i
Wie kann ich denn eine Matrix-Formel in VBA nachbilden? Geht das nur über einen anderen weg?
Vielen Dank für Eure Hilfe!
Fred

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Option Explicit Sub aTest() Dim wksSource As Worksheet Dim lngLast As Long, lngStartSp As Long, lngEndSp As Long, ii As Long Dim rngExp As Range, rngSum As Range, data() As Double lngStartSp = 69 ' für Test lngEndSp = 70 ' für Test Set wksSource = ActiveSheet ' für Test wksSource.Activate lngLast = wksSource.Cells(Rows.Count, 1).End(xlUp).Row ReDim data(1 To lngEndSp - lngStartSp + 1) Set rngExp = Range(Cells(2, 62), Cells(lngLast, 62)) 'ExposureOrLimit-column For ii = lngStartSp To lngEndSp Set rngSum = wksSource.Range(Cells(2, ii), Cells(lngLast, ii)) data(ii - lngStartSp + 1) = Evaluate("=SUM(" & _ rngSum.Address & "*(" & rngExp.Address & "=""Exposure""))") ' oder data(ii - lngStartSp + 1) = Evaluate("=SUMPRODUCT(" & _ rngSum.Address & "*(" & rngExp.Address & "=""Exposure""))") Next ii End Sub

Hallo Erich,
jetzt habe ich ein weiteres Problem. Ich habe die Summe um eine Klammer - d.h. eine Bedingung - erweitert. Ich bekomme auch keine Fehlermeldung und alles scheint zu klappen, jedoch ist das Ergebnis immer "Fehler 2029". Kannst Du mir weiterhelfen? Wenn ich die Funktion normal in Excel nutze, funktioniert diese (als Matrix-Formel) einwandfrei.
Über einen weiteren Tipp würde ich mich freuen.
Viele Grüße
Fred
Mein gesamter Code lautet:
Dim sourcedata As Worksheet
Dim monat As Integer, jahr As Integer, quartal As Integer, startspalte As Integer, endspalte As Integer, i As Integer, lastrow As Integer
Dim spaltenheading As String
Dim qrtdata()
Dim sumrng As Range, datatyprng As Range, sorttyprng As Range
Dim j As Integer, z As Integer, lastcol As Integer
Dim tmpdata
Dim tmp As String
'##### Initialisiere Daten
startdate = CDbl(startdate)
enddate = CDbl(enddate)
Set sourcedata = Worksheets("DataSummary_CreditReport")
'##### Bestimme benötigte Quartalsspalte #######
'(1) Anfangsspalte
monat = Month(startdate)
jahr = Year(startdate)
quartal = Application.WorksheetFunction.RoundUp(monat / 12 * 4, 0)
spaltenheading = jahr & "Q" & quartal
startspalte = 1
Do Until sourcedata.Cells(1, startspalte) = spaltenheading
startspalte = startspalte + 1
Loop
'(2) Endspalte
monat = Month(enddate)
jahr = Year(enddate)
quartal = Application.WorksheetFunction.RoundUp(monat / 12 * 4, 0)
spaltenheading = jahr & "Q" & quartal
endspalte = startspalte
Do Until sourcedata.Cells(1, endspalte) = spaltenheading
endspalte = endspalte + 1
If sourcedata.Cells(1, endspalte) = "" Then
endspalte = sourcedata.Cells(1, Columns.Count).End(xlToLeft).Column 'Letzte Spalte in DataSummary
Exit Do
End If
Loop
'#### Summiere - je nach Bedingungen - Exposures auf
sourcedata.Activate
lastrow = sourcedata.Cells(Rows.Count, 1).End(xlUp).Row
ReDim qrtdata(1 To UBound(sortierliste, 1), 1 To endspalte - startspalte + 1)
Set datatyprng = sourcedata.Range(Cells(2, 62), Cells(lastrow, 62)) 'ExposureOrLimit-column
Set sorttyprng = sourcedata.Range(Cells(2, sortierspalte), Cells(lastrow, sortierspalte)) 'Rating/Firma-Column etc.
For j = 1 To UBound(sortierliste, 1) 'Durchlaufe Firmen/Ratings etc.
tmp = sortierliste(j)
For i = 1 To endspalte - startspalte + 1
Set sumrng = sourcedata.Range(Cells(2, startspalte + i - 1), Cells(lastrow, startspalte + i - 1))
qrtdata(j, i) = Evaluate("=SUM((" & sumrng.Address & ") *(" & sorttyprng.Address & "=" & tmp & ")* (" & datatyprng.Address & " = ""Exposure""))")
Next i
Next j
calcexposure = qrtdata

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Matrix-Formel in VBA

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread