Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
888to892
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
888to892
888to892
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Selection ??

Selection ?
30.07.2007 10:18:32
Andrea
Guten Morgen
wie kann ich bei folgendem aufgezeichneten Code das SELECT rauslassen?
' Range("I50,K50,M50,N50").Select
' Range("N50").Activate
' Selection.Borders(xlDiagonalDown).LineStyle = xlNone
' Selection.Borders(xlDiagonalUp).LineStyle = xlNone
' Selection.Borders(xlEdgeLeft).LineStyle = xlNone
' With Selection.Borders(xlEdgeTop)
' .LineStyle = xlContinuous
' .Weight = xlThin
' .ColorIndex = xlAutomatic
' End With
' With Selection.Borders(xlEdgeBottom)
' .LineStyle = xlDouble
' .Weight = xlThick
' .ColorIndex = xlAutomatic
' End With
' Selection.Borders(xlEdgeRight).LineStyle = xlNone
' Rows("50:50").Select
' Selection.RowHeight = 16
' Selection.Font.Bold = True
vielen Dank für Eure Mühe
Gruss Andrea

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Selection ?
30.07.2007 10:21:00
Hajo_Zi
Hallo Andrea,

Option Explicit
Sub Andrea()
With Range("I50,K50,M50,N50")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
.Borders(xlEdgeLeft).LineStyle = xlNone
With .Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Borders(xlEdgeBottom)
.LineStyle = xlDouble
.Weight = xlThick
.ColorIndex = xlAutomatic
End With
.Borders(xlEdgeRight).LineStyle = xlNone
End With
With Rows("50:50")
.RowHeight = 16
.Font.Bold = True
End With
End Sub



Anzeige
Hajo: vielen Dank (OT)
30.07.2007 10:31:47
Andrea

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige