Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
444to448
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
444to448
444to448
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Rahmen um Zelle (VBA)
24.06.2004 11:05:12
Michal
Wenn ich mit VBA einen Rahmen um eine Zelle machen will, der überall gleich dick, gleiche Form, usw. ist, wie schreib ich das kürzer als das?
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Gruss Michal

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

Betreff
Datum
Anwender
Anzeige
AW: Rahmen um Zelle (VBA)
KlausK
Hallo Michal,
Excel bietet nun mal die Möglichkeit, die Zellen nicht unbedingt komplett einzurahmen. Daher muss jedes Rahmenteil explizit gesetzt werden. Eine andere Möglichkeit wäre, eine Zelle zu rahmen und diese dann via Makro kopieren, INHALTE EINFÜGEN - FORMATE.
Gruss
KlausK
AW: Rahmen um Zelle (VBA)
GerdZ
Hallo Michal,
die xlEdge-Konstanten haben folgende Werte:
5 - xlDiagonalDown
6 - xlDiagonalUp
7 - xlEdgeLeft
8 - xlEdgeTop
9 - xlEdgeBottom
10 - xlEdgeRight
11 - xlInsideVertical
12 - xlInsideHorizontal
Daher läßt sich Dein Problem mit einer For-Next-Schleife lösen:
Sub Rahmen()
Dim Index As Integer
For Index = xlEdgeLeft To xlEdgeRight
With Selection.Borders(Index)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Next Index
End Sub

Gruß
Gerd
Anzeige
AW: Rahmen um Zelle (VBA)
K.Rola
Hallo,

Sub Rahmen()
ActiveCell.BorderAround ColorIndex:=5, Weight:=xlMedium
End Sub

Gruß K.Rola

59 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige