Neues Tabellenblatt/Button einfügen

Forumthread: Neues Tabellenblatt/Button einfügen

16.01.2015 11:03:56

Sascha

Hallo zusammen.
Ich brauche mal eure Hilfe bezüglich VBA.
Ich habe auf einem Tabellenblatt 2 cmdButtons.
1. Neues Bauteil, 2. Neues Tabellenblatt..
Über den 2. öffnet sich eine Userform, in der ich den Namen für das neue Blatt vergeben kann. Nun wird das Erste, bzw das Tabellenblatt, wo sich die beiden Buttons befinden komplett kopiert und auch die Buttons werden genauso mitkopiert. Funktioniert bei Excel 2000 super! Die Buttons werden korrekt mit Namen (Neues Bauteil, Neues Blatt) und auch Makros kopiert.
Bei Excel 2013 auch, bis auf, dass die beiden Buttons nicht mitkopiert werden.
Wenn ich versuche per VBA einfach Buttons einzufügen Werden sie leider unter CommandButton3 und 4 angelegt und somit verlieren sie natürlich den Bezug zum VBA Code.
Auch ein vorheriges Löschen aller Buttons im neuen Blatt, bringt nix.. es werden wieder CommandButton3 und 4 angelegt.
Kopieren des Blattes:


If UserForm2.TextBox1.Value  "" Then
SheetName = UserForm2.TextBox1.Value
ActiveSheet.Copy Before:=Sheets(Worksheets("Daten").Index)
ActiveSheet.Name = SheetName
ActiveSheet.Cells(1, 1).Value = ("Übersicht Netzteile für " & SheetName)
End If

Löschen der Buttons im neuen Blatt:


For Each oShp In ActiveSheet.Shapes
If UCase(Left(oShp.Name, 13)) = "COMMANDBUTTON" Then
oShp.Delete
End If
Next

Vielleicht habt ihr ja nen Lösungsansatz bzw. wisst, warum es bei Excel 2000 geht und bei 2013 nicht. Das Problem ist, dass es für beide Versionen funktionieren muss.
Vielen Dank schonmal!!

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Neues Tabellenblatt/Button einfügen

20.01.2015 09:20:40

Hajo_Zi

AW: Neues Tabellenblatt/Button einfügen

20.01.2015 09:20:40

Hajo_Zi

es sehe wohl viele so wie ich.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)
Der Dateiname sollte was mit dem Problem zu tun haben.
Ich habe mir z.B. einen Ordner angelegt in dem ich alle Dateien aus dem Internet speichere. Bei Dateinamen wie Test..., Mappe, Beispiel wird eine vorhandene überschrieben.
Ein Bild in Excel geöffnet sieht anders aus als das Bild.
Ich habe kein Tool um ein Bild in Excel zu importieren.

Infobox / Tutorial

Neues Tabellenblatt und Button in Excel einfügen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Neues Blatt in Excel einfügen:
- Klicke mit der rechten Maustaste auf ein bestehendes Tabellenblatt.
- Wähle "Einfügen" und dann "Tabellenblatt".
- Alternativ kannst du auch die Tastenkombination Shift + F11 verwenden.
VBA Button einfügen:
- Gehe zu "Entwicklertools" und klicke auf "Einfügen".
- Wähle "Button (Formularsteuerelement)" aus.
- Zeichne den Button auf dem gewünschten Tabellenblatt.
Button mit Funktion verknüpfen:
- Nach dem Zeichnen wirst du aufgefordert, ein Makro zuzuordnen. Wähle das entsprechende Makro oder erstelle ein neues.
- Klicke mit der rechten Maustaste auf den Button und wähle "Text bearbeiten", um den Button zu benennen.

Neues Blatt über einen Button erstellen:

Verwende den folgenden VBA-Code, um ein neues Blatt zu erstellen:

If UserForm2.TextBox1.Value <> "" Then
SheetName = UserForm2.TextBox1.Value
ActiveSheet.Copy Before:=Sheets(Worksheets("Daten").Index)
ActiveSheet.Name = SheetName
ActiveSheet.Cells(1, 1).Value = "Übersicht für " & SheetName
End If

Häufige Fehler und Lösungen

Neues Blatt einfügen geht nicht:
- Stelle sicher, dass du nicht das Maximum von 255 Tabellenblättern erreicht hast.
- Überprüfe, ob das Arbeitsblatt geschützt ist. Schütze es temporär aufheben, um neue Blätter hinzuzufügen.
Excel Button einfügen funktioniert nicht:
- Wenn du beim Einfügen von Buttons Schwierigkeiten hast, überprüfe, ob du im richtigen Modus (Entwicklertools) bist.
- Stelle sicher, dass du die richtige Excel-Version verwendest, da einige Funktionen zwischen Excel 2000 und 2013 variieren können.

Alternative Methoden

Tastenkombinationen nutzen:
- Du kannst auch Strg + N verwenden, um ein neues Excel-Dokument zu erstellen und dann dein neues Blatt hinzuzufügen.
VBA für komplexe Strukturen:
- Du kannst auch VBA verwenden, um mehrere Blätter gleichzeitig zu erstellen oder spezielle Formatierungen beim Erstellen anzuwenden.

Praktische Beispiele

Button erstellen, um ein neues Blatt hinzuzufügen:

Sub NeuesBlatt()
   Dim Blattname As String
   Blattname = InputBox("Bitte den Namen des neuen Blattes eingeben:")
   If Blattname <> "" Then
       Sheets.Add(After:=Sheets(Sheets.Count)).Name = Blattname
   End If
End Sub

VBA Button einfügen mit Funktion:

Sub ButtonHinzufuegen()
   Dim btn As OLEObject
   Set btn = ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1")
   With btn
       .Top = 10
       .Left = 10
       .Width = 100
       .Height = 30
       .Object.Caption = "Neues Blatt"
       .Object.OnAction = "NeuesBlatt"
   End With
End Sub

Tipps für Profis

Makros optimieren: Achte darauf, deine Makros so zu schreiben, dass sie auch auf verschiedenen Excel-Versionen funktionieren.
Verwende Kommentare: Füge Kommentare in deinen VBA-Code ein, um die Funktionen besser verständlich zu machen.
Verbindung zu UserForms: Überlege, wie du UserForms nutzen kannst, um die Benutzererfahrung beim Einfügen von neuen Blättern zu verbessern.

FAQ: Häufige Fragen

1. Warum kann ich kein neues Blatt in Excel einfügen?
Es kann sein, dass du das Maximum an Tabellenblättern erreicht hast oder das Arbeitsblatt geschützt ist.

2. Wie füge ich einen Button in Excel ein?
Gehe zu "Entwicklertools", klicke auf "Einfügen" und wähle "Button (Formularsteuerelement)". Zeichne den Button auf dem Blatt.

Beliebteste Forumthreads (12 Monate)

Neues Tabellenblatt/Button einfügen

Forumthread: Neues Tabellenblatt/Button einfügen

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Neues Tabellenblatt und Button in Excel einfügen

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread