linie unter zelle
10.11.2005 14:21:54
rokki
bei einer Tabelle, bei welcher ich schon alle 3 bedingten Formatierungen ausgenutzt habe, noch ein weiteres anliegen.
ich mochte wenn sich zelle c5c6 ist eine dicke Linie einfügen unter c5. dann das gleiche bei c6c7 unter c6 und das die ganze spalte c5:c250
der Tabellenbereich ist a5:q250
wo die dicke Linie sein muss , einige bespiele
c5 WZ0-1
c6 WZ0-1 hier untstreichen von a6 bis q6
c7 WZ0-3
c8 WZ0-3 hier untstreichen von a8 bis q8
c9 WZ0-2
c10 WZ0-2 hier untstreichen von a10 bis q10
c11 WZ0-4
habe mit diesem code begonnen , komme nicht weiter
Sub Rahmen()
' unten
With Range("a5:F250")
.Borders(xlEdgeBottom).Weight = xlThick
End With
' zwischen den zeilen
With Range("a5:F250").Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThick
End With
End Sub
kann mir jemand dabei behilflich sein!!?
besten dank
rokki