AW: Mit Schleife Formatieren
17.11.2009 16:21:22
Klaus
Hallo Kai,
ja mit Rahmen hab ichs nicht so :-) Ist aber schnell korrigiert:
Statt diesem Codeteil
With .Offset(0, iColOfS).Resize(1, iColOfE).Borders(xlEdgeBottom) 'Rahmen _
_
definieren
.LineStyle = xlContinuous 'durchgehender Rahmen
.Weight = xlThin 'mit einer dünnen Linie
.ColorIndex = xlAutomatic 'der dünne Unterstrich wird _
schwarz?
End With
Nimmst du diesen
With .Offset(0, iColOfS).Resize(1, iColOfE)
.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
End With
und dann sollte das gehen. Elegant gelöst ist das sicher nicht, aber funktionieren wirds.
Grüße,
Klaus M.vdT.