Ermittlung Zellen mit bestimmtem Inhalt
07.11.2014 14:41:57
Peter
Ich möchte eine UDF entwickeln. Damit ich die gewünschten Berechnungen vornehmen kann, sollte ich bestimmen können, in welcher Zelle oberhalb und unterhalb von rng eine Zahl (nicht nur ein numerischer Eintrag) steht. Falls der Wert oberhalb, resp. der Wert unterhalb keine Zahl ist (oder überhaupt kein Eintrag mehr vorhanden ist), soll die Variable blnNeinO resp. blnNeinU auf TRUE gesetzt werden.
Wie kann ich die Position eines allfälligen oberen oder unteren Wertes ausgehend von rng (Zelle wird mit UDF übergeben) bestimmen?
Die Funktion wird dann noch nicht fertig sein, doch mit diesen gesuchten Zwischenergebnissen müsste ich dies dann schaffen.
Gruss, Peter
Option Explicit
Public Function psInt(rng As Range) As Double
Dim rngZelleO As Range, rngZelleU As Range, blnNeinO As Boolean, blnNeinU As Boolean
Debug.Print rng.value
If Application.WorksheetFunction.IsNumber(rng.value) Then
psInt = rng.value
Else
'' Zelle, in welcher oberhalb von rng eine Zahl ist der Variable rngZelleO zuweisen
'' falls nicht zutreffend (leer, Fehlerwert oder Text), blnNeinO den Wert TRUE zuweisen
'' Zelle, in welcher unterhalb von rng eine Zahl ist der Variable rngZelleU zuweisen
'' falls nicht zutreffend (leer, Fehlerwert oder Text), blnNeinU den Wert TRUE zuweisen
End If
End Function