|
Hi, Deniz
Schreibe das in ein MODUL:
Public Function SuchMatrix(ByVal ZeSuch As Variant, ByVal SpSuch As Variant, rng As Range) As Variant
Dim z, s, zfound, sfound, zmax, smax As Integer
z = rng.Row: s = rng.Column
zmax = z + rng.Rows.Count - 1
smax = s + rng.Columns.Count - 1
zfound = 0
For z = 2 To zmax
If Cells(z, 1) = ZeSuch Then zfound = z
Next z
For s = 2 To smax
If Cells(1, s) = SpSuch Then sfound = s
Next s
If zfound <> 0 And sfound <> 0 Then
SuchMatrix = Cells(zfound, sfound).Value
Else
SuchMatrix = False
End If
End Function
Aufruf mit
=SuchMatrix("Heinz";"Gelb";A1:D4)
Gibt den Wert aus, wenn gefunden, "FALSCH" bei nicht gefunden.
|