Danke für das nette Angebot. EIne Frage hätte ich tatsächlich noch offen, wirklich versprochen die letzte.
Wenn ich dein Code nehme und direkt dahinter einen analogen Programmcode reinbaue der wie folgt aussieht:
zweitesuche = Application.CountIf(ActiveSheet.Range("A3:AG3"), finanzpartnername)
If zweitesuche > 0 Then
finanzpartnerinauswertungsblatt = finanzpartnername
spalte = Application.WorksheetFunction.Match(finanzpartnername, ActiveSheet.Range("A3:AG3"), 0)
MsgBox spalte
Else
MsgBox "Wert nicht gefunden!"
End If
drittesuche = Application.CountIf(ActiveSheet.Range("A1:A150"), betriebsnummer)
If drittesuche < 0 Then
betriebsnummerinauswertungsblatt = betriebsnummer
spaltebetrieb = Application.WorksheetFunction.Match(finanzpartnername, ActiveSheet.Range("A1:A150"), 0)
MsgBox spaltebetrieb
Else
MsgBox "Wert nicht gefunden!"
End If
Dann lande ich quasi in einer Art "Endlosschleife. Im oberen Teil suche ich mir ja dank deiner erfolgreich die Reihe raus, bspw. erhalte ich bei einem ersten Durchlauf als Ergebnis für den Wert "spalte" den Wert 5. Ist auch alles prima.
Unmittelbar danach zeigt mir die Msg Box den Wert "Wert nicht gefunden" an, obwohl das Programm hätte etwas finden sollen. Ich hab das Zeichen kleiner gleich auch mal testweise wie oben auf größer > gestellt, also genau wie oben, dann erhalte ich wieder einen Laufzeitfehler :S
Also mein Ziel ist im eigentlichen Sinne nur die exakte Reihennummer für den Wert des Finanzpartners im angebenen Bereich (A3:AG3) <--- das klappt ja einwandfrei und analog dazu den Wert der exakten Reihennummer für die Betriebsnummer in dem angegebenen Bereich (A1:A150) zu ermitteln. ---> genau das klappt nicht. Liegt es evtl. an irgendeiner Reihenfolge? Ich dachte dass dies genau so funktioniert. Leider tut es das so wie ich es hier notiert habe nicht.
Wenn du dich noch ein letztes mal erbarmen könntest? Ich bin noch lange on, das Ganze lässt mir keine Ruhe.
|