value eigenschaft

Function SVERWEIS2(strKriterium As String, rngBereich As Range, iSuch As Integer, iErg As Integer, Optional strTrenner As String) As String
'Somit auch svereis nach links möglich
Dim arrTmp, i As Long
arrTmp = rngBereich
For i = 1 To UBound(arrTmp)
If arrTmp(i, iSuch) = strKriterium Then SVERWEIS2 = SVERWEIS2 & arrTmp(i, iErg) & strTrenner
Next
' SVERWEIS2 = Left(SVERWEIS2, Len(SVERWEIS2) - 1)
End Function

Sub finden()
Const Name = "Beitrag"
For Each zelle In Range("B1:B20")
If zelle.value = Name Then
zelle.Select
Selection.Font.Size = 12
Selection.Font.ColorIndex = 5
End If
Next
End Sub