Tabellenblatt mit Variable benennen

[silberhorn]

Ich möchte ein Tabellenblatt kopieren und mit einem Text, der in einem Feld im Tabellenblatt 1 steht benennen.
Kennt sich jemand aus, wie das Makro aussehen müsste?
(mit Aufzeichnen funktioniert das leider nicht und in der Hilfe konnte ich auch keine Lösung finden.

 

[Officer]

Hallo silberhorn

welches tabellenblatt in welcher arbeitsmappe mit welchem namen wieviele male und weshalb?

 

[silberhorn]

Antworten

welches tabellenblatt: Das aktive
in welcher arbeitsmappe: In der aktuellen
mit welchem namen: Der Inhalt einer bestimmten Zelle, zB. A1
wieviele male: 1x
weshalb: um Veränderungen / Entwicklungen auf Tabellenblatt 1 nachvollziehen zu können.
Mit freundlichen Grüssen
Martin Keller

 

[Masche]

weshalb: um Veränderungen / Entwicklungen auf Tabellenblatt 1 nachvollziehen zu können.

Warum verwendest Du nicht einfach die Funktion "Änderungen nachverfolgen" unter "Extras"?

 

[silberhorn]

Antwort

Weil ich übersichtlich je 1 Woche auf einem Blatt haben möchte.

 

[Officer]

Sub CopySheet()
' Tabellenblatt, welches Du kopieren willst. After, kann, muss aber nicht benutzt werden.
Sheets("Sheet2").Copy After:=Sheets(3)
' Neues Blatt nach der Zelle A4 in Sheet1 benennen.
ActiveSheet.Name = Sheets("Sheet1").Range("A4")
End Sub

 

[Masche]

Weil ich übersichtlich je 1 Woche auf einem Blatt haben möchte.

Kannst Du auch mit "Änderungen nachverfolgen" haben!

 

[silberhorn]

Sub CopySheet()
' Tabellenblatt, welches Du kopieren willst. After, kann, muss aber nicht benutzt werden.
Sheets("Sheet2").Copy After:=Sheets(3)
' Neues Blatt nach der Zelle A4 in Sheet1 benennen.
ActiveSheet.Name = Sheets("Sheet1").Range("A4")
End Sub

Besten Dank!
Das hat funktioniert
Martin