Rahmen automatisch erstellen mit Makro ?
13.08.2004 14:03:03
Andreas
ich habe in meiner Excel Datei mehrere Datenreihen, welche über mehrere Seiten gehen. Diese sind immer unterschiedlich lang und ich möchte sie gerne automatisch umrahmt haben.
für den Rahmen unten und oben am Seitenwechseln hab ich schon folgenden VBA code der funzt
"
Sub Seitenumbruch_oben()
Dim intAnzahl() As Integer
Dim objZeile As Object
For Each objZeile In ActiveSheet.UsedRange.Rows
If objZeile.PageBreak <> xlNone Then
objZeile.Offset(0, 0).Select
Range(ActiveCell.Offset(0, 6), ActiveCell).Select
Selection.Borders(xlEdgeTop).Weight = xlThin
End If
Next
MsgBox ("Der Vorgang ist beendet")
End Sub
nun suche ich aber eine möglichkeit den rahmen am datenende zuziehen. sprich wenn keine Daten mehr kommen und die zelle leer ist sollte bei der letzten beschriebenen zelle ein unterer rahmen über die komplette seite gehen.
wenn jemand eine idee oder gar lösung hat wäre ich doch sehr dankbar
mfg
andreas