VBA Code Workbook
18.01.2021 11:35:31
Schnack
ich habe einen Code, der immer an der markierten Stelle (fett gedruckt) stoppt. Laufzeitfehler "9" (Index außerhalb des gültigen Bereichs).
Gleichzeitig wird die Quelledatei geöffnet, in der zu erkennen ist, dass die Daten kopiert werden, die auch kopiert werden sollen. Ebenfalls öffnet sich die Zieldatei und das angesprochene Sheet enthält bereits den korrekten Namen, ist allerdings leer.
Code:
Private Sub B_ZU_Click()
Yr = DZ.TB_Yr.Value
Datapfad = ActiveWorkbook.Path
Workbooks.Add
ActiveWorkbook.SaveAs ("Zieldatei")
With DZ.LB_IW
a = 1
For i = 0 To DZ.LB_IW.ListCount - 1
DZ.LB_IW.ListIndex = i
ActiveWorkbook.Sheets.Add
IW = .List(.ListIndex)
ActiveSheet.Name = IW
Workbooks.Open Filename:=Datapfad & "Servername" & Quelldatei .xlsx
ActiveWorkbook.ActiveSheet.UsedRange.Copy
Workbooks("Zieldatei").Worksheets(IW).Activate
Workbooks("Zieldatei").Worksheets(IW).Paste
Workbooks(Quelldatei).Close (False)
Next i
End With
Dateiname = "Zieldatei .xlsx"
Application.Dialogs(xlDialogSaveAs).Show Datapfad & Dateiname
Workbooks("Zieldatei").Close (True)
End Sub