Vereinfachung zweier Funktionen
13.05.2015 07:42:32
Timmy
ich bin nicht allzu tief im VBA drin, daher die Frage nach Vorschlägen um die nachfolgenden beiden Funktionen vielleicht zusammenfassen zu können, um etwas Rechenleistung zu sparen:
Die ermittelte Position ist in beiden Fällen die selbe. Allerdings sollen verschiedene Werte (Zellen) zurückgegeben werden.
Function Weg_1(Position)
Dim Zahl As Double
Dim Bereich As Range
Dim Zelle As Range
Dim erg As Integer
Dim Zeile
Dim Spalte
Zeile = Position.Row
Spalte = Position.Column
Zahl = Cells(Zeile, Spalte)
Set Bereich = Range(Cells(2, Spalte + 2), Cells(1510, Spalte + 2))
For Each Zelle In Bereich
If Zahl