Wenn ich einen bestimmten Eintrag - per VBA - in einer Spalte finden möchte verwende ich der Regel den folgenden Code:
Dim NameSP As Range
Set NameSP = Sheets("Konten").Rows(1).Find( _
What:=Textbox1, _
Lookat:=xlWhole, _
LookIn:=xlValues)
Dim Erfdat As Range
Set ErfDat = Sheets("Konten").Columns(NameSP.Column).Find( _
What:=TextBox2, _
Lookat:=xlWhole, _
LookIn:=xlValues)
In der ersten Zeile (Überschriftenzeile) des Sheets "Konten" wird hierbei nach dem Namen gesucht, welcher in der Textbox1 der UF eingegeben wurde. Hierdurch wird die zu durchsuchende Spalte (NameSP) festgelegt.
Die Spalte (NameSP) wird anschließend nach unten durchlaufen, auf der Suche nach dem - in diesem Fall - Datum aus Textbox2.
Das Funktioniert soweit auch wunderbar. Der Code findet zuverlässing den ersten entsprechenden Eintrag in der Spalte, aber leider auch nur den ersten.
Denn ich möchte über eine If-Bedingung den Buchungstext, welcher exakt eine Spalte weiter vom Buchungsdatum steht nach einem bestimmten Kriterium abfragen, und soweit dieser Buchungstest nicht dem Kriterium entspricht, die Suche in der Datumsspalte nach unten fortsetzten.
Hier liegt mein Problem, dass immer beim ersten entsprechenden Eintrag die Suchbedingung abbricht.
Ich komme auch nach lagem Hin und Her auf keinen Lösungsansatz.
Ich hoffe soweit ist alles verständlich.
Wer hat hier einen intelligenten Ansatz für mich?
Herzlichen Dank vorab!
Malcolm_p