Wenn in A String, dann Rahmen unten
Kai
ich möchte mit einer Schleife die Spalte A durchsuchen. Überall, wo in Spalte A "Planung" gefunden wird, soll in dieser Zeile die Spalten A bis K mit einem Rahmen (nur unten) versehen werden. Ich habe das mal versucht mit aufzeichnen, das war aber nicht so das wahre:
Dim i
For i = 1 To 20
If ActiveSheet.Cells(i, 1).Value = "Planung" Then
Range("A:K").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
End If
Next i
Kann mir jemand weiter helfen ?
Danke