Abhängigkeit von der Zelle, in der die Formel ist

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,

mmh, ich werds mal versuchen:

also ich will in der Zelle (i j) schreiben =berechne()
und dann soll er halt die Funktion (oder was auch immer) ausführen

dabei soll er dann in die Zellen (i j-1), (i, 3) und (1, j-1) gucken, sich die Werte von dort holen und dann noch was rechnen ...

Von mir aus rechne ich einfach die Werte aus den 3 Zellen zusammen, das würde für den Anfang reichen ...

also meine Funktion würde dann so aussehen:


Function bereche()
i = ActiveCell.Row
j = ActiveCell.Column
wert1 = Cells(i, j - 1)
wert2 = Cells(i, 3)
wert3 = Cells(1, j - 1)
berechne = wert1 + wert2 + wert3
End Function

Wenn man jetzt in der richtigen Zelle steht, funktioniert die Funktion auch, das Problem ist nur, wenn ich "nach unten ausfüllen" machen, ist die aktive Zelle ja weiterhin (i j) und somit wird diese als Bezug genommen (was natürlich nicht sein soll) ...

Ich hoffe das war jetzt verständlicher?

Vielen Dank
Ulli

Hallo,

mmh, schade, ich find mein Problem ganz klar ;-) Ok ich versuchs mal:

Es handelt sich um Mannschaften (das sind die Buchstabenkombinationen), Spieltage (die Zahlen in der erste Zeile) und die Punkte, die die Mannschaft in dem Spiel gemacht hat.
Aus diesen Angaben soll jetzt ein Bonus ermittelt werden. Dieser berechnet sich aus dem Ranking des jeweiligen Gegners. (Also bei einem schweren Gegner ein hoher Bonus, bei einem leichten Gegner keiner)

Dazu muß die Funktion getBonus sich den Gegner der Mannschaft am jeweiligen Spieltag aus einer anderen Tabelle holen, dann in noch einer anderen Tabelle deren (an diesem Tag) aktuelles Ranking heraussuchen und dann den Wert berechnen ...

Ich kann gerne den ganzen Quelltext posten, is halt nur ein bissl kompliziert, dadurch daß so viele Tabellen mit im Spiel sind ... sag bescheid, wenn ich das machen soll ...

Meine momentane Lösung sieht so aus, daß ich eine Funktion


Function getBonus(points, team, day)
Application.Volatile
rating = getTeamRating(getOpponent(team, day), day)
If rating > 0 Then
getBonus = points * ((32 - rating) / 62 - 1 / 4)
Else
getBonus = 0
End If
End Function

habe, und dann in der Tabelle z.B. in Feld 3E =getBonus(3D, 3C, 1) aufrufe
so kann man immerhin ein "nach unten ausfüllen" in der ganzen Spalte machen, ohne viel ändern zu müssen

Nun würde ich gerne die 1 aber durch die entsprechende Zellreferenz ersetzen

Schreibe ich aber =getBonus(3D, 3C, 1C), dann würde beim nach unter kopieren als letztes Argument ein "2C" erscheinen - wo natürlich nicht die entsprechende 1 steht ...

Deshalb dachte ich, könnte man vielleicht die Zellposition im Quelltext verankern - nämlich dort wo der Funktionsaufruf stattfindet (also Zelle 3E) eine Zelle nach links und in der ersten Zeile befindet sich der Spieltag

Vielleicht geht das auch gar nicht?

Vielen Dank & viele Grüße
Ulli

Beliebteste Forumthreads (12 Monate)

Abhängigkeit von der Zelle, in der die Formel ist

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Abhängigkeit von der Zelle, in der die Formel ist

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread