Nochmals Moin! Also wenn du bei drittesuche die betriebsnummer suchst, must du die auch bei match angeben. :-) In der Matchfunktion bei drittesuche hast du noch finanzpartnername stehen. Dort sollte mE betriebsnummer hin. Bei Match tritt in den Variante ein Laufzeitfehler auf, da es den Wert nicht gibt (da nach dem falschen gesucht wird). KLeiner null bei Countif gibt es auch nicht - get nur 0 oder größer. Noch nen Exkurs. Wenn du mit einem Fehlerrückgabewert arbeiten willst, dann nimm nur Application.match. Dann kommt, so der Suchwert nicht da ist keine Fehlermeldung sondern ein Fehlerwert als Ergebnis. Zurück zum Thema. Als den Suchwert ändern und > setzen. Habe es unten mal gebastelt (ungetestet, da ich die Datei nicht nachgestellt habe - sollte aber klappen). Wenn doch noch Fragen sind :-) einfach stellen. Dafür gibt es ja das Forum. Wird dann aber erst morgen. VG
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(betriebsnummer, ActiveSheet.Range("A1:A150"), 0)
MsgBox spaltebetrieb
Else
MsgBox "Wert nicht gefunden!"
End If
|