harald e
17.10.2005 08:49:45
Harald
bin mal wieder mit dem Latein am Ende.
Peinlicherweise scheitere ich gerade an der vba-Syntax für ein ganz normales Summenprodukt.
Die Datei wird aus einer Oracle Datenbank generiert und hat über 30000 Zeilen.
Das Ganze auf einer englischen Excel-Verison. Daher greife ich lieber auf vba zurück.
Es handelt sich um eine Ergebnis-Datenbank von Verschraubungen, die nach Schraubernummer und Anzahl der Fehlverschraubungen gelistet werden muss.
In Tabelle 1 steht in Spalte F die Schraubernummer (1, 2, etc), in Spalte I steht das Ergebnis als "IO" oder "NIO"
In Tabelle 2 habe ich die Schrauber in Spalte A gelistet und benötige nun per vba die Anzahl der "NIO" pro Schrauber.
Eigentlich total simpel, aber trotz Recherche und Excel-CD sind meine bereits über 20 Versuche alle in der SumProduct-Zeile gelb hinterlegt....so auch dieser.
Sub auswertung()
Dim i As Integer
Dim wks As Worksheet, wkasA As Worksheet
Set wks = Worksheets("Tabelle1")
Set wksA = Worksheets("Tabelle2")
Bletzte = wksA.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To Bletzte
wksA.Range("B" & i) = WorksheetFunction.SumProduct((wks.Columns(6) = wksA.Range("a" & i)) * (wks.Columns(9) = "NIO"))
Next i
End Sub
Kann mir bitte jemand die korrekte Syntax verraten.
Danke und Gruß
Harald