Rahmen für 2 Bereiche festlegen
05.12.2006 07:49:20
Peter
Ich möchte, ausgehend von Zeile gem. Variable Legende (hier 2) um zwei Bereiche Rahmen erstellen.
Vom Ausgangspunkt, hier also A2 ist der erste Bereich 20 Zeilen nach unten und 3 Spalten nach rechts; der zweite Bereich vom gleichen Ausgangspunkt 20 Zeilen nach unten und 14 Spalten nach rechts.
Mit meinem Versuch bin ich gescheitert, da gemäss Fehlermeldung eine Objektvariable fehlt.
Kann mir jemand auf die Sprünge helfen?
Vielen Dank.
Peter
PEter
Sub Makro1()
Dim Rahmen1 As Range
Dim rahmen2 As Range
Dim Legende As Single
With Sheets("Tabelle1")
Legende = 2
Rahmen1 = .Range(Cells(Legende, 1), Cells(Legende + 20, 3))
Rahmen1.Borders.LineStyle = xlSolid
Rahmen1 = .Range(Cells(Legende, 1), Cells(Legende + 20, 14))
Rahmen1.Borders.LineStyle = xlSolid
End With
End Sub