Sub n()
Dim zelle As Range
With Worksheets(1).Range("a2:a50") ' Tabellenname anpassen
.Range("a2:a50").Borders.LineStyle = xlLineStyleNone
Set zelle = .Find(139, LookIn:=xlValues)
Range(zelle.Address).BorderAround ColorIndex:=3, Weight:=xlThick
End With
End Sub
Sub n()
Dim zelle As Range
With Worksheets(1).Range("I2:I50") ' Tabellenname anpassen
Worksheets(1).Range("a2:a50").Borders.LineStyle = xlLineStyleNone
Set zelle = .Find(139.9, LookIn:=xlValues)
Range(zelle.Address).Offset(0, -8).BorderAround ColorIndex:=3, Weight:=xlThick
End With
End Sub
Sub Vorschlag()
Dim zelle As Range
For Each zelle In Range("A2:A50")
If zelle.Value = "139" Then
Set zelle = Range(zelle.Address)
zelle.BorderAround ColorIndex:=3, Weight:=xlThick
End If
Next
Set zelle = Nothing
End Sub
