Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Rahmen einer Tabelle

Rahmen einer Tabelle
19.09.2003 13:06:52
Norb
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Rahmen einer Tabelle
19.09.2003 13:13:32
AndreasG
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
AW: Rahmen einer Tabelle
19.09.2003 14:05:40
th.heinrich
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige