Berechnung zwischen zwei Spalten z. B. Anzahl * Einzelpreis = Gesamtpreis in Sharepoint Liste

In einer UDF darfst Du keine Zellen verändern, daher ist "Selection.Style" nicht möglich. Ansonsten würde ich es vno meiner Logik her so machen.

Aber wieso gibt Deine Function einen LONG zurück und keinen DOUBLE? Gibt's bei Euch keine Cent-Beträge?

Im übrigen hat Claus Recht, denn die "Makulatur" für Einzelpreis ist ja nett, aber wenn der User bei einem der ANZAHL Parameter einen Text eingibt siehst Du wieder einen # Fehler...

Andreas.

Public Function testFunktion(ByVal Einzelpreis, _

ByVal ANZAHL As Integer, ByVal ANZAHL2 As Integer, ByVal ANZAHL3 As Integer, _

ByVal Anmerkung As String) As Double

If Not IsNumeric(Einzelpreis) Then

'Wenn keine Zahl in Einzelpreis dann 0

testFunktion = 0

ElseIf InStr(1, Anmerkung, "lt. Angebot", vbTextCompare) = 1 Then

'Wenn Angebot dann Einzelpreis

testFunktion = Einzelpreis

ElseIf (ANZAHL + ANZAHL2 + ANZAHL3) > 0 Then

'Ausrechnen

If Einzelpreis = 0 Then Einzelpreis = 1

If ANZAHL = 0 Then ANZAHL = 1

If ANZAHL2 = 0 Then ANZAHL2 = 1

If ANZAHL3 = 0 Then ANZAHL3 = 1

testFunktion = Einzelpreis * ANZAHL * ANZAHL2 * ANZAHL3

End If

End Function

Das ist auch eine Idee. Noch eine Idee wäre es einen Fehler intern mit einem ErrorHandler abzufangen und Parameter als Variant zu deklarieren. Dann gibt's entwerde 0 oder ein Ergebnis zurück.

Andreas.

Public Function testFunktion(ByVal Einzelpreis, _

ByVal ANZAHL, ByVal ANZAHL2, ByVal ANZAHL3, _

ByVal Anmerkung) As Double

'Wenn Fehler, dann zum Ende (liefert 0 zurück)

On Error GoTo ExitPoint

If InStr(1, Anmerkung, "lt. Angebot", vbTextCompare) = 1 Then

'Wenn Angebot dann Einzelpreis

testFunktion = Einzelpreis

Else

'Ausrechnen

If Einzelpreis = 0 Then Einzelpreis = 1

If ANZAHL = 0 Then ANZAHL = 1

If ANZAHL2 = 0 Then ANZAHL2 = 1

If ANZAHL3 = 0 Then ANZAHL3 = 1

testFunktion = Einzelpreis * ANZAHL * ANZAHL2 * ANZAHL3

End If

ExitPoint:

End Function

Hallo,

da muss ich jetzt nachfragen: Sind zwischendurch Leerzeilen oder nur unterhalb? Sind die Leerzellen dann in allen Spalten, die man zur Berechnung benötigt oder nur in einer?

Claus

Hallo,

innerhalb einer Tabelle wird von links nach rechts durchnummeriert. Im vorliegenden Fall soll aber jede Spalte für sich von oben nach unten nummeriert werden.

Du benötigst für die zu nummerierenden Absätze der linken (deutschsprachigen) Spalte eine eigene Listenformatvorlage (z. B. "Liste_deutsch" und für die Absätze der englischsprachigen Spalte ebenfalls (z. B. "Liste_englisch"). Beide Listenformatvorlagen müssen
jeweils identische Einstellungen zu Zahlenformat, Einzügen etc. aufweisen.

Sollen die Ebenen jeweils mit Absatzformatvorlagen verknüpft werden, werden für die deutschsprachigen Absätze in der ersten Spalte andere Formatvorlagen benötigt als für die Absätze in der englischsprachigen Spalte - was aufgrund der unterschiedlichen Sprachenzuweisung
sowieso geschehen sollte.

Viele Grüße

Lisa

Hallo Claus,

danke für Deine Mühe.

Vereinfacht sieht mein Problem so aus:

[table][tr][td][td]Preis[/td][/tr][tr][td]Produkt A[/td][td]x[/td][/tr][tr][td]Produkt B[/td][td]y[/td][/tr][tr][td]Zusätzlicher Faktor[/td][td]z[/td][/tr][tr][td]Total[/td][td]f(x,y,z)[/td][/tr][/table]

x, y und z sollen eingegeben werden können und aus ihnen berechnet sich nach der Formel f(x,y,z) ein Gesamtpreis. Jetzt soll die Eingabe von x, y und z folgendermaßen eingeschränkt werden:

1. Es gibt jeweils Minimal- und Maximalwerte für die entsprechende Eingabe
2. Der Wert f(x,y,z) darf eine bestimmte Grenze nicht überschreiten

Gelöst habe ich es eben durch eine benutzerdefinierte Datenüberprüfung, in der ich mit einer UND() Funktion abfrage, ob 1. und 2. erfüllt sind. Das funktioniert an sich auch einwandfrei, kann aber durch das beschriebene Klicken in eine andere Zelle umgangen
werden.

Gruß,

Matej