Hallo Peko
Ein Beispiel einer Rahmung!
Gruß Nighty
Ausgehend von zur Zeit der 5 Spalte!
[code]Sub ZellRahmen()
Dim WksRahmen As Variant
Dim LetzteZeile As Long
Dim DeineSpalte As Integer
DeineSpalte = 5
LetzteZeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
Range(Cells(1, DeineSpalte), Cells(LetzteZeile, DeineSpalte + 4)).Borders(xlDiagonalDown).LineStyle = xlNone
Range(Cells(1, DeineSpalte), Cells(LetzteZeile, DeineSpalte + 4)).Borders(xlDiagonalUp).LineStyle = xlNone
For Each WksRahmen In Array(xlEdgeLeft, xlEdgeTop, xlEdgeBottom, xlEdgeRight, xlInsideVertical, xlInsideHorizontal)
Range(Cells(1, DeineSpalte), Cells(LetzteZeile, DeineSpalte + 4)).Borders(WksRahmen).LineStyle = xlContinuous
Next WksRahmen
End Sub[/code]