VBA – Programmierung mit Excel Grundlagen

Einfügen neuer Tabellenblätter
✘ Für die Grundfarben verfügt VBA über eine Auswahl an Farbkonstanten :
VBBLACK, VBBLUE, VBCYAN, VBGREEN, VBMAGENTA, VBRED, VBWHITE und VBYELLOW, die
anstelle der RGB - Funktion eingesetzt werden können:
ActiveCell.Borders.Color = vbBlue
ActiveCell.Font.Color = vbYellow
✘ Für die praktische Anwendung eine einfache Funktion, die Zellen mit definierter
Hintergrundfarbe in einem Bereich zählt (z.B. durch die Excel – Funktionskombination
FORMAT / BEDINGTE FORMATIERUNG eingefärbt):
Public Function IsFarbe(Bereich As Range, Farbe As Integer) As Integer
Dim i As Integer, b As Variant
For Each b In Bereich.Cells
If b.Interior.ColorIndex = Farbe Then
i = i + 1
End If
Next b
IsFarbe = i
End Function
11 Aktionen auf Tabellenblättern
Die folgenden Beispiele demonstrieren einige Standardaktionen auf / mit Tabellenblättern,
die in VBA – gesteuerten Abläufen öfters vorkommen. Sie bilden nicht die Gesamtheit aller
möglicher Aktionen ab. Andere Alternativen sind bei Bedarf der Online – Hilfe zu entnehmen.
11.1 Einfügen neuer Tabellenblätter
Soll in einer aktiven Arbeitsmappe ein neues Tabellenblatt erstellt werden, gibt es dafür
mehrere Möglichkeiten:
• Ein neues Tabellenblatt, das vor dem aktiven Blatt eingefügt werden soll, wird erstellt
über:.
ActiveWorkbook.Worksheets.Add
Eine andere Alternative mit anschließender Benennung des neu eingefügten
Tabellenblattes:
Sheets.Add
ActiveSheet.Name = "AA2"
• Das Einfügen mehrerer Tabellenblätter ist möglich über:
Worksheets.Add Count:=2, Before:=Sheets(1)
Hier werden 2 Tabellenblätter vor dem ersten Blatt der Arbeitsmappe eingefügt. Sie
erhalten die Namen Tabelle n+1 und Tabelle n+2, wobei n Index des letzten
Tabellenblattes der Arbeitsmappe ist.
Worksheets.Add Count:=3, Before:=Sheets("AA2")
Diese Anweisung fügt 3 Tabellenblätter hinter dem Blatt mit dem Namen AA2 - zur deren
Namen s.o.
Seite 83