ohne select

Forumthread: ohne select

ohne select

14.08.2003 21:08:16

Peter

schönen guten abend,
mich nervt, leicht bis mittelschwer, das ewige Select.
Geht es in folgendem Beispiel auch ohne die dauernde
Selectiererei .....


Sub Linie_aus()
Range("AP8:BD12,AP14:BD19").Select
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Range("AP14:BD19").Select
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Range("A1").Select
End Sub


Sub Linie_ein()
Range("AP8:BD12,AP14:BD19").Select
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 2
End With
Range("A1").Select
Gruß Peter


                                    

    Anzeige

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Linie_aus() With Range("AP8:BD12,AP14:BD19") .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone End With With Range("AP14:BD19") .Borders(xlEdgeLeft).LineStyle = xlNone .Borders(xlEdgeTop).LineStyle = xlNone .Borders(xlEdgeBottom).LineStyle = xlNone .Borders(xlEdgeRight).LineStyle = xlNone End With Range("A1").Select End Sub

Sub Linie_ein() With Range("AP8:BD12,AP14:BD19") .Borders(xlEdgeLeft) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 2 End With With Range("AP8:BD12,AP14:BD19") .Borders(xlEdgeTop) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 2 End With With Range("AP8:BD12,AP14:BD19") .Borders(xlEdgeBottom) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 2 End With With Range("AP8:BD12,AP14:BD19") .Borders(xlEdgeRight) .LineStyle = xlContinuous .Weight = xlThin .ColorIndex = 2 End With Range("A1").Select Grüße Franz

Hallo
klar geht das :-)

Option Explicit
Sub Linie_ein()
With Range("AP8:BD12,AP14:BD19").Borders(xlEdgeLeft)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 2
End With
With Range("AP8:BD12,AP14:BD19").Borders(xlEdgeTop)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 2
End With
With Range("AP8:BD12,AP14:BD19").Borders(xlEdgeBottom)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 2
End With
With Range("AP8:BD12,AP14:BD19").Borders(xlEdgeRight)
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = 2
End With
End Sub

Code eingefügt mit Syntaxhighlighter 1.16

Den Rest für Linie_Aus kannst du daraus ja ableiten.
Gruss Rainer

Beliebteste Forumthreads (12 Monate)

Forumthread: ohne select

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread