Liebe Forum,
ich sitze mal wieder vor einem für mich unlösbaren Problem.
Folgende Aufgabe:
Ich will aus zwei Spalten die Zahlen ab der Zeile 10 bis zur letzten Zahl in einer Funktion auswerten bzw. auslesen.
Ab der Zeile 10 (z.B. will ich der Funktion sagen, durchsuche die Spalten C und D ab der Zeile 10, also den Zellen C10 und B10 nach unten)
sollen die Zahlen durchsucht werden, bis die Zahl in der Spalte kleiner ist als eine Variable x in der Funktion. Es ist sichergestellt, dass die Zahlen in aufsteigender Reihenfolge aufgelistet sind und nach der letzten Zahl in der Spalte C und D stehen zwar noch Formeln, aber es wird der Wert "" ausgegeben.
Wie löse ich diese Aufgabe. Bisher habe ich die Spaltennummer zugeordnet.
Da ich die Funktion jedoch in verschiedenen Tabellenblättern mehrfach benötige, brauche ich jetzt eine globalere Programmierung der Funktion
Function SucheZahl (x as double) as double
~f~
~f~
Dim x_Spalte, y_Spalte As Double
~f~
~f~
x_Spalte = 9
y_Spalte = 10
i = 9
Sheets("Tabelle1").Select
Do Until Cells(i, x_Spalte).Value > x
i = i + 1
Loop
usw.
Hoffe, ihr könnt mir wie immer mit ein paar konkreten Tipps weiterhelfen.
Bernd