Neues benanntes Blatt hinzufügen

Der folgende VBA-Code fügt zur bestehenden Arbeitsmappe ein neues Blatt hinzu und gibt diesem einen Namen. Das neue Blatt wird rechts als letztes Tabellenblatt angefügt. Der VBA-Code prüft, ob das Blatt, im Beispiel mit dem Namen "Neues Blatt" bereits vorhanden ist. Das neue Blatt wird nur hinzugefügt, wenn noch kein Blatt mit dem gleichen Namen vorhanden ist.

Sub NeuesSheet()
'** Neues benanntes Tabellenblatt einfügen
'** einfügen als letztes Blatt

'** Dimensionierung der Variablen
Dim blatt As Object
Dim BlattName As String
Dim bloFlg As Boolean

'** Blattname festlegen
BlattName = "Neues Blatt"

'** Prüfen, ob das Blatt, welches eingefügt werden soll bereits vorhanden ist
'** Nur einfügen, wenn Blatt noch nicht vorhanden ist
For Each blatt In Sheets
  If blatt.Name = BlattName Then bolflg = True
Next blatt

'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolflg = False Then
  With ThisWorkbook
    .Sheets.Add after:=Sheets(Worksheets.Count)
    .ActiveSheet.Name = "Neues Blatt"
  End With
End If

End Sub

Wenn das neue Blatt links als erstes eingefügt werden soll, dann ändern Sie den VBA-Code wie folgt ab:

'** Blatt nur einfügen, wenn noch nicht vorhanden
If bolflg = False Then
  With ThisWorkbook
    .Sheets.Add before:=Sheets(Worksheets.Count)
    .ActiveSheet.Name = "Neues Blatt"
  End With
End If

   

Excel-Inside auf FacebookExcel-Live News blogExcel-Inside RSS-FeedMail an Excel-InsideTwitter Account für Excel-InsideMail an Excel-Inside

Office Programmierung

Excel Auftragsprogrammierung

Access Auftragsprogrammierung

Word Auftragsprogrammierung

Outlook Auftragsprogrammierung

 

 

 

 




   
Office Schulungen VBA, Excel, Access
E-Book Formeln und Funktionen Excel 2013
Excel-Inside Newsletter abonnieren
   

Backlink  

ERROR: PAGE_URL belons not to given domain: 573001800