Clever-Excel-Forum

Seiten: 1 2

Anbei einmal eine Beispieldatei mit und ohne Makro.

Ich bedanke mich Ralf!

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

Seiten: 1 2

joshua

RPP63