#define xlHairline 1 #define xlContinuous 1 #define xlHAlignCenter -4108 .... with .Range(.Cells(ln_Row, 1), .Cells(ln_Row, pn_MaxCols)) .Borders.LineStyle = xlContinuous && Durchgezogener Rahmen .Borders.Weight = xlHairLine .Interior.Color = pn_HeaderColor && helles Gelb .HorizontalAlignment = xlHAlignCenter && Zentrieren endwithHTH