Style erzeucgen - Rahmenlinien setzten klappt nich
20.11.2016 11:05:18
Stefan
Ich steh im Wald und sehe die Bäume nicht.
Laage:
Ich möchte ein Style per VBA erzeugen. Klappt auch alles bis auf die Rahmenlinien.
Ziel: Einen Rahmen um die einzelne Zelle erzeugen.
Ich habe mir den Code per MakroRecorder aufzeichnen lassen und auch Bordersaround getestet. Sobald ich den Code aus dem MR in das SUB einsetzte bleibt nur die linke Rahmenlinie über.
Ich sehe den Baum nicht der mir die anderen 3 Linien wieder löscht. Kann mir da einer kurz helfen? Das wäre nett.
Sub FormatDatBereich2Erzeugen()
AbwListe.Styles.Add Name:="DatBereich2"
With AbwListe.Styles("DatBereich2")
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.Font.Size = 11
End With
AbwListe.Styles("DatBereich2").Borders(xlDiagonalDown).LineStyle = xlNone
AbwListe.Styles("DatBereich2").Borders(xlDiagonalUp).LineStyle = xlNone
With AbwListe.Styles("DatBereich2").Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With AbwListe.Styles("DatBereich2").Borders(xlEdgeTop)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With AbwListe.Styles("DatBereich2").Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With AbwListe.Styles("DatBereich2").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With AbwListe.Styles("DatBereich2").Borders(xlInsideVertical)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With AbwListe.Styles("DatBereich2").Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.ColorIndex = 1
.TintAndShade = 0
.Weight = xlThin
End With
With AbwListe.Styles("DatBereich2").Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -4.99893185216834E-02
.PatternTintAndShade = 0
End With
AbwListe.Styles("DatBereich2").Locked = False
AbwListe.Styles("DatBereich2").FormulaHidden = False
End Sub