Office: Tabellenblatt Kopieren und Umbenennen

Ich möchte per Command Button ein neues Tabellenblatt einfügen, den Reiter umbenennen, das Blatt wo sich der Command Button befindet kopieren und ans ende der Reiter stellen.

Das mit dem Umbenennen und einen neuen Namen geben habe ich hin bekommen.

Nur leider werden die Inhalte nicht mit kopiert und das neue Tabellenblatt wird nicht ans ende gestellt.

Diesen Code benutze ich bis jetzt:


Private Sub CommandButton3_Click()
Dim strBlattname As String
strBlattname = InputBox("Geben Sie bitte den Blattnamen ein:")
If strBlattname "" Then

Worksheets.Add.Name = strBlattname

End If

End Sub

:)

 

Moin, Schelm,

warum kopierst Du nicht das Blatt selbst und veränderst den Namen? Beim Kopieren kannst Du auch die Position angeben...

 

Wenn nur ich mit der Datei Arbeiten würde wäre das kein Problem.
Es soll aber von der ganzen Abt. genutzt werden und da sind Leute bei die noch weniger Ahnung von Excel haben als ich.

Ich habe es noch weiter ausprobiert bekomme es aber nicht hin, vielleicht kann mir ja jemand weiter helfen.

Mein neuer Code:

Private Sub CommandButton3_Click()
Dim strBlattname As String
strBlattname = InputBox("Geben Sie bitte den Blattnamen ein:")
If strBlattname "" Then
Worksheets.Add.Name = strBlattname
Dim wsAct As Worksheet
Set wsAct = Worksheets("Kopiervorlage")
wsAct.Copy After:=Sheets(Sheets.Count)
End If

End Sub




Jetzt wird zwar die "Kopiervorlage" kopiert, aber das Blatt nicht umbenannt und zusätzlich erhalte ich noch ein zweites neues leeres Blatt was so heißt wie ich es Benenne.

Freue mich über jede Hilfe

 

Hallo Schelm,

Code:

würde das machen, aber wo kommt der Name her?

Am Ende könnte noch ein "Set wsAct = Nothing stehen, aber da streiten sich die Geister. Ich habe es mir angewöhnt und es hat zumindest noch nicht geschadet *wink.gif*

Grüße
EarlFred

 

Leider komme ich damit auch nicht weiter, kann jemand den Code berichtigen.

Ich habe meine Datei Angehängt.

Die Vorlage funktioniert gut außer, Commandbutton 3, ich weiß nicht wie der Code richtig aussehen muss. find meinen Fehler nicht.

Ich möchte das wenn auf den Button gedrückt wird, das Blatt "Kopiervorlage" dupliziert wird und abgefragt wird wie das neue Blatt heißen soll.

 

Hi,

Code:

 

Danke Problem gelöst