Herbers Excel-Forum - das Archiv
Rahmen einer Tabelle
- Rahmen einer Tabelle von Norb vom 19.09.2003 13:06:52
- AW: Rahmen einer Tabelle - von AndreasG am 19.09.2003 13:13:32
- AW: Rahmen einer Tabelle - von th.heinrich am 19.09.2003 14:05:40
- AW: Rahmen einer Tabelle - von AndreasG am 19.09.2003 13:13:32
 |
Betrifft: Rahmen einer Tabelle
von: Norb
Geschrieben am: 19.09.2003 13:06:52
Hallo, ich bins nochmal....
Ich will eine tabelle rahmen, von der ich aber noch nicht weiß wie groß diese ist, das heißt, wieviele Zeilen diese hat. Kann man das irgendwo einstellen, daß sich der rahemen automatisch vergrößert, wenn ich eine Zeile hinzufüge?
Thx...
Norb
 |
Betrifft: AW: Rahmen einer Tabelle
von: AndreasG
Geschrieben am: 19.09.2003 13:13:32
Hallo Norb(ert),
einfach gehts, wenn du nicht unten afügst, sondern in der Mitte leere Zeilen einfügst. Weiß aber nicht, ob das in deinem Anwendungsfall geht
Grüße
Andreas
|
Betrifft: AW: Rahmen einer Tabelle
von: th.heinrich
Geschrieben am: 19.09.2003 14:05:40
hallo Norb??,
diesen CODE nach ALT+F11 in die TABELLE kopieren in der er ausgefuehrt werden soll.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Selection.CurrentRegion.Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub
der CURSOR muss dabei in der TABELLE stehen.
gruss thomas
| |