Schleife, da ich alle Werte x in einer Spalte B ansprechen will. Mit folgendem Code scheint das zu funktionieren, nur muss dabei der wert von if und der wert in der Tabelle 1 zu 1 übereinstimmen. Ich hätte gern etwas wie xlPart bei der Funktion Find. Funktion Find bleibt immer beim ersten gefundenen Wert stehen. Like funktioniert bei mir nicht unter Verwendung von Parametern. Das Problem hätte ich gerne noch gelöst.
Sub SucheSpalteB(wert As String, eintrag As String)
ThisWorkbook.Worksheets("Tabelle1").Activate
Dim Zelle As Range
For Each Zelle In Range("B2:B6")
If Zelle.Value = wert Then
Zelle.Offset(0, 1).Value = eintrag
ElseIf Zelle.Value < 0 Then
Zelle.Offset(0, 1).Value = "Negativ"
Else
Zelle.Offset(0, 1).Value = "Null"
End If
Next Zelle
End Sub
Sub aufruf()
Call SucheSpalteB("Ha", "postK")
End Sub
|