Guten morgen im Forum
Ich möchte im unteren Makro noch bei "Interior.ColorIndex = 34"
einen fetten Rahmen oben und unten hinzufügen.
Habe es mit
'Fetter Rahmen um Alles herum...
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
probiert leider ohne Erfolg.
Könnte mir bitte jemand weiterhelfen.
Gruß Heinz
End If
Cells(i + 1, sp + 5).FormulaR1C1 = "=Sum(R[-" & m & "]C:R[-1]C)"
Cells(i + 1, sp + 6).FormulaR1C1 = "=Sum(R[-" & m & "]C:R[-1]C)"
Cells(i + 1, sp + 7).FormulaR1C1 = "=Sum(R[-" & m & "]C:R[-1]C)"
Cells(i + 1, sp + 8).FormulaR1C1 = "=Sum(R[-" & m & "]C:R[-1]C)"
Cells(i + 1, sp + 14).FormulaR1C1 = "X"
Range(Cells(i + 1, 1), Cells(i + 1, 15)).Interior.ColorIndex = 34
End If
Next