Fehler 6 "Überlauf"

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub UserForm_Initialize() Dim tblDepot As Worksheet Dim strName As String Set tblDepot = Worksheets("Depot") With frm_Start Label25.Caption = Format(Date, "dddd,") & " " & "den " & " " & Format(Date, "dd.mm.yyyy") Label26.Caption = "Gesamt-" & Worksheets("Depot").Range("L1").Text Label27.Caption = "Gewinn/-Verlust " Label44.Caption = "Gewinn/-Verlust %" .Label28.Caption = tblDepot.Cells(1, 1).Value .Label29.Caption = tblDepot.Cells(1, 2).Value .Label30.Caption = tblDepot.Cells(1, 3).Value .Label31.Caption = tblDepot.Cells(1, 4).Value .Label32.Caption = tblDepot.Cells(1, 5).Value .Label33.Caption = tblDepot.Cells(1, 6).Value .Label34.Caption = tblDepot.Cells(1, 7).Value .Label35.Caption = tblDepot.Cells(1, 8).Value .Label36.Caption = tblDepot.Cells(1, 9).Value .Label37.Caption = tblDepot.Cells(1, 10).Value .Label38.Caption = tblDepot.Cells(1, 11).Value .Label39.Caption = tblDepot.Cells(1, 12).Value .Label40.Caption = tblDepot.Cells(1, 13).Value .Label41.Caption = tblDepot.Cells(1, 14).Value End With With Worksheets("Depot") Dim Zeile Zeile = Cells(Rows.Count, 1).End(xlUp).Row TextBox26 = Format(Application.Sum(.Columns(12)), "#,##0.00 ") TextBox27 = Format(Application.Sum(.Columns(13)), "#,##0.00 ") TextBox28 = Format(TextBox27.Value / TextBox26.Value, "0.00 %") With ListBox1 .ColumnCount = 16 .ColumnWidths = "3,4cm;1,8cm;1,1cm;1,1cm;1,8cm;2,8cm;1,5cm;2,8cm;1,8cm;1,5cm;2cm;2cm; _ 1,8cm;1,4cm;2,1cm;1cm" .ColumnHeads = False .Font.Size = 10 .RowSource = "Depot!A2:P2" & Zeile .ListIndex = 0 End With End With End Sub

…Folks!
Die MatrixFmlFktionalität ist selbstverständlich eine Eigenschaft des Range-Objekts, was sich ja auch in der dafür geschaffenen Eigenschaft FormulaArray ausdrückt. So wird dem FmlText-Interpreter ja auch nur mitgeteilt, ob er nur einen oder alle Input- u/o sich ergebenden Ergebnis-Werte berücksichtigen soll. Das geht so natürlich weder anderswo noch in VBA für WorksheetFunctions! Man müsste also erst das entsprd Array separat erzeugen, bevor man eine Xl-Fkt, die in diesem Container enthalten ist, einsetzt. Bekanntlich gibt es dabei ja 2 Methoden, (Application.)WorksheetFunction… (mit VBE-Intellisense-Unterstützung) und nur Application… (ohne diese). Erstere folgt sehr strengen Regeln, was die Argumente der Fkt betrifft und läuft ggf in einen Fehler, letztere verwendet (unter bestimmten Bedingungen) den Fehlerwert. Das führt im Falle von Aggregate kurioserweise dazu, dass erstere niemals Datenfelder (Arrays) als 3.Argument duldet; ja, wenn eine Variable gleich so deklariert wird, meldet sich auch der VBE-Debugger! Bei letzterer passiert dann das nicht und das Ergebnis wird anstandslos so berechnet, wie es auch die ZellFml machen würde. Das deutet darauf hin, dass der WorksheetFunction-Container entweder nicht auf die Fktt ≥14 abgestimmt wurde (der VBE-Debugger ohnehin nicht ← mangelhaftes Teamwork bei MS‽) oder dass bei letzterer (Direkt-)Methode bestimmte Input-Kontrollen entfallen. Wahrscheinlich trifft sogar beides zu, denn irgendwoher müssen ja auch die Fehlerwerte bei der DirektMethode stammen!
Jedenfalls fktioniert das folgende Bsp analog der Xl-Fml (auch ohne Evaluierung), natürlich nur unter den o.g. Bedingungen:

Sub ArrTestAggregate()
Const mx$ = "x", adBer$ = "E1:E14"
Dim ix As Long, zz As Long, datBer As Range, xZ As Range
On Error Resume Next: Set datBer = Range(adBer)
zz = datBer.Cells.Count: ReDim avDat(1 To zz)
For Each xZ In datBer
ix = ix + 1: avDat(ix) = ix / Abs(xZ = mx)
Next xZ
Debug.Print Application.Aggregate(14, 7, avDat, 1)
Set datBer = Nothing
End Sub

Feedback nicht unerwünscht! Gruß, Luc :-?
„Die Intelligenz ist auf diesem Planeten eine Konstante, die Bevölkerung nimmt aber zu!“ Auch deshalb informieren mit …

Hi
du musst das halt so programmieren, dass der Fehler nicht mehr auftritt.
wenn der Fehler nur auftritt wenn die Tabelle leer ist, musst du eben vorher abfragen, ob die Tabelle leer ist oder nicht und die Fehlerverursachende Aktion nur ausführen, wenn nicht.
um festzustellen, ob die Tabelle leer ist, sollte es reichen zu überprüfen ob die obere linke Zelle der Tabelle leer ist oder nicht.
ansonsten kommt der Fehler 6, wenn du einer als Zahl deklarierten Variable (Byte, Integer, Long) einen Zahlenwert zuweist, der ausserhalb des des Gültigkeitsbereichs liegt.
Beispielsweise:

Dim x as Integer
x = 40000

oder:

dim x as Byte
x = -1

Dh. du solltest mal schauen, in welcher programmzeilde der Fehler auftritt, welche Variablen betroffen sind und wie diese deklariert sind.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

37
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Fehler 6 "Überlauf"

37 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

37
Beiträge zum Forumthread

Beiträge zu diesem Forumthread