Excel: Tabellenblatt per Makro kopieren und umbenennen?

Hallo nochmal

Ich habe vorhin bereits eine ähnliche Frage gestellt. Jetzt hat sich eine weitere Frage ergeben. Ich habe ein Excelfile mit 2 Tabellenblättern (Inhalt und Template). Beim Ausführen eines Makros auf der Seite "Inhalt" soll nun folgendes geschehen:

Tabellenblatt "Template" wird kopiert. Dieses neue Blatt wird nach dem Inhalt der Zelle C8 des Tabellenblatts "Inhalt" benannt.

Wäre super, wenn mir jemand ein VBA dazu machen könnte :) Vielen Dank im Voraus!

Answer 1

[Oubyi, UserMod Light]

Ich habe meinen Code aus der vorherigen Frage mal angepasst (DA fehlt mir übrigens noch Deine Rückmeldung!):

Sub optimierer()
  Dim wsAlle As Worksheet
  Dim wsNeu As Worksheet
  Dim strName As String

  strName = Me.Range("C8").Value

  For Each wsAlle In Worksheets
    If wsAlle.Name = strName Then
        MsgBox "Name existiert bereits. Exit"
        Exit Sub
    Debug.Print wsAlle.Name
    End If
  Next wsAlle

Sheets("Template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = strName
End Sub

Klappt es?

Woher ich das weiß: Berufserfahrung – IT-Administrator (i.R.)

Comments

[jemako]

Danke für deine Antwort! Ich werde es gleich ausprobieren, und melde mich dann wieder. Vielen Dank, dass du dir Zeit dafür nimmst :)

EDIT: Klappt! Du bist ein Held, danke dir

[Oubyi, UserMod Light]

@jemako

Gern geschehen 🙂

Answer 2

[PWolff]

Hast du schon mal mit dem Feature "Makro aufzeichnen" gearbeitet?

Wenn du diesen Vorgang einmal durchführst und dabei als Makro aufzeichnest, hast du die nötigen VBA-Befehle im Wesentlichen zusammen, du musst sie nur noch ein wenig anpassen.