✔ Formel funktioniert in Spalte "Z" und "AB" aber nicht in "AA"

[Yaslaw]

Das Problem mit ZEILE() und SPALTE() ist dieselbe wie beim Application.Caller. Excel merkt nicht, dass die Funktion nachberechnet werden muss.
Beim Range auf die Spalte merkt Excel, das die Berechnung erneuert werden muss, da im Range eine veränderung stattfand.
Darum zurück zum Range. Wo kam denn die Fehlermeldung?

 

[Joerg66]

Ok, hab also den Code zurückgeändert.
In der Zelle, wo das Ergebnis stehen soll stehl

=mySum1(AA5:AA8000)

In der Zelle steht nach "Enter" "#WERT!"
Und als Erklärung: Ein in der Formel verwendeter Wert ist vom falschen Datentyp.

 

[Yaslaw]

Du musst kein Gesammtrange angeben
mySum1 erwartet 2 Paramter. Zeile und Spalte
In welchem Feld steht dein Test?

 

[Joerg66]

Ich schreibe in die Zelle AA4 also rein "=mySum1(4;27)"
In den Zeilen direkt darunter AA5-AA7 stehen Zahlen.
Ist das richtig?
Der Fehler ist der selbe :-(

 

[Yaslaw]

Nein. in die Zelle AA4 schreibst du

=mySum1(4:4;AA:AA)
oder
=mySum1($A4;AA:AA)

 

[Joerg66]

Ach soo, na nun gehts
... dann versuche ich mal zu begreifen, wie die Funktion funktioniert, schätze aber das wird wohl nichts werden :-(
Ich Danke Die jedenfalls nochmal für Deine Geduld

 

[Yaslaw]

Wennd u zu einzelheiten der Funktion fragen hast, dann frag

 

[Joerg66]

Die kommen prompt:
Dim auftrag As Range: Set auftrag = iAuftagRow(1)
->was bedeutet hier die (1) am Ende?

Dim ersterWert As Range: Set ersterWert = ws.Cells(iAuftagRow.Row, iCalcColumn.Column)
-> hier wird quasi die Schnittmenge, also die Ergebniszelle festgestellt?

Do While auftrag.Offset(delta).Value = Empty And ersterWert.Offset(delta).Value <> Empty
-> hier scheinst Du das Ende des zu addierenden Bereiches "=Summe(ersterWert:???)" herauszufinden.
Ich verstehe aber das "=Empty" nicht .... nee, eigentlich den ganzen Ablauf nicht.
Wenn Du mir das erklären würdest?!

 

[Yaslaw]

Beipeispiel
=mySum1(4:4;C:C)

1) Erste Zelle des Ranges. ->A4

2) Nimm die Zelle der Tabelle, mit der Zeile aus iAuftragRow und der Spalte aus iCalcColumn
Sozusagen die Schnittzelle der Zeile und der Spalte ->C4

3)Do while. Also eine Schleife "Mach solange"
offset() gibt die Zelle zurück, die um offset(Anzahl Zeilen, Anzahl Spalten) zur Ursprungszelle versetzt ist
Feld Auftrag (Erstes Feld der aktuellen Zeile (A4)) plus delta ist leer (empty)
UND Schnittfeld C4 plus delta ist NICHT leer.

Anders ausgedrückt. Sobald eine neue Auftragsnummer kommt oder keine weitere Zahl zum zusammenrechnen, die Schliefe abbrechen.

 

[Joerg66]

Aaahh, oh man, da hätte ich dreimal so viel code für gebraucht.
Vielen Dank nochmal!!