Office: (Office 2010) Makro: vorhandenes Tabellenblatt kopieren und bennennen nach Wert in Zelle

Hi,

bin ein absoluter Frischling in Sachen Excel Makros und stehe vor meinem ersten Problem:

Innerhalb eines Deckblattes "Projektübersicht" werden in der Spalte A7-AX Teilenummern eingegeben. Aus diesen Zellenwerten sollen neue Tabellenblätter generiert werden die inhaltlich der Kopie des Arbeitsblattes "Terminablaufplan_Maßnahmen" entsprechen und den Namen der jeweiligen Zelle tragen. Bisher habe ich folgenden simplen Befehl:

Sub Makro1()

Dim NeuerTabellenName1 As String

'Neuen TabellenName aus Zelle A7 holen und merken
NeuerTabellenName1 = ActiveSheet.Range("A7").Value

'kopieren des Blattes Terminablaufplan_Maßnahmen'
Sheets("Terminablaufplan_Maßnahmen").Copy After:=Sheets(Sheets.Count)

'der neuen Tabelle den Name geben
Sheets(Sheets.Count).Name = NeuerTabellenName1

End Sub

Damit komme ich aber nicht sonderlich weit, da damit ja nur ein neues Blatt für Zelle A7 generiert wird. Es können aber auch Zelle A8, A9 usw von bedeutung sein - das ganze ist einzelfallabhängig.

Wie müsste ich das Makro gestalten um es für meine Bedürfnisse anzupassen?

Beste Grüße!

:)

 

Hallo !,

Code:

Doppelte Blattnamen werden allerdings nicht geprüft!

Grüße
EarlFred

 

Perfekt! Besten Dank!

Gibt es eine Möglichkeit, dass das Original "Terminablaufplan_Maßnahmen" nicht angezeigt wird, aber das Makro trotzdem funktioniert? Ausblenden geht ja nicht.

VG