Ich möchte den Inhalt des unmittelbar vorhergehenden Blattes in ein neues Blatt innerhalb desselben Arbeitsbuchs kopieren.

Question

Mein Arbeitsbuch enthält insgesamt 7 Blatt, von denen vier ausgeblendet sind. Ich möchte

1. ein neues Blatt erstellen VBA
2. Kopie alle Inhalte der letzten Blatt über neu erstellte Blatt

i unten Code versucht

sheet_name_to_create = InputBox("Enter Sheet Name") 

For rep = 1 To (Worksheets.count) 
If LCase(Sheets(rep).Name) = LCase(sheet_name_to_create) Then 
MsgBox " This Sheet already exists" 
Exit Sub 
End If 
Next 
ActiveSheets.copy After:=Sheets(Sheets.count) 
Sheets(ActiveSheet.Name).Name = sheet_name_to_create 

aber dieser Code Erstellen Sie neue Kopien aller vorhandenen Blätter (alle 7 Blätter, die ich in der Arbeitsmappe habe).

Bitte schlagen Sie die bestmögliche Lösung vor.

Vielen Dank im Voraus für Ihre Hilfe!

Answer 1

Macro wird nach dem Namen für das neue Blatt fragen und dann das letzte Blatt kopieren.

Sub AddNewSheet() 
sheet_name_to_create = InputBox("Enter Sheet Name") 
For rep = 1 To (Worksheets.Count) 
    If LCase(Sheets(rep).Name) = LCase(sheet_name_to_create) Then 
    MsgBox " This Sheet already exists" 
    Exit Sub 
    End If 
Next 
Sheets(Sheets.Count).Copy After:=Sheets(Sheets.Count) 
Sheets(Sheets.Count).Name = sheet_name_to_create 
End Sub