Hallo M.O.,
vielen Dank. Hab es noch ein wenig an meine "Bedürfnisse" angepasst.
Sub Rahmen()
Dim lzeile As Long
lzeile = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
'Alle Daten des Blattes anzeigen
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
'Rahmen ziehen
With Range("A6:M" & lzeile).Borders
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlHairline
End With
With Range("G6:G" & lzeile).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = xlAutomatic
.TintAndShade = 0
.Weight = xlThin
End With
With Range("A6:M" & Cells(Rows.Count, 13).End(xlUp).Row).BorderAround(xlContinuous)
End With
End Sub
Sieht gleich viel übersichtlicher aus.
Gruß Florian