In diesem Tutorial wird erläutert, wie Sie Arbeitsblätter mit VBA hinzufügen / einfügen.
Blatt hinzufügen
Dieses einfache Makro fügt ein Blatt vor dem ActiveSheet hinzu:
| 123 | Unter hinzufügen ()Tabellen.HinzufügenEnd Sub |
Nach dem Einfügen eines Sheets wird das neue Sheet zum ActiveSheet. Sie können dann das ActiveSheet-Objekt verwenden, um mit dem neuen Blatt zu arbeiten (am Ende dieses Artikels zeigen wir, wie Sie ein neues Blatt direkt in eine Variable einfügen).
| 1 | ActiveSheet.Name = "NewSheet" |
Blatt mit Namen hinzufügen
Sie können auch einen Blattnamen definieren, wenn Sie das neue Blatt erstellen:
| 1 | Sheets.Add.Name = "NewSheet" |
Neues Blatt mit Namen aus einer Zelle erstellen
Oder verwenden Sie einen Zellenwert, um ein neues Blatt zu benennen:
| 1 | Sheets.Add.Name = range("a3").value |
Blatt vor / nach einem anderen Blatt hinzufügen
Sie können auch die Position auswählen, an der das neue Blatt eingefügt werden soll. Sie können die Eigenschaften Nach oder Vor verwenden, um ein Blatt an einer bestimmten Stelle in der Arbeitsmappe einzufügen.
Blatt nach einem anderen Blatt einfügen
Dieser Code fügt das neue Blatt NACH einem anderen Blatt ein:
| 1 | Sheets.Add After:=Sheets("Input") |
Dadurch wird ein neues Blatt NACH einem anderen Blatt eingefügt und der Blattname angegeben:
| 1 | Sheets.Add(After:=Sheets("Input")).Name = "NewSheet" |
Beachten Sie die zusätzliche Klammer, die im zweiten Beispiel erforderlich ist (das erste Beispiel erzeugt einen Fehler, wenn die zweite Klammer hinzugefügt wird).
oder davor:
| 1 | Sheets.Add(Before:=Sheets("Input")).Name = "NewSheet" |
In diesen Beispielen haben wir das Blatt explizit benannt, das verwendet wird, um die Blattposition zu bestimmen. Oft möchten Sie stattdessen die Blattindexnummer verwenden, damit Sie das Blatt am Anfang oder am Ende der Arbeitsmappe einfügen können:
Blatt am Ende der Arbeitsmappe hinzufügen
So fügen Sie am Ende der Arbeitsmappe ein Blatt hinzu:
| 1 | Sheets.Add After:=Sheets(Sheets.Count) |
Blatt zum Anfang der Arbeitsmappe hinzufügen:
So fügen Sie am Anfang der Arbeitsmappe ein Blatt hinzu:
| 1 | Sheets.Add(Before:=Sheets(1)).Name = "FirstSheet" |
Blatt zu Variable hinzufügen
Dieser Code weist das neue Blatt einer Variablen zu, während das Blatt erstellt wird:
| 12 | Dim ws als ArbeitsblattSet ws = Sheets.Add |
Von hier aus können Sie das neue Blatt mit der Variablen ‚ws‘ referenzieren:
| 1 | ws.name = "VarSheet" |
Weitere Beispiele zum Hinzufügen von Tabellen
Blatt erstellen, wenn es noch nicht existiert
Möglicherweise möchten Sie ein Blatt nur erstellen, wenn es noch nicht vorhanden ist.
Arbeitsblätter aus der Namensliste erstellen
Die folgende Routine untersucht den Inhalt von Excel-Arbeitsblättern mit einer einzigen Spalte in der aktuellen Arbeitsmappe mit diesen Namen. Es ruft eine andere Funktion auf, um zu sehen, ob ein Blatt mit diesem Namen bereits vorhanden ist, und wenn ja, das Blatt nicht erstellt wird.
| 1234567891011121314151617181920212223242526 | Private Sub CommandButton1_Click()Rufen Sie CreateWorksheets(Sheets("Sheet2").Range("A1:a10")) aufEnd SubUnter CreateWorksheets(Names_Of_Sheets als Bereich)Dim No_Of_Sheets_to_be_Added As IntegerDim Sheet_Name als StringDim i As IntegerNo_Of_Sheets_to_be_Added = Names_Of_Sheets.Rows.CountFor i = 1 To No_Of_Sheets_to_be_AddedSheet_Name = Names_Of_Sheets.Cells(i, 1).Value'Blatt nur hinzufügen, wenn es noch nicht existiert und der Name länger als null Zeichen istIf (Sheet_Exists(Sheet_Name) = False) And (Sheet_Name "") ThenArbeitsblätter.Add().Name = Sheet_NameEnde WennAls nächstesEnd Sub |
| 1234567891011121314 | Funktion Sheet_Exists(WorkSheet_Name As String) As BooleanDim Work_sheet As WorksheetSheet_Exists = FalseFür jedes Arbeitsblatt in dieserArbeitsmappe.ArbeitsblätterWenn WorkSheet.Name = WorkSheet_Name ThenSheet_Exists = TrueEnde WennNächsteEndfunktion |
Wenn wir also den folgenden Text in den Zellen A1:A30 in Blatt 2 haben:
Dann werden folgende Blätter erstellt:
Beachten Sie, dass „Hund“ zwar zweimal erscheint, aber nur ein Blatt erstellt wird.
Klicken Sie hier, um die .XLS-Datei für dieses Tutorial herunterzuladen.
