Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Button soll neues Blatt einfügen

Button soll neues Blatt einfügen
Tim
Liebe Excler,
ich habe eine Datei angefuegt, die ich gerne nutzen möchte.
Er andelt sich um Monats-Haushaltsplanungen. In diesem Fall für Januar 2010.
Ich würde gerne einen Button haben, auf den ich klicken kann, sodass es mir das Arbeitsblatt kopiert, jedoch mit leerem Inhalt für den nächsten Februar, welches der Februar wäre, usw... für alle Monate.
Kann man dies mit einem Code erstellen?
Anbei die Datei:
https://www.herber.de/bbs/user/67530.xls
Vielen Dank für eure Hilfe!!
Grüße,
Tim
Anzeige
AW: Button soll neues Blatt einfügen
27.01.2010 06:30:13
Klaus
Hallo Tim,
erstelle ein Tabellenblatt dass du "Muster" oder sonstwie nennst, in dem deine leeren Inhalte sind. Dann zeichne den Vorgang, den du brauchst (neues Blatt erstellen, Mustertabelle einfügen) mit dem VBA Editor auf.
Wenn du mit dem Code nicht weiter kommst, poste ihn hier und wir optimieren den Code zusammen.
Grüße,
Klaus M.vdT.
Anzeige
AW: Button soll neues Blatt einfügen
27.01.2010 10:38:32
Tim
Hallo Klaus,
vielen Dank für deine Hilfe... ich bin so ziemlich ganz am Anfang mit Excel/VBA und muss erstmal zurecht kommen wie das ganze funktioniert...
sollte ich eine Lösung erarbeiten, werde ich sie auf jeden Fall posten!!!
liebe Grüße,
Tim
AW: Button soll neues Blatt einfügen
27.01.2010 07:30:29
JoWE
Hallo Tim,
nenne das erste Sheet nach 'Budget_1' um.
Erstelle eine Schaltfläche in 'Budget_1" mit diesem Code:
Private Sub CommandButton2_Click()
Dim t As Integer
For t = 2 To 12
Sheets("Budget_1").Select
Sheets("Budget_1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Budget_" & t
ActiveSheet.Shapes(1).Delete
Next
Sheets("Budget_1").select
End Sub
Gruß,
Jochen
Anzeige
AW: Button soll neues Blatt einfügen
27.01.2010 10:36:22
Tim
Hi Jochen,
wow du gehst ja ab wie Schnitzel!!! Das ist ja klasse...
Es kopiert mir sehr schön die 12 Monate! Gibt es jetzt noch die Möglichkeit, den Code so anzupassen, dass er zwar kopiert, aber die Inhalte weglässt?
Mit diesem Code kopiert er mir auch die Inhalte mit!
Vielen lieben Dank für dein Hilfe!!!
Liebe Grüße,
Tim
Anzeige
AW: Button soll neues Blatt einfügen
27.01.2010 10:45:30
Tim
PS: Stelle die Frage noch auf offen...
liebe Grüße,
Tim
AW: Button soll neues Blatt einfügen
27.01.2010 11:31:04
JoWE
Tim,
daher kommt auch alles in Schnipseln ;-)
So könnte es klappen:
Private Sub CommandButton1_Click()
Dim t As Integer
For t = 2 To 12
Sheets("Budget_1").Select
Sheets("Budget_1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "Budget_" & t
ActiveSheet.Shapes(1).Delete
ActiveSheet.Range("B5:C11").ClearContents
ActiveSheet.Range("B15:C27").ClearContents
ActiveSheet.Range("B31:C40").ClearContents
ActiveSheet.Range("G15:H20").ClearContents
ActiveSheet.Range("G24:H33").ClearContents
ActiveSheet.Range("G37:H40").ClearContents
Next
Sheets("Budget_1").Select
End Sub

Gruß,
Jochen
Anzeige
Vielen Dank Jochen!!!!!!
27.01.2010 11:37:40
Tim
Jochen,
du bist ein Schatz!!! ;-)
Herzlichen Dank, die Lösung ist PERFEKT!!!!!
Grüße,
Tim
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Button zum Einfügen eines neuen Blattes in Excel


Schritt-für-Schritt-Anleitung

Um einen Button zu erstellen, der ein neues Blatt in Excel einfügt, folge diesen Schritten:

  1. Tabellenblatt erstellen: Erstelle ein neues Blatt, das du "Budget_1" nennst und fülle es mit den gewünschten Inhalten, die später dupliziert werden sollen.

  2. Entwicklertools aktivieren: Stelle sicher, dass die Entwicklertools in deiner Excel-Version aktiviert sind. Gehe zu Datei > Optionen > Menüband anpassen und aktiviere das Kontrollkästchen für Entwicklertools.

  3. Button einfügen: Wechsle zum Tab Entwicklertools und klicke auf Einfügen. Wähle die Schaltfläche (Button) aus und ziehe sie auf dein Arbeitsblatt.

  4. VBA-Code hinzufügen: Klicke mit der rechten Maustaste auf den Button und wähle Code anzeigen. Füge den folgenden VBA-Code ein:

    Private Sub CommandButton1_Click()
       Dim t As Integer
       For t = 2 To 12
           Sheets("Budget_1").Copy After:=Sheets(Sheets.Count)
           ActiveSheet.Name = "Budget_" & t
           ActiveSheet.Shapes(1).Delete
           ActiveSheet.Range("B5:C11").ClearContents
           ActiveSheet.Range("B15:C27").ClearContents
           ActiveSheet.Range("B31:C40").ClearContents
           ActiveSheet.Range("G15:H20").ClearContents
           ActiveSheet.Range("G24:H33").ClearContents
           ActiveSheet.Range("G37:H40").ClearContents
       Next
    End Sub
  5. Testen: Schließe den VBA-Editor und klicke auf den Button. Dies sollte ein neues Blatt in Excel einfügen, das den Namen "Budget_2" bis "Budget_12" trägt und die Inhalte gemäß der angegebenen Bereiche leert.


Häufige Fehler und Lösungen

  • Excel neues Blatt einfügen geht nicht: Stelle sicher, dass der VBA-Code korrekt eingefügt wurde und der Button zugewiesen ist. Prüfe auch, ob die Entwicklertools aktiviert sind.

  • Fehler beim Umbenennen: Wenn der Name des Blattes bereits existiert, gibt Excel einen Fehler aus. Stelle sicher, dass du die Blätter korrekt benennst und keine Duplikate erzeugst.


Alternative Methoden

Eine alternative Methode, um ein neues Blatt in Excel einzufügen, besteht darin, die Funktion "Blatt einfügen" direkt über das Menü zu verwenden. Du kannst auch Makros verwenden, um die Funktionalität zu erweitern, falls du nicht mit VBA arbeiten möchtest.


Praktische Beispiele

Ein Beispiel, wie du den Button anpassen kannst, um unterschiedliche Blätter für jeden Monat zu erstellen, könnte so aussehen:

  1. Ändere den Namen des ersten Blattes in "Januar".
  2. Füge einen weiteren Button hinzu, der den Code zum Erstellen eines neuen Blattes für "Februar" enthält, und so weiter.

Dies ermöglicht dir eine bessere Organisation deiner Daten in Excel.


Tipps für Profis

  • Verwende Kommentare im VBA-Code, um den Code besser zu dokumentieren.
  • Experimentiere mit der Formatierung der neuen Blätter, um sie visuell ansprechender zu gestalten.
  • Nutze Variablen für die Bereiche, die gelöscht werden sollen, um deinen Code flexibler zu gestalten.

FAQ: Häufige Fragen

1. Wie kann ich ein neues Blatt in Excel einfügen, ohne Inhalte zu kopieren?
Verwende den VBA-Code, um nur das Layout zu duplizieren und die Inhalte mit ClearContents zu löschen.

2. Kann ich den Button anpassen, um spezifische Daten zu kopieren?
Ja, du kannst den Code ändern, um nur die gewünschten Daten zu kopieren oder zu löschen. Passe die Range-Objekte im Code nach deinen Bedürfnissen an.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige