Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1132to1136
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Rahmen Edge - geht das einfacher | Herbers Excel-Forum

Rahmen Edge - geht das einfacher
29.01.2010 08:54:17
Florian

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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rahmen Edge - geht das einfacher
29.01.2010 08:58:28
Hajo_Zi
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

AW: Bordersaround
29.01.2010 09:25:07
hary
Hallo Florian
so?

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

gruss hary
Yes!! Danke oT
29.01.2010 09:56:38
Florian
..
Ergänzung : Linien wieder löschen
29.01.2010 14:13:17
NoNet
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige