Rahmen setzen variabel
20.06.2006 19:33:57
Angela
auf einem Tab werden über ein Spezialfilter Daten gefiltert.
Die Überschriften sind von A9:I9, darunter befinden sich die Daten, wobei auch Leerfelder sein können. Durch die Filterung sind die Daten variabel.
Nun möchte ich gern für den Bereich A10:I? einen Rahmen haben.
Unter Service habe ich einen Code gefunden, und versucht ihn anzupassen, leider gelingt es mir nicht richtig.
Wäre schön wenn mir jemand Helfen könnte.
Anbei der Code.
Mfg. Angela
Sub Rahmen()
Dim A As Range, Ctmp As Range
For Each A In Range(Cells(10, 2), Cells(9, 5).End(xlDown)).SpecialCells(xlCellTypeVisible)
With Range(A.Offset(0, -1), A.Offset(0, 4))
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
If Not Ctmp Is Nothing Then
If A <> Ctmp Then
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Else
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End If
End If
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
Set Ctmp = A
Next A
Set A = Cells(65536, 2).End(xlUp)
With Range(A.Offset(0, -1), A.Offset(0, 4))
With .Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub