Projektanfrage

Projektanfrage über Web Formular   per Online-Formular 
Projektanfrage über E-Mail  Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein!
Projektanfrage per Telefon  +49 (0)151 / 164 55 914
Projektanfrage weitere Informationen  weitere Informationen 

Sie benötigen Hilfe oder Unter-stützung? Nutzen Sie für Ihre Anfrage unser Online-Formular, senden Sie uns eine Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! oder rufen Sie uns einfach an.

   
      Referenzen 

 Bosch 
  T-Systems
  Hagebau
  Siemens
 Areva  VW
 Haufe-Lexware  British American Tobacco
  nagel group farbe
   
     Programmierung
Excel Auftragsprogrammierung Access Auftragsprogrammierung
Word Auftragsprogrammierung Outlook Auftragsprogrammierung
   
   

Projektanfrage

 Sie benötigen eine Auftragsprogrammierung?
 Oder suchen Unterstützung bei der Lösungs-
 findung?

  Nutzen Sie unser Auftragsformular

  Jetzt anrufen unter 0151 / 164 55 914

 Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! Projektanfrage per Diese E-Mail-Adresse ist vor Spambots geschützt! Zur Anzeige muss JavaScript eingeschaltet sein! senden

  Weitere Informationen

sitepanel question2

P
r
o
j
e
k
t
a
n
f
r
a
g
e
   

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

   

Relevante Artikel

  • Einzelnes Tabellenblatt abspeichern

    102008 Mit diesem Makro wird das gewünschte Tabellenblatt in einer eigenen Arbeitsmappe abgespeichert. Es ist zuerst der Name des gewünschten Blattes zu erfassen. Anschließend ist der neue Dateiname...

  • Arbeitsblätter in jeweils einer eigenen Arbeitsmappe speichern

    102006 Die folgende Prozedur speichert alle Arbeitsblätter einer Mappe in jeweils extra Arbeitsmappen ab. Die neu erzeugten Arbeitsmappen werden im gleichen Verzeichnis abgelegt, in dem sich die...

  • 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...

  • Inhaltsverzeichnis aller Tabellenblätter einfügen

    102025 Möchten Sie einen Überblick über alle in einer Excel-Arbeitsmappe vorhandenen Tabellenblätter (Sheets) gewinnen, so können Sie dies erreichen indem Sie in ein Tabellenblatt ein...

  • Verschiedenes Rund um den Blattschutz

    102003 Verschiedenes Rund um den Blattschutz  Blattschutz herstellen und das Gruppieren erlauben Privat Sub Workbook_Open() ActiveSheet.Protect password:="Geheim" Contents:=True,...