Office: (Office 2013) Rahmen per VBA einfügen mit variabler Spaltennummer

xname23 · 3. Mai 2016

Hallo Community,

Ich möchte gerne mit möglichst kurzem Quellcode die in der angehängten Datei zu sehenden Rahmenlinien einfügen. Die Range der Tabellenlinien soll in Spaltenrichtung variabel sein (Start immer in Spalte C, Ende variabel). Dazu gibt es eine Variable (intAusgabe) welche die Spaltennummer der letzte Spalte mit Inhalt darstellt (Zeilen bleiben immer gleich 7-14). Diese Variable sollte mit berücksichtigt werden.
Ich weiß es gibt schon einige Threads zu Rahmenlinien dazu allerdings waren meine Versuche bis jetzt nicht von Erfolg gekrönt, da ich noch ein VBA Anfänger bin. Habe euch mal eine Datei angehängt in der die Tabelle für ein paar Spalten eingezeichnet ist.
Wäre sehr schön wenn mir einer einen möglichst kurzen Code schreiben könnte der die Linien einfügt. *Smilie

Vielen Dank für eure Mühe und Viele Grüße

xname23

:)

aloys78 · 5. Mai 2016

Hallo,

mein Vorschlag:
Code:

Option Explicit

Const intAusgabe As Integer = 5 'Anzahl der Spalten mit Rahmen

Sub Rahmen()
Dim i As Long
Dim r As Long 'Zeilen#
Dim c As Long 'Spalten#

'Spalten-Rahmen
For c = 3 To intAusgabe + 2
With Range(Cells(7, c), Cells(14, c)).Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = IIf(c = 3, xlThick, xlThin)
End With
Next c

'Zeilen-Rahmen
For r = 7 To 13
Select Case r
Case Is = 7, 12, 13 'Fett
i = xlThick
Case Else 'Dünn
i = xlThin
End Select

With Range(Cells(r, 3), Cells(r, intAusgabe + 2)).Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = i
End With
Next r
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß
Aloys

Office: (Office 2013) Rahmen per VBA einfügen mit variabler Spaltennummer

Rahmen per VBA einfügen mit variabler Spaltennummer

Rahmen per VBA einfügen mit variabler Spaltennummer

Rahmen per VBA einfügen mit variabler Spaltennummer - Similar Threads - Rahmen VBA einfügen

Adressbox für Fenstercouvert positionieren

Rahmen in jeder neuen Leerzeile

Excel Registrierkarte Start Pfeil Rahmen

Bekomme Rahmen im Druck nicht weg

Unterschiedliche Liniendicken Gitter

Word -> PDF : weiße Linien (Rahmen?)

VBA Rahmen nach jedem Datum, Negativzahl raus usw