Wie zu VBA, um ein Paar Blätter auszuwählen und sie zu einem neuen wb zu kopieren?

Question

"First-Timer hier, also danke für Ihre Geduld!
Ich habe ein Arbeitsbuch mit mehreren Blättern, und ich muss:

1) Auswahl Paare von Arbeitsblättern (index und der Index +1)

2) Kopieren sie in eine neue Arbeitsbuch

3) Benennen Sie die Blätter mit dem, was Etikett in einer referenzierten Zelle ist (wie A1)

4) wiederholen Sie dann für jedes Paar von Blättern in der Arbeitsmappe (Dutzende von Paaren)

da ich zu vba bin sehr neu (nur nahm einen Klasse), ich bin leicht verwirrt. Der einzige Teil, den ich bis jetzt habe, bezieht sich auf die Zelle A1, um das Blatt umzubenennen, egal was für eine Textzeichenfolge in dieser Zelle ist. Ich kann den Rest nicht herausfinden. Ich denke, es hat etwas mit Worksheet.Index oder Arbeitsblätter (Index) und eine Art von Schleife, wo Index 2 und aktiviert das Blatt und das nächste vor dem Kopieren: Blatt 1 und 2, dann Blatt 3 und 4, etc es wird geprüft, um sicher zu sein, nicht null, weil Sie nicht ein Blatt mit einem Nullwert.

Private Sub Worksheet_Calculate() 
Dim s As String 
s = "sheet 1" 
If Range("A1").Value <> "" Then 
    s = Range("A1").Value 
End If 
ActiveSheet.Name = s 
End Sub 

So wie ich es, die Zelle A1 verstehen benennen. Die Verwendung und Syntax des Rests davon ist an dieser Stelle ziemlich über mich hinaus, aber ich möchte wirklich lernen und schließlich ein beitragendes Mitglied dieser Gemeinschaft werden. Ich bin ganz neu in meinem Job und arbeite nur in Teilzeit. Eine Lösung für meinen Chef zu finden, könnte bedeuten, dass ich dauerhaft werde. Daher ein GROSSER, GROSSER DANK !!!

Answer 1

Option Explicit 

Private Sub Worksheet_Calculate() 
Dim s As String 
Dim ws As Worksheet 
Dim wsi As Worksheet 

Set wsi = Sheets("Sheet4")' You need to create a name for the sheet to paste into 

For Each ws In ActiveWorkbook.Worksheets 
If Not IsEmpty(ws.Range("A1")) and ws.name = "INDEXCOPY" Then 
    ws.Name = ws.Range("A1").Value 
    ws.Range("A1:" & ws.Range("A1").SpecialCells(xlCellTypeLastCell).Address).Copy _ 
    Destination:=wsi.Range("A1") 
End If 
Next ws 
End Sub 

Dieser Code wird Ihnen einen Weg, Sie jedoch zu unterscheiden zwischen einem Indexblatt Sie kopieren möchten aus, im Vergleich zu einem Indexblatt kopiert werden sollen den Einstieg benötigen. Sie müssten eine zusätzliche if then-Anweisung hinzufügen, siehe obigen Kommentar. Ich würde hier aussehen - http://www.rondebruin.nl/win/s3/win006.htm