DFGV
05.08.2008 18:14:14
Peter
habe folgendes Problem. Habe untenstehende Formell in Zelle auf deutsch geschrieben und wollte sie über den VBA-Rekorder in ein Makro einbinden. Dem Rekorder scheint diese Formel allerdings zu lang zu sein, er wollte nicht aufzeichnen. Ich habe mir dann über Direktbereich in VBA die Formel übersetzt.
Jetzt kommt allerdings die Fehlermeldung in vba. (INDEX außerhalb des gültigen Bereichs).
SubTest() ActiveWorkbook.Worksheets("Tabelle1").Range("AC15").FormulaArray = _ "=SUM((MONTH(INDIRECT(""KR!$A$6:$A$""&COUNTA(INDIRECT(""KR!$A$6:$A$60000""))))=MONTH($A15))* (DAY(INDIRECT(""KR!$A$6:$A$""&COUNTA(INDIRECT(""KR!$A$6:$A$60000""))))=DAY($A15))* (HOUR(INDIRECT(""KR!$A$6:$A$""&COUNTA(INDIRECT(""KR!$A$6:$A$60000""))))=HOUR(AE$6))* (MINUTE(INDIRECT(""KR!$A$6:$A$""&COUNTA(INDIRECT(""KR!$A$6:$A$60000""))))=MINUTE(AE$6))* (INDIRECT(""KR!""&LEFT(ADDRESS(1,MATCH($B$4,KR!$C$3:$IV$3,0)+2,,,), LEN(ADDRESS(1,MATCH($B$4,KR!$C$3:$IV$3,0)+2,,,))-2)&6&"":""& LEFT(ADDRESS(1,MATCH($B$4,KR!$C$3:$IV$3,0)+2,,,),LEN(ADDRESS(1,MATCH($B$4,KR!$C$3:$IV$3,0)+2,,,))-2)& COUNTA(INDIRECT(""KR!$d$6:$d$60000"")))))" End sub Jemand eine Idee? Oder muss ich mir in VBA ein Konstrukt aus diversen If Schleifen erstellen um ein Ergebnis zu erhalten? Danke im voraus. Peter |