Anzahl oder Anzahl2

Hallo R.Harcken,



lass mich versuchen Ihnen zu helfen.



Für eine Hilfestellung und Informationen, wie Sie dies tun können, besuchen Sie bitte diesen Link:

Zählen der Anzahl von Zeilen oder Spalten.



Wenn Sie neu in Excel sind, hier ist eine Kurzanleitung:

Willkommen bei Excel 2016.

Wir freuen uns auf Ihre Rückmeldung.



LG



AEG

Hallo,

ANZAHL zählt im Bereich nur die numerischen Werte. ANZAHL2 zählt alle Werte.

Claus

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 Sascha,

ich sehe deinen Screenshot nicht.

Wenn du Zahlen in der Spalte hast, probiere es mit ANZAHL. ANZAHL2 zählt alle Einträge, also auch Text- und Fehlerwerte.

=INDEX(L:L;ANZAHL(L:L)+1)

Claus