Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.02.2021 19:26:29 |
Till |
|
|
|
22.02.2021 19:41:02 |
Gast15423 |
|
|
|
22.02.2021 19:49:20 |
Till |
|
|
|
22.02.2021 19:50:53 |
Gast15423 |
|
|
|
22.02.2021 19:58:25 |
Till |
|
|
|
22.02.2021 20:03:58 |
Gast81840 |
|
|
|
22.02.2021 20:11:38 |
Till |
|
|
Rückgabewert von Funktion ist 0 |
23.02.2021 03:27:38 |
Gast15423 |
|
|
Von:
Gast15423 |
Datum:
23.02.2021 03:27:38 |
Views:
661 |
Rating:
|
Antwort:
|
Thema:
Rückgabewert von Funktion ist 0 |
Umsetzen kann man das auf unterschiedliche Art und Weise.
Meine Lösung würde so aussehen:
Option Explicit
Public Function QuantileFind(ByVal q As Double) As Variant
On Error GoTo ErrHandler
With Worksheets("Tabelle1")
With .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
'Funktion verlassen,
' falls wir oberhalb von A2 gelandet sind
If .Row < 2 Then
QuantileFind = Empty
Exit Function
End If
Dim r As Excel.Range
Dim n As Long
'liefert die max. Anzahl der Stellen
' nach dem Dezimaltrennzeichen im Datenbereich
n = .Worksheet.Evaluate("MAX(IFERROR(LEN(" & .Address & ")-FIND("".""," & .Address & "),0))")
'suche nach q
Do While r Is Nothing And n > 0
q = WorksheetFunction.Round(q, n)
Set r = .Find(q, , xlValues, xlWhole)
If r Is Nothing Then n = n - 1
Loop
End With
End With
If r Is Nothing Then
QuantileFind = Empty
Else
QuantileFind = r.Offset(0, 1).Value
End If
Exit Function
ErrHandler:
QuantileFind = CVErr(Err.Number)
End Function
Grüße
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.02.2021 19:26:29 |
Till |
|
|
|
22.02.2021 19:41:02 |
Gast15423 |
|
|
|
22.02.2021 19:49:20 |
Till |
|
|
|
22.02.2021 19:50:53 |
Gast15423 |
|
|
|
22.02.2021 19:58:25 |
Till |
|
|
|
22.02.2021 20:03:58 |
Gast81840 |
|
|
|
22.02.2021 20:11:38 |
Till |
|
|
Rückgabewert von Funktion ist 0 |
23.02.2021 03:27:38 |
Gast15423 |
|
|