Sub EdgeNone()
Dim Zeile As Long
Dim ZeileMax As Long
Dim Text As Variant
With tblTest
Text = "none"
ZeileMax = .UsedRange.Rows.Count
For Zeile = 2 To ZeileMax
If InStr(1, .Range("I" & Zeile).Value, Text, 1) Then
.Range(.Cells(Zeile, "A"), .Cells(Zeile, "S")).Borders(xlEdgeTop).LineStyle = xlContinuous
End If
Next Zeile
End With
End Sub
Gruß Ralf
Gib einem Mann einen Fisch und du ernährst ihn für einen Tag.
Lehre einen Mann zu fischen und du ernährst ihn für sein Leben. (Konfuzius)
Folgende(r) 1 Nutzer sagt Danke an RPP63 für diesen Beitrag:1 Nutzer sagt Danke an RPP63 für diesen Beitrag 28 • joshua