Mit Makro
25.03.2021 15:43:22
Daniel
Hi
man kann zwar vieles mit Formeln machen, aber manches geht mit "klassischem" VBA dann doch übersichtlicher.
ich würde hier die Werte in ein Array laden und mit einer Schleife drüber gehen und die Spaltenwerte vergleichen, bis es einen Treffer gibt.
in VBA kann man auch besser auf Besonderheiten reagieren, z.B. hast du hier in der Tabelle gelegentlich Leerzeichen am Ende der Werte, die dir das Ergebnis verfälschen können. In VBA entfernt man sowas dann einfach, bei Formeln wirds aufwendig.
Sub Suchen()
Dim arr
Dim z
Dim Suchwert As String
Dim Tabellenwert As String
Suchwert = Join(Array("3", "L", "Sie", "Master"), "-")
Suchwert = Replace(Suchwert, " ", "")
arr = Cells(1, 1).CurrentRegion
For z = 1 To UBound(arr)
Tabellenwert = Join(Array(arr(z, 1), arr(z, 2), arr(z, 3), arr(z, 4)), "-")
Tabellenwert = Replace(Tabellenwert, " ", "")
If Suchwert = Tabellenwert Then Exit For
Next
If z > UBound(arr, 1) Then
MsgBox "nicht gefunden"
Else
MsgBox "Ergebnis für: " & Suchwert & " = " & arr(z, 5)
End If
End Sub
bei der Erstellung des Suchswertes setzt du natürlich deine Text- und Combobox-Daten ein.
Gruß Daniel