EdgeTop bei Signalwort

[joshua]

Anbei einmal eine Beispieldatei mit und ohne Makro.


Ich bedanke mich Ralf!

[RPP63]

Schaue Dir mal mein Makro an und vergleiche:

Code:

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