Application.sum(Vektor) Laufzeitfehler 13
16.06.2005 14:00:06
Goto
hab Probleme Excel-Funktion in einer VBA Prozedur (z.Bsp Application.sum(vektor), Application.sumif(vektor,wert,vektor) anzuwenden. Das Problem: Manchmal funktioniert's, manchmal nicht:
Meinen Informationen nach bedeutet Laufzeitfehler 13 dass der Vektor auf den die Berechnungsfunktion angewendet werden soll ungeeignete Variablentypen enthält. Hab meinen Code x-fach abgesichert dass er nur Zahlenwerte enthält und trotzdem funktionierts nicht, bzw. Es funktioniert nur wenn der Vektor eine bestimmte Größe nicht überschreitet (Bei Zeilen = 2000 funktionierts, bei Zeilen = 60000 nicht). Kann es sein dass Funktionen in VBA ab einer bestimmten Größe nicht mehr funktionieren? Vielleicht mache ich auch generell in der Anwendung von Funktionen in Excel etwas falsch
Hier eine Kurzversion meines Codes:
Zeilen = 60000 'Wenn nur Zeilen 2000 dasteht dann funktionierts!!?
Dim Kontowert() as double
'For r = 1 To Zeilen
' If Kunden(r) = 1 Then
'
' For c = 2 To Spalten
' ReDim Kontowert(Zeilen)
' For r1 = 1 To Zeilen
' If KundenNummern(r1) = KundenNummern(r) Then
' Kontowert(r1) = Val(Datenkonvertiert(c, r1, 1)) '2.Absicherung
' Else
' Kontowert(r1) = 0
' End If
' Next r1
' Kundensumme = Application.Sum(Kontowert)
' Datenkonvertiert(c, r, 2) = Kundensumme
'
' Next c
' End If
'
'Next r
Kurz gefasst, sobald ich mit application.sum alle am Ende im Vektor Kontowert(zeilen) enthaltenen werte zusammenzählen will, kommt die Meldung Laufzeitfehler 13. Hab den Vektor auch schon im Überwachungsfenster angeschaut und es sind tatsächlich nur ausschließlich Zahlen vorhanden. Trotzdem funktioniert Application.sum(... nicht. Mach ich einen Fehler oder liegt der Fehler in Excel.
Danke für die Hilfe im Voraus, weiß wirklich nicht mehr weiter
Goto