Ich versuche in einem Tabellenblatt Trennlinien einzufügen, um die Lesbarkeit zu erhöhen.
Einige Zelle nehmen diese Linien nicht an.
In Spalte A ist die Linie da, in B fehlt sie und ab C ist wieder alles normal bis Spalte CU.
Der Rahmen um das gesamte Blatt hört jedoch ebenfalls ab einer Zeile auf und beginnt dann wieder ab Spalte C.
Hat jemand eine Erkärung für mich, wie ich die Zellen evtl. 'entformatieren' muss, damit die Linien kommen?
Für sachdienliche Hinweise bereits jetzt vielen Dank im Voraus.
Gruß Peter
PS auf einem jungfräulichen Tabellenblatt funktioniert alles perfekt, nur mit Daten in dem echten Tabellenblatt gibt es Probleme.
WkSh_Q.Range("A1:CU85,A1:D2,A2:D4,E2:AI2,AK2:BO2,BQ2:CU2").BorderAround _
LineStyle:=xlContinuous, Color:=RGB(0, 0, 0), Weight:=xlMedium
With WkSh_Q.Range("D1:D85").Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = 1
End With
For lZeile = 6 To 12 Step 3
With WkSh_Q.Range("A" & lZeile & ":CU" & lZeile).Borders(xlEdgeTop)
.LineStyle = xlDash
.Weight = xlMedium
.ColorIndex = 1
End With
Next lZeile
For lZeile = 16 To 82 Step 3
With WkSh_Q.Range("A" & lZeile & ":CU" & lZeile).Borders(xlEdgeTop)
.LineStyle = xlDash
.Weight = xlMedium
.ColorIndex = 1
End With
Next lZeile