Microsoft Excel

Herbers Excel/VBA-Archiv

alle Zellen mit Rahmen versehen | Herbers Excel-Forum


Betrifft: alle Zellen mit Rahmen versehen von: Walter MB
Geschrieben am: 27.08.2008 11:14:51

Guten Morgen,
habe mal dieses Makro, zwecks Rahmen um jede Zelle, aufgezeichnet.
Das letzte "Stück" mußte ich "rausnehmen" war abbruch.

Kann man dieses Makro auch irgendwie abkürzen ?

z = Range("BQ3").End(xlDown).Row
ActiveSheet.Range(Cells(4, 66), Cells(z, 96)).Select
'-------------- hier die Zellenformatierung ---------------
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
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
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
'With Selection.Borders(xlInsideHorizontal)
' .LineStyle = xlContinuous
' .Weight = xlThin
' .ColorIndex = xlAutomatic
' End With
'----------------------------------------------------------

mfg walter mb

  

Betrifft: AW: alle Zellen mit Rahmen versehen von: Hajo_Zi
Geschrieben am: 27.08.2008 11:22:18

Hallo walter,

in VBA kann zu 99,9% auf select usw.- verzichtet werden.


Option Explicit

Sub Walter()
    Dim Z As Long
    Z = Range("BQ3").End(xlDown).Row
    With ActiveSheet.Range(Cells(4, 66), Cells(Z, 96))
        '-------------- hier die Zellenformatierung ---------------
        .Borders(xlDiagonalDown).LineStyle = xlNone
        .Borders(xlDiagonalUp).LineStyle = xlNone
        With .Borders(xlEdgeLeft)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeTop)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeBottom)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlEdgeRight)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideVertical)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
        End With
        With .Borders(xlInsideHorizontal)
            .LineStyle = xlContinuous
            .Weight = xlThin
            .ColorIndex = xlAutomatic
         End With
    End With
End Sub



GrußformelHomepage


  

Betrifft: Danke, hatte gedacht... von: Walter MB
Geschrieben am: 27.08.2008 11:44:32

Hallo Hajo,
danke für den Hinweis, hatte gedacht man könnte die Erstellung der Rahmen
um die Zellen kürzer, durchführen.

mfg walter mb


  

Betrifft: AW: Danke, hatte gedacht... von: Hajo_Zi
Geschrieben am: 27.08.2008 11:48:28

Hallo Walter,

man hat aus Deinen Code nicht gesehen ob schon Rahmen vorhanden. Falls Nein können die Zeilen .ColorIndex = xlAutomatic entfallen,

Gruß Hajo


  

Betrifft: Danke -) von: Walter MB
Geschrieben am: 27.08.2008 12:35:57

Hallo Hajo, danke !
mfg Walter mb


  

Betrifft: AW: alle Zellen mit Rahmen versehen von: Hoffi
Geschrieben am: 27.08.2008 12:10:48

Hallo,

VBA-Code:


Sub Makro1()
 
z = Range("BQ3").End(xlDown).Row
With ActiveSheet.Range(Cells(4, 66), Cells(z, 96)).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
End With
End Sub

Code eingefügt mit Syntaxhighlighter 4.15


Sollte es auch tun.

Grüße
Hoffi


  

Betrifft: Hallo Hoffi, geht doch ! -) von: Walter MB
Geschrieben am: 27.08.2008 13:04:07

Hallo Hoffi,
DANKE !
Du bist, wie immer, GUT !

mfg Walter mb !


Beiträge aus den Excel-Beispielen zum Thema "alle Zellen mit Rahmen versehen"