|
Kopiere das in ein MODUL (Wenn du keins hast, neu erstellen).
Dann kannst du entweder in einer Zelle eingeben: =Suche(5) und erhätst "links", "rechts" oder "nix", oder
du kannst die Funktion im Code benutzen, z.B. so:
if Suche(5)="links" ....
Übrigens, du kannst nicht "Value" als Variablen-Namen benutzen, da "Value" zum Befehlssatz von VBA gehört.
Public Function Suche(ByVal wert As Long) As String
Dim z, zahl1, zahl2
Suche = "nix"
For z = 2 To 1000
zahl1 = Val(Left(ActiveSheet.Cells(z, 1), 2))
zahl2 = Val(Left(ActiveSheet.Cells(z, 2), 2))
If wert = zahl1 Then
Suche = "links"
End If
If wert = zahl2 Then
Suche = "rechts"
End If
If Suche <> "nix" Then
Exit Function 'Damit der Code beim 1. Fund aufhört, weiter zu suchen.
End If
Next z
End Function
|