Hallo! Also falls du die range und den zu suchenden Wert nur einmal eingeben willst, kannst du es auch mit der gestern mal kurz erwähnten Application.match Variante ausführen. Dabei würde das Countif vorher wegfallen. Würde dann so ausssehen. VG
spalte = Application.Match(finanzpartnername, ActiveSheet.Range("A3:AG3"), 0)
If IsNumeric(spalte) Then
finanzpartnerinauswertungsblatt = finanzpartnername
MsgBox spalte
Else
MsgBox "Wert nicht gefunden!"
End If
spaltebetrieb = Application.Match(betriebsnummer, ActiveSheet.Range("A1:A150"), 0)
If IsNumeric(spaltebetrieb) Then
betriebsnummerinauswertungsblatt = betriebsnummer
MsgBox spaltebetrieb
Else
MsgBox "Wert nicht gefunden!"
End If
|