Makro: Zellrahmen zeichnen/entfernen

[Sebastian D'hom]

Hallo NG!!!

ich möchte per Makro und einer For-Next Schleife Zellen mit einem Rahmen
versehen bzw. diesen wieder löschen.

Die Aufzeichnung mit dem Makrorecorder hat nicht so richtig gefunzt.

Danke und Gruß,
Sebastian D'hom

[Ulrich Thanscheidt]

Hallo Sebastian!
Versuch's mal folgenden Makros. Einfach Bereich markieren und Makro
aufrufen.

Sub UmAktiveZellenRahmen()
Dim LinienStil, Dicke, Farbe

LinienStil = xlContinuous
Dicke = xlThick
Farbe = xlAutomatic

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = LinienStil
.Weight = Dicke
.ColorIndex = Farbe
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = LinienStil
.Weight = Dicke
.ColorIndex = Farbe
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = LinienStil
.Weight = Dicke
.ColorIndex = Farbe
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = LinienStil
.Weight = Dicke
.ColorIndex = Farbe
End With
End Sub

Sub KeinenRahmen()
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub

--
Bis die Tage

Uli

Sebastian D'hom <webm...@comdhom.de> schrieb in im Newsbeitrag:
3A5AEF7E...@comdhom.de...

[Sebastian D'hom]

Hallo Uli,

Deine Funktion: Sub KeinenRahmen() ist genau das, was der Makro - Recorder ausgespuckt hat, aber da will nichts passieren.....

Gibt es vielleicht eine andere Möglichkeit, vielleicht eine Zelle auf Standard  zurückzusetzen?!?

Gruß,
Sebastian

Ulrich Thanscheidt schrieb:

[Ulrich Thanscheidt]

Hallo Sebastian!

Bei mir passiert da 'ne ganze Menge. Aus dem gesamten markierten Bereich werden alle Rahmen gelöscht.

Jetzt kann es vielleicht noch sein, dass Du unter "Seite einrichten" "Gitternetzlinien" aktiviert hast.

--
Bis die Tage

 

Uli

 

 

Sebastian D'hom <webm...@comdhom.de> schrieb in im Newsbeitrag: 3A5B1B44...@comdhom.de...