Tabelle kopieren und Namen auslesen
17.05.2020 18:30:13
Robson
ich habe mal eine Frage, die für euch bestimmt schneller zu lösen ist als für mich. Habe ein Arbeitsblatt per makro 12 mal kopiert (Neue Namen: Jan, Feb, Mrz...,Dez). Möchte in jedem kopierten Arbeitsblatt in Zelle B4 direkt beim Kopieren auch den Namen auslesen.
Das Kopieren und Neu-Benennen funktioniert wunderbar. In der Zelle B4 aller kopierten Blätter steht dann allerdings immer der gleiche Arbeitsblattname.
Das hier ist der funktionierende Code für Kopieren und Benennen des Arbeitsblatts (aber ohne _
auslesen in Zelle B4):
Sub TBkopieren_u_Name()
Dim C As Range
If MsgBox("Soll das n?chste Jahr vorbereitet werden?", vbYesNo) = vbYes Then
With Sheets(1)
For Each C In .Range(.Cells(7, 3), .Cells(Rows.Count, 3).End(xlUp))
Sheets(2).Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = C.Value
Next
End With
Else
End If
End Sub
Hat von euch jemand eine Idee? Vielen Dank im Vorfeld :-)
LG,
Robson
