Einen Sicherungscode kopieren, der auf ein anderes Arbeitsblatt verweist

Question

Ich habe ein Arbeitsblatt (Sheet1) mit 50 verschiedenen 5-stelligen Zahlencodes, alle in A1: A50. Ich habe ein anderes Arbeitsblatt (Sheet2), das A1 referenziert Sheet1-A1 5-stelligen Zahlencode hat. Mein Ziel ist es, Sheet2 als die 5-stellige Nummer zu speichern, die gerade referenziert wurde, dann A1 von Sheet2 und A2 in Sheet1 zu löschen und dann den Speichervorgang erneut durchzuführen, bis ich 50 verschiedene Arbeitsblätter habe. Ich habe den Code für den Sparteil, aber ich kann nicht ganz herausfinden, wie es für die verbleibenden Zellbezüge in Sheet1 Schleife

Dim part1 As String 

Range("A1").Select 
ActiveCell.FormulaR1C1 = "='[Sheet1.xlsx]Tiering'!R1C1" 
part1 = Range("BA1").Value 


ActiveWorkbook.SaveAs Filename:= _ 
"C:\Users\Desktop\" & Format(Now(), "MM-DD-YYYY") & " " & part1 & ".xls", FileFormat:= _ 
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False 
ActiveWorkbook.Save 

Range("A1").Select 
Selection.ClearContents 

Zusammengefasst dieser Code funktioniert, muss ich Schleife nur es so, dass es spart die anderen 50 Codes in Sheet1 den Bereich A1: A50

danke

Answer 1

das Sie

es eine Idee geben, sollte es keine Notwendigkeit, eine Formel in einer Zelle zu platzieren

Sub test() 

    Dim part1 As String 

    Dim i As Integer 
    For i = 0 To 49 

     part1 = Workbooks("Sheet1.xlsx").Sheets("Tiering").Range("a1").Offset(i).Value 
     debug.print part1 

    Next i 

End Sub