Microsoft Excel

Herbers Excel/VBA-Archiv

Rahmen Edge - geht das einfacher | Herbers Excel-Forum


Betrifft: Rahmen Edge - geht das einfacher von: Florian
Geschrieben am: 29.01.2010 08:54:17

Guten morgen zusammen!

Eine Frage, die zugegeben kein grosses Problem ist, im Alltag aber etwas nervt: über eine Range soll eine Rahmen (nur ausssen) gezogen werden. Muss ich dazu die Range jedesmal über diesen Vierzeiler ansprechen, oder geht das nicht auch einfacher mit einer Zeile, so dass ich immer nur den Rand miteinbeziehe?

.Range(.Cells(1, 2), .Cells(20, 40)).Borders(xlEdgeRight).Weight = xlThin
.Range(.Cells(1, 2), .Cells(20, 40)).Borders(xlEdgeLeft).Weight = xlThin
.Range(.Cells(1, 2), .Cells(20, 40)).Borders(xlEdgeTop).Weight = xlThin
.Range(.Cells(1, 2), .Cells(20, 40)).Borders(xlEdgeBottom).Weight =xlThin

Besten Dank schonmal!
Florian

  

Betrifft: AW: Rahmen Edge - geht das einfacher von: Hajo_Zi
Geschrieben am: 29.01.2010 08:58:28

Halo Florian,

With .Range(.Cells(1, 2), .Cells(20, 40))
.Borders(xlEdgeRight).Weight = xlThin
.Borders(xlEdgeLeft).Weight = xlThin
.Borders(xlEdgeTop).Weight = xlThin
.Borders(xlEdgeBottom).Weight =xlThin
End With

GrußformelHomepage


  

Betrifft: AW: Bordersaround von: hary
Geschrieben am: 29.01.2010 09:25:07

Hallo Florian
so?

Range(Cells(1, 2), Cells(20, 40)).BorderAround 1, xlThin

gruss hary


  

Betrifft: Yes!! Danke oT von: Florian
Geschrieben am: 29.01.2010 09:56:38

..


  

Betrifft: Ergänzung : Linien wieder löschen von: NoNet
Geschrieben am: 29.01.2010 14:13:17

Hallo Hary,

als Ergänzung : So kannst Du alle Rahmenlinien des Bereiches wieder löschen :

Range(Cells(1, 2), Cells(20, 40)).Borders.Linestyle=xlLineStyleNone

Gruß, NoNet


Beiträge aus den Excel-Beispielen zum Thema "Rahmen Edge - geht das einfacher"