GRUNDLAGENKURSE  |  DIE WICHTIGSTEN BEFEHLE

​#20 Die Borders Eigenschaft

Excel VBA Befehle Folge 20: Borders-Eigenschaften
(Dynamisches Tabellendesign erstellen)

Inhalt dieser Folge:

  • Wie kann ich meine Tabellen in Excel mit VBA hübsch gestalten?

  • Wie ändere ich den Rahmen (Linienart, Stärke, Farbe) meiner Tabelle mit nur einem Knopfdruck?

  • Wie kann ich Bereiche meines Tabellenblattes automatisch erfassen und bearbeiten?

  • Wie kann ich mit Hilfe der With-Anweisung mein Programm kurz und übersichtlich halten?

Den Inhalt der Folge kostenlos als PDF einsehen
Beispiel 1: Rahmenlinien
 

'Rahmenlininen – Borders.LineStyle

Range("B3:F10").Borders.LineStyle = xlContinuous

Beispiel 2: Linienfarbe
 

'LinienFarbe - Borders.Color / Borders.ColorIndex Range("B3:F10").Borders.Color = vbBlue Range("B3:F10").Borders.ColorIndex = 32

Beispiel 3: Liniendicke
 

'LinienDicke – Borders.Weight

Range("B3:F10").Borders.Weight = xlThick

 

'Einstellungen rückgängig machen

Sub Ausgangssituation()

 Range("A1:K17").Borders.LineStyle = xlNone

End Sub

Beispiel 4: Lösung mit With-Anweisung
 

​Sub Rahmeneinstellungen()

 

'Alle Einstellungen mit einer With-Anweisung

With Range("B3:F10").Borders

 .LineStyle = xlDash

 .Color = vbGreen

 .Weight = xlMedium

End With

End Sub

Beispiel 5: Zellenbereich automatisch erfassen
 

​Sub Rahmeneinstellungen()

 

'Zellenbereich automatisch erfassen

Range("B3").Activate

 

With ActiveCell.CurrentRegion

 .Borders.LineStyle =xlContinuous

 .Borders.Color = vbGreen

 .Borders.Weight = xlMedium

End With

 

End Sub

Beispiel 6: Genaue Rahmenbereiche ansprechen
 

Sub Rahmeneinstellungen2()

Range("B3").Activate

 

With ActiveCell.CurrentRegion

 .Borders.LineStyle =xlContinuous

 .Borders.Color = vbGreen

 .Borders.Weight = xlMedium

End With

End Sub

Beispiel 7: Dynamisches Tabellendesign erstellen
 

Sub DynamischesTabellendesign()

 

Dim i As Integer

Dim last As Integer

 

last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

MsgBox last

 

Range("B3").Activate

 

With ActiveCell.CurrentRegion

 

'Reihen abwechselnd färben
For i = 2 To (last – 2)

 If i Mod 2 = 1 Then

  .Rows(i).Interior.ColorIndex = 33

 Else

  .Rows(i).Interior.ColorIndex = 34

 End if

Next

'Kopfzeile
 .Rows(1).Interior.ColorIndex = 41 'Zellenfarbe
 .Rows(1).Font.ColorIndex = 2      'Tex tfarbe

 .Rows(1).Font.Bold = True         'Dicke Schrift


'Rahmeneinstellungen
 .Borders(xlInsideHorizontal).LineStyle = xlDash

 .Borders(xlInsideVertical).LineStyle = xlContinuous

 .Borders(xlEdgeBottom).LineStyle = xlDouble

End With

End Sub

Alle Folgen der VideoReihe auf einen Blick
Folge 01   Arbeitsmappen und Tabellenblätter ansprechen, sortieren, ...

Folge 02   Zellen ansprechen

Folge 03   Meldeboxen, MsgBox (PopUpFenster)

Folge 04   Schrifteinstellungen (Fett, Kursiv, Schriftart, Schriftfarbe, Schriftgröße, ...)

Folge 05   Variablen & Datentypen in VBA

Folge 06   Arrays / Datenfelder in VBA

Folge 07   For Next - Schleifen in VBA

Folge 08   Dynamische Arrays

Folge 09   Rechenoperationen

Folge 10   Vergleichsoperatoren

Folge 11   Logische Operatoren

Folge 12   SuchFunktion (Einträge & Begriffe in Zellen suchen)

Folge 13   If Then Else - Verzweigungen in VBA

Folge 14   Do While Loop - Schleifen in VBA

Folge 15   Endlosschleifen verhindern

Folge 16   Die SortierFunktion (sortieren, nach mehreren Kriterien)

Folge 17   Select Case - Verzweigungen in VBA

Folge 18   InputBox (gestalten und Eingaben verwenden)

Folge 19   For Each - Schleifen in VBA

Folge 20   Borders-Eigenschaften (Dynamisches Tabellendesign erstellen)

Folge 21   Laufzeitfehler & Syntaxfehler - finden und beheben

Folge 22   On Error GoTo - Laufzeitfehler abfangen

Folge 23   Alle Farben in VBA nutzen (ColorIndex, vb Color, RGB)

Folge 24   Zeichen ersetzen mit der REPLACE Funktion

Folge 25   Zeichen trennen mit der SPLIT Funktion

Folge 26   Zeichen verbinden mit der JOIN Funktion

Folge 27   Auszug aus einer Zeichenkette - LEFT, RIGHT, MID Funktion

Folge 28   Zeichenketten vergleichen mit UCase & LCase

Folge 29   Arbeitsmappen Ereignisse (Open, BeforeClose, BeforeSave)

Folge 30   Tabellenblatt Ereignisse (Change, BeforeDoubleClick)

Folge 31   Zeilen und Spalten fixieren (FreezePanes)

Folge 32   Kommentare einfügen mit VBA (AddComment)

Folge 33   Zellen verbinden & Warnmeldungen ignorieren

Excel-VBA-SCIENZLESS-2.png

Jetzt abonnieren &

kein Video mehr verpassen!

Excel-VBA-SCIENZLESS-1.png

Lass uns Gutes tun!

SCIENZLESS LERNVIDEOS

ProtectedShops.png

Protected Shop

© 2020 André Naß