Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 19:29:30
24.04.2024 18:49:56
Anzeige
Archiv - Navigation
844to848
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
844to848
844to848
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

kürzerer Code beim Linien ziehen

kürzerer Code beim Linien ziehen
12.02.2007 14:53:41
georg
Hallo Excel-Welt,
ich habe ff immer wieder im Code. Geht das nicht kürzer? Eigentlich ist es ja immer wieder das Gleiche.
With Selection.Borders(xlEdgeLeft)
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeTop)
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeBottom)
.Weight = xlMedium
End With
With Selection.Borders(xlEdgeRight)
.Weight = xlMedium
End With
Gruß und Dank
Georg

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: kürzerer Code beim Linien ziehen
12.02.2007 15:07:09
Peter
Hallo Georg,
so ist es schon etwas kürzer:
With Selection
.Borders(xlEdgeLeft).Weight = xlMedium
.Borders(xlEdgeTop).Weight = xlMedium
.Borders(xlEdgeBottom).Weight = xlMedium
.Borders(xlEdgeRight).Weight = xlMedium
End With
Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
AW: kürzerer Code beim Linien ziehen
12.02.2007 15:14:59
Galenzo
Selection.Borders.Weight = xlMedium
Viel Erfolg!
/Galenzo
danke euch beiden ! owT
12.02.2007 15:29:55
georg
,
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige