Neues Tabellenblatt/Button einfügen
16.01.2015 11:03:56
Sascha
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!!